AW: Abbrechen Button bringt Fehlermeldung
21.04.2005 15:09:56
WernerB.
Hallo Ralf,
auch wenn Du den InputBox-Rückgabewert als Integer dimensionierst, so erfolgt er doch immer als String.
Die Reaktion auf das Drücken des Abbruch-Schalters muss programmiert werden; der Abbruch erfolgt nicht selbsttätig. Wird der Abbruch-Schalter gedrückt oder eine Leereingabe getätigt, so wird "" (=Leerstring) zurückgegeben. Deine Variable intZeile kann aber mit "" nichts anfangen (0 und "" sind zwei verschiedene Werte!); deshalb läuft Dein Makro auf einen Fehler.
Wie gefällt Dir das?
Sub LoeschenClick()
Dim strZeile As String, _
intZeile As Integer
strZeile = InputBox("Welche Zeile soll gelöscht werden?")
If strZeile = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", _
16, "Dezenter Hinweis für " & Application.UserName & ":"
Exit Sub
End If
intZeile = CInt(strZeile) + 4 'Deine 1. Zeile beginnt ja in Zeile 5 von Excel
Range("C" & intZeile & ":O" & intZeile).Delete Shift:=xlUp
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !