habe ein großes Problem mit folgendem Code:
Windows("Dienstplan.xls").Activate
Dim neuBlatt As Worksheet
Dim i As Integer
For i = 1 To Worksheets.Count
Set neuBlatt = Worksheets(i)
neuBlatt.Select
Range("B1").Activate
Var(i) = ActiveCell.Value2
Next i
Der Fehler tritt bei Var(i) = ActiveCell.Value2 auf. Mein Ziel ist es, bei jedem Schleifendurchlauf eine neue Variable Var(1), Var(2) etc. zu erzeugen, welcher dann der Wert der Zelle B1 des gerade abzuarbeitenden Arbeitsblatts zugewiesen wird.
Kann mir jemand helfen? Vielen Dank im Voraus!
Gruß, Stefan