Guten Abend Zusammen,
habe nur eine kelinigkeit.
Habe folgende Zeile geschrieben:
If ActiveCell.Select <= 0 Then ' <> "" ob leer ist
' MsgBox "walter"
ActiveCell.Offset(-1, 0).Select
Selection.Delete
ActiveCell.Offset(0, 2).Select
MsgBox "walter"
Else
MsgBox "richtig"
End If
soll bewirken, wenn die aktive Zelle leer ist, eine Zeile nach oben und dort
den Inhalt der Zelle entfernen.
Bei mir zeigt immer MsgBox Walter an
Wieso?
Gruß Walter