AW: Daten in anderen Tabelle vergleichen
16.02.2023 09:53:19
UweD
Hallo Toni
hier mal eine Möglichkeit für "Löschen" (Ändern kannst du dann analog anwenden)
Ich gehe über die Personalnummer, da diese eindeutig ist (sein sollte)
Private Sub Löschen_Click()
Dim Eingabewert As Byte, Z As Integer
Eingabewert = MsgBox("Bist Du sicher, dass der Mitarbeiter" & vbLf & TextBox1 & vbLf & "gelöscht werden soll?", 4, Title:="Löschen")
If Eingabewert = vbYes Then
With Sheets("Gesamt Personal") ' im GesamtBlatt löschen
If WorksheetFunction.CountIf(.Columns(1), TextBox2) > 0 Then
Z = WorksheetFunction.Match(TextBox2, .Columns(1), 0)
.Rows(Z).Delete xlUp
Else
MsgBox TextBox2 & ": nicht gefunden"
End If
End With
ElseIf Eingabewert = vbNo Then
Exit Sub
'UserForm_Initialize
End If
' ActiveSheet.Unprotect (pw_tab)
If ComboBox1.ListIndex > 0 Then
Rows(ComboBox1.ListIndex + 3).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
ComboBox2 = ""
ComboBox3 = ""
'ComboBox4 = ""
' Sortieren
End If
UserForm_Initialize
If CheckBox1.Value = False Then
Unload Me
ActiveCell.Select
End If
'ActiveSheet.Protect (pw_tab)
End Sub
LG UweD