vorletzter eintrag
17.12.2002 22:05:10
mera
Ich ermittele im Sub für die variable 'ende' die letzte zelle der aktuellen zeile mit einem eintrag.
Ich möchte jedoch eigentlich die vorletzte auswählen.
Wie ist dies am einfachsten möglich ?
Danke !
Sub BWA()
Sheets("Daten").Activate
Do
Set Start = Range("A:A").Find(1000000)
Set ende = Start.End(xlToRight)
Range(Start, ende).Copy
Exit Do
Loop
End Sub
Anzeige