ich habe eine Userform in der ein Button den zuvor angewählten Inhalt der Listbox löscht. Ich möchte aber nicht, dass er in der Datenbank die ganze Zeile löscht sondern von Spalte A bis Spalte C wo er den entsprechenden Wert gefunden hat.
Private Sub Löschen1_Click()
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 2
Do While Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) ""
If ListBox1.Text = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) Then
Tabelle11.Rows(CStr(lZeile & ":" & lZeile)).Delete
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub
Dies ist ein Baustein den ich übernommen bereits auf meine Vorstellungen editiert habe um mich heran zu tasten.
Schaue ich mir das über die Makroaufzeichnung an, würde man mit einem Range arbeiten. Aber das sieht für mich nicht nachdem aus was ich haben möchte.