Schleife nächste Zelle +1
02.02.2009 09:39:26
Michael
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins()
Dim zeile As Integer
Dim zeileMax As Integer
Dim WertZeile As Long
With Sheets("Tabelle2")
zeileMax = .Range("A65536").End(xlUp).Row
WertZeile = Cells(zeileMax, 1).Value
zeileMax = zeileMax + 1
With ActiveSheet
' .Cells(intz, 1).Value = zeileMax
.Cells(zeileMax, 1).Select
End With
End Sub
Anzeige