Variables Löschen von Zeilen
28.04.2004 17:26:20
hubert
das folgende Makro läuft soweit. Nur wenn es in den Fehler springt und ich die
MSBox mit dem OK Button wegklicke wird trotzdessen die Zeile gelöscht.
Wie muss es richtig aussehen, dass wenn dass Programm in den Fehler springt, dann auch nicht die Zeile gelöscht wird sondern zu ende ist???
Sub ZeileLöschen()
Dim intA As Integer
intA = ActiveCell.Row
On Error GoTo Fehler
Range(Cells(intA, 1), Cells(intA, 256)).Select
Selection.Delete Shift:=xlUp
Exit Sub
Fehler:
MsgBox "Eingabebereich beachten!!!!!!!"
End Sub
Danke für die Hilfe
mfg
Hubert