Aktive zelle leer ist, dann
02.01.2004 21:53:09
Walter
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