ActiveCell
04.07.2003 12:33:17
Didi
brauche mal wieder Hilfe:
Was muß noch in das Makro eingebaut werden, um das Makro zu beenden, wenn eine angeklickte Zelle Ziffern enthält ?
Es sollen nur Zellen mit Text gelöscht werden !
Danke im Vorraus
Gruß Didi
Private Sub Löschen_Click()
zeile = activecell.Row
If activecell.Value = "" Then
meldung = MsgBox("Diese Zelle ist leer !", 64, "Leere Zelle")
Me.Hide
Exit Sub
Else
End If
If zeile < 22 Then
meldung = MsgBox("Sie haben noch keinen Namen ausgewählt !")
End
End If
warnung = MsgBox(activecell.Value & " wirklich löschen ?", vbYesNo + vbQuestion + vbDefaultButton2, "Löschen")
If warnung = vbYes Then
Selection.Delete Shift:=xlUp
Selection.Delete Shift:=xlUp
Else
End If
Me.Hide
End Sub
Anzeige