Dim gefunden, zeile
zeile = 2
gefunden = 0
Do Until gefunden = 1
If Cells(zeile, 2).Value = "" Then
Cells.End(xlDown).Offset(1, 0).Select
gefunden = 1
Else
zeile = zeile + 1
End If
Loop
-------------
Stammt nicht von mir, klappt aber!
Gruß Burckhard
poste bitte den CODE des MAKROS, dann ist mehr damit anzufangen.
nutze https://www.herber.de/forum/whatsnew.htm
gruss thomas
viele Grüsse Penelope
Viele Grüsse
es wird sxhon bald funzen :-)
Penelope
Viele Grüsse
es wird sxhon bald funzen :-)
Penelope
vielleicht hilft folgendes weiter.
bei jedem oeffnen der tabelle wird die komplette ZEILE in der ersten leeren ZEILE markiert.
werde auch nachts wieder exceln gruss thomas
p.s. nicht gleich an Deinem projekt ausprobieren, testdatei verwenden
Gruss an alle von
Penelope