Hallo
wenn ich mir diesen Code anschaue
1 2 3 4 5 | Private Sub Schleife_schreiben()
For i = 1 To 10
Worksheets(2).Range(Cells(i, 1), Cells(i, 2)).Value = i
Next i
End Sub
|
der funktioniert NUR wenn du auf Sheet2 bist
schreibst du Sheet(1) funktioniert er NUR wenn du in Blatt1 bist
warum?
aufgedröselt:
Worksheet(2).Range(AktivesBlatt.cells(i,1), AktivesBlatt.Cells(i,2).Value = i
das kann nicht gehen
da muss jedes Cells die Blattreferenz haben
am einfachsten in eine With-Anweisung packen
und vor jedes Cells nen Punkt
so wie hier
1 2 3 4 5 6 7 8 | Sub Schleife_schreiben()
Dim i As Long
With Sheets(2)
For i = 1 To 10
.Range(.Cells(i, 1), .Cells(i, 2)).Value = i
Next i
End With
End Sub
|
so ist es egal welches Blatt grad akrtiv ist
MfG Tom
|