vypsání pole do buněk hází chybu

[Syny09]

zdravíčko mám problém s vypsáním pole, mám tento kód

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Dim seznam(10)

For i = 1 To 6
    seznam(i) = Range("B" & i).Value
Next i


For k = 1 To 6
    Range("D" & k) = seznam(k)
Next k


End Sub

a když to spustím tak to hází chybu Method '_Default' of object 'Range' failed
občas to vypíše 4 řádky občas žádnej jak kdy, prosím o radu jak to mám vyřešit. Děkuji!

[Reklama]

[guest]

a) zacyklení kódu
b) nepromyšlená definice pole
c) nevhodné překlápění pole do listu
d) proč vůbec pole
e) proč tohle celé

[Poki]

Nebudu zkoumat proc tohle cele (ackoliv se tomu taky dost divim).
Kazdopadne, pokud pouzijete udalostni proceduru change, tak se pri kazdem zapsani do sloupce D procedura spusti znovu (dojde ke zmene), takze se to cele zacykli...

Pokud to musi byt navazane na zmenu, tak musite na zacatku vasi procedury zakazat spousteni udalostnich procedur (Application.EnableEvents = False) a na konci je zase povolit (Application.EnableEvents = True)