Hilfe bei Code Korrektur
17.01.2008 08:09:00
Fred
Über den unten stehenden Code wird eine InputBox aufgerufen und bestimmte Zeilen sind löschbar.
Wenn ich jetzt aber hergehe und gebe eine 2 z.B. ein und gehe dann auf Abbrechen ,dann wird diese trotzdem gelöscht, obwohl Sie eigendlich nicht gelöscht werden darf. Was ist Falsch an dem Code
Dim vntReturn As Variant
Do
vntReturn = InputBox("Zu löschende Zeilen Nummer eingeben" & _
" Zeile 1 BIS 3 sind nicht löschbar!!")
If StrPtr(vntReturn) = 0 Then Exit Sub 'Abbrechen gedrückt
If IsNumeric(vntReturn) Then
vntReturn = CDec(vntReturn)
Range(Cells(vntReturn, 1), Cells(vntReturn, 13)).Delete Shift:=xlUp
If Fix(vntReturn) = vntReturn Then
If vntReturn Worksheets("Störbericht").Rows.Count Then
MsgBox "Nur Zahlen von 4 bis " & CStr(Worksheets("Störbericht").Rows.Count) & _
" erlaubt.", vbExclamation, "Hinweis"
Else
Exit Do
End If
Else
MsgBox "Nur ganze Zahlen erlaubt", vbExclamation, "Hinweis"
End If
Else
MsgBox "Nur Zahlen erlaubt.", vbExclamation, "Hinweis"
End If
Loop
MsgBox "LÖSCHEN"
Grüße Fred