Zeilen (nicht) löschen
02.02.2004 18:32:57
Werner
ich hänge hier irgendwie fest,kriege es nicht gebacken:
Nr = UserForm3.TextBox1.Value
Rows(Nr).Select
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
If ??????????
Selection.Delete
nun habe ich irgendwo in Spalte A die Zelle "einfuegen". Die Zeile mit dieser Zelle darf auch nicht gelöscht werden,bei Eingabe der entsprechenden Zeilennummer soll ebenfalls Fehler1 erscheinen.
Kann mir da jemand helfen?
Gruß Werner