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
Viele Grüße Christian