Hallo,
Dein Zellformat in der IdNrSpalte der Projektleiter-Tabelle haut nicht hin, das mußt Du auf Standard setzen, dann löscht Du Deinen Bereichsnamen Projektleiter aus dem Namensmanger und benennst Deine Tabelle genau mit diesem Namen ('Projektleiter')< das gleiche dann mit den übrigen Tabellen >, dann folgender Code:
Private Sub BtnDel_Click()
' :::::::::::::::::::::::::
' LÖSCHEN EINES PL
' :::::::::::::::::::::::::
' IN DER FUNCIOT WIRD DIE ERSTE SPALTE GESUCHT DES BEREICHES "PROJEKTLEITER"
'FirstColumn = fncFind_ErsteSpalte_in_Bereich(rngBereich:=Worksheets("Db").Range("Projektleiter "))
Dim objCell As Range
Dim Suchbegriff As Long
Suchbegriff = TxBIDNR.Value ' in der Tabelle "Projektleiter" wird der Name gesucht der in dem Textfeld (nach ID Nummer wird gesucht) steht
Set objCell = Worksheets("DB").ListObjects("Projektleiter").Range.Find(What:=Suchbegriff, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If objCell Is Nothing Then
Call MsgBox("Nichts gefunden")
Else
Call Worksheets("DB").ListObjects("Projektleiter").ListRows(objCell.Row - 1).Delete
Call BtnEmpty_Click
TxBIDNR.Enabled = False
Set objCell = Nothing
End If
End Sub
Außerdem sind mehrere Variablen bei Dir nicht deklariert, setz in allen Modulen in die erste Zeile die Anweisung Option Explicit, klick auf Debugging und deklarier diese nach...
Gruß,
|