Nächster Code unter der Löschtaste.
Private Sub Cmd_02_Click()
Set ws = Worksheets("Datentabelle")
Set Rng = [IDs]
Set fnd = Rng.Find(What:=T_00.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If LB_00.ListIndex = -1 Then
MsgBox "Wählen Sie eine gebäudebezeichnung", vbCritical, "Gebäudebezeichnung?"
LB_00.SetFocus
Exit Sub
End If
If Not fnd Is Nothing Then smessage = "gebäudebezeichnung löschen, Sie sind sich sicher" + "?"
If MsgBox(smessage, vbQuestion + vbYesNo, "Bestätigen Sie das Entfernen") = vbNo Then GoTo oops
ws.Rows(fnd.Row).ClearContents
oops:
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
Next Ctrl
T_00.Value = WorksheetFunction.Max([IDs]) + 1
LB_00.List = [data_tbl].Value
'heizungfrm2.Show
End Sub
Bookmarks