Folgendes Problem steht an....
Hier lese ich alle Zellinhalte einer Spalte aus
'Dim aStrTestnr (Global gelöst)
aStrTestnr = Application.Transpose( _
Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp)))
Um so 100 Werte in Zellen abzufüllen müsste ich 100 solche Einträge platzieren
Range("Kategorie").Value = aStrTestKat(4)
Mit einer For Next Schleife möchte ich nun alle Felder abfüllen
For tn = 4 to 100
Range("Kategorie"& tn).Value = aStrTestKat(4)
Next tn
Mein Problem ist wie kann ich auch bei der Variablen aStrTestKat(...) diesen Wert mit dem tn steuern?Wenn ich das mache erhalte ich die Fehlermeldung
aStrTestKat(tn) = Index ausserhalb des gültigen Bereiches
Danke schon mal für eine Idee
Gruss
Ron