VBA Input Box
23.03.2017 13:12:36
Christian
kann mir jemand sagen, wo mein Fehler liegt? Probiere schon ewig ...
Private Sub Loeschen()
ActiveSheet.Unprotect
On Error Resume Next
Dim Bereich As Range
Set Bereich = Application.InputBox("Bitte markieren Sie einen Bereich", _
"Bereich wählen", , , , , , 8)
If StrPtr(Bereich) = "" Then
Exit Sub
Else
Bereich.Select
Selection.EntireRow.Delete
End If
End Sub
Er soll den Bereich/die Zeile löschen, wenn ich diesen auswähle und beim Abbrechen eben nichts machen (oder bei Nichteingabe). Klappt aber nicht. Er bricht immer ab, auch wenn ich einen Range definiert habe.Viele Grüße Christian