ErrorHändler oder Schleife gesucht

Hallo zusammen
In meiner Tabelle habe ich einen Button eingerichtet, mit dem Einzelne Zeilen gelöscht werden können.
Ich habe jetzt aber das Problem das Zeile 1 Zeile 2 und Zeile 3 nicht gelöscht werden Dürfen, da diese den Kopf der Tabelle darstellen.
Giebt es dort eine Möglichkeit hier einen ErrorHändler zu intregieren, das wenn z.B zeile 1 gelöscht werden soll, das diese action dann nicht ausgeführt wird, und statt dessen dann ein hinweis kommt, das das Löschen dieser Zeile nicht möglich ist. Das gleiche natürlich auch für Zeile " und 3.
Hier mal mein Code.


Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim Blatt As Long
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Unprotect
Next Blatt
Dim i As Integer
On Error GoTo ErrorHandler
i = InputBox("Zu löschende Zeilen Nummer eingeben AUßER ZEILE 1 BIS 3 das ist der Kopf der  _
Tabelle")
Range(Cells(i, 1), Cells(i, 13)).Delete Shift:=xlUp
If i = "" Then Exit Sub
End
ErrorHandler:
MsgBox "O.K " & sWks & "wurde ausgeführt!"
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next Blatt
Application.ScreenUpdating = True
End Sub

Ich hoffe Ihr könnt mir helfen
Grüße Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fred,
kleines Beispiel:

Public Sub test()
    Dim vntReturn As Variant
    Do
        vntReturn = InputBox("Zu löschende Zeilen Nummer eingeben AUßER ZEILE" & _
            " 1 BIS 3 das ist der Kopf der Tabelle")
        If StrPtr(vntReturn) = 0 Then Exit Sub 'Abbrechen gedrückt
        If IsNumeric(vntReturn) Then
            vntReturn = CDec(vntReturn)
            If Fix(vntReturn) = vntReturn Then
                If vntReturn < 3 Or vntReturn > Worksheets(1).Rows.Count Then
                    MsgBox "Nur Zahlen von 4 bis " & CStr(Worksheets(1).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"
End Sub

Gruß
Nepumuk

Private Sub CommandButton2_Click() Application.ScreenUpdating = False Dim Blatt As Long For Blatt = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(Blatt).Unprotect Next Blatt Dim i As Integer On Error GoTo ErrorHandler i = InputBox("Zu löschende Zeilen Nummer eingeben AUßER ZEILE 1 BIS 3 das ist der Kopf der _ Tabelle") If i = "" OR i ErrorHandler: MsgBox "O.K " & sWks & "wurde ausgeführt!" For Blatt = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(Blatt).Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Next Blatt Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

ErrorHändler oder Schleife gesucht

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ErrorHändler oder Schleife gesucht

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread