Makro: "wenn letzte zeile leer - dann..."
28.07.2005 13:01:00
maik
ich möchte per makro testen ob die letzte zeile(oder alle zeilen) einer spalte unausgefüllt sind und - wenn dies der fall ist eine andere operation ausführen. mein Versuch bisher:
Public
Sub leer()
Dim letztezeile As Integer
Sheets("abc").Select
letztezeile = ActiveSheet.Cells(65536, 2).End(xlUp).Row
Cells(letztezeile, 2).Select
Selection.Copy
Cells(1, 1).Select
ActiveSheet.Paste
If Cells(lezttezeile, 2).Value = Cells(1, 1).Value Then
Sheets("0815").Select
Else
Call Reihenfolge_graph
End If
End Sub
Leider funktioniert das aber nicht so - hat jemand Vorschläge oder Ideen?
Vielen Dank
Maik