Zeile mit Namen nicht löschen;VBA
03.02.2004 17:15:39
Werner
habe mich vielleicht gestern nicht korrekt ausgedrückt,das Problem wurde wohl nicht verstanden:
mit folgendem Code wird jede, von mir in die Textbox eigegebene,Zeile gelöscht,außer:
die Zeilennummer ist größer als 500
die Zeilennummer ist 1 oder 2 oder 3 (0 ist nur angegeben damit kein Fehler erzeugt wird).Soweit funktioniert es auch.
Private Sub CommandButton1_Click()
Nr = UserForm3.TextBox1.Value
Application.ScreenUpdating = False
If Not IsNumeric(Nr) Then GoTo Fehler2
If Nr > 500 Then GoTo Fehler3
If Nr = 3 Or Nr = 2 Or Nr = 1 Or Nr = 0 Then GoTo Fehler1
Rows(Nr).Select
Wert1 = MsgBox("Möchten Sie wirklich die Zeile " & UserForm3.TextBox1 & " entfernen?", 1, "Rückfrage")
If Wert1 = 2 Then Exit Sub Else Selection.Delete
Nun habe ich eine Zelle -irgendwo- in Spalte A,der ich den Namen "einfuegen" gab.Die Zeile,in der sich diese Zelle befindet,darf nicht gelöscht werden,es soll eine Fehlermeldung erscheinen (Fehler1).
(könnte auch der Zeile einen Namen geben ??)
Hoffe dass es für VBA-Fachleute verständlich ist und mir jemand eine Möglichkeit nennen kann.
Gruß Werner