|
Guten Tag VBA allerseits,
ich habe in einem Tabellenblatt mehrere Tabellen. Um deren Inhalt jeweils korrigieren, ergänzen und löschen zu können habe ich ein Userform erstellt. Der Button "löschen", soll in der Tabelle "Projektleiter" die entsprechende Zeile komplett löschen. das habe ich wie folgt gelöst:
Private Sub BtnDel_Click()
' :::::::::::::::::::::::::
' LÖSCHEN EINES PL
' :::::::::::::::::::::::::
Dim rng As Range
Suchbegriff = TxBIDNR.Value ' in der Tabelle "Projektleiter" wird der Name gesucht der in dem Textfeld (nach ID Nummer wird gesucht) steht
Set rng = Worksheets("DB").Range("Projektleiter").Find(Suchbegriff, , , xlWhole)
If rng Is Nothing Then
MsgBox "Nichts gefunden"
Exit Sub
End If
MsgBox "Zeile: " & rng.Row & "; Adresse: " & rng.Address
With Range("Projektleiter")
Rows(rng.Row).Delete
End With
BtnEmpty_Click ' startet die Sub um die Buttons aktiv, resp inaktiv zu setzten
TxBIDNR.Enabled = False
End Sub
Das hat alles super funktioniert.
Seit neustem nun erhalte ich einen Laufzeitfehler 1004: "Die Delete Methode des Range Objektes konnte nicht ausgeführt werden."
Und der Debugger steht dan stehts auf der Zeile : Rows(rng.Row).Delete
KAnn mir da jemand aus der Patsche helfen?
Warum hat das Funktioniert und dann plötzlich nicht mehr und
wie kann ich das beheben?
LG Rog
|