Listbox-eintrag lässt sich nicht löschen

Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 2 .ColumnWidths = "2cm;2cm" .ColumnHeads = True ListBox1.RowSource = "Historie!B4:C10" 'oder: 'ListBox1.RowSource = "Tabelle1!A2:F" & loletzte End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,
ja ist mir auch aufgefallen habe jetzt folgende Änderungen vorgenommen:

Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 1
.ColumnWidths = "2cm"
.ColumnHeads = True
ListBox1.RowSource = "Historie!A4:A100"
End With
End Sub

wobei Spalte A mit Datums gefüllt ist und der lösch-button:

Private Sub CommandButton2_Click()
'Löschen Schaltfläche Ereignisroutine
Dim lZeile As Long
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = 4 'Start in Zeile 4
'Schleife solange etwas in der ersten Spalte in Tabelle "Historie" drin steht
Do While Trim(CStr(Worksheets("Historie").Cells(lZeile, 1).Value))  ""
'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Worksheets("Historie").Cells(lZeile, 1).Value)) Then
'Eintrag gefunden, die ganze Zeile wird nun gelöscht
Worksheets("Historie").Rows(CStr(lZeile & ":" & lZeile)).Delete
'Die ListBox muss nun neu geladen werden!
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub

jetzt bekomm ich zwar keine Fehlermeldung aber es passiert einfach gar nichts wenn ich auf die Schaltfläche klicke...
Gruß Peter

Private Sub UserForm_Initialize() ListBox1.RowSource = "Historie!A4:A" & Sheets("Historie").Cells(Rows.Count, 1).End(xlUp).Row End Sub Private Sub CommandButton2_Click() 'Löschen Schaltfläche Ereignisroutine Dim r As Range 'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet If ListBox1.ListIndex = -1 Then Exit Sub 'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes 'Schleife solange etwas in der ersten Spalte in Tabelle "Historie" drin steht For Each r In Range(ListBox1.RowSource) 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen If CLng(r) = ListBox1 Then 'Eintrag gefunden, die ganze Zeile wird nun gelöscht r.EntireRow.Delete 'Die ListBox muss nun neu geladen werden! Call UserForm_Initialize If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0 Exit For 'Vorzeitiges Ende, da der Datensatz schon gefunden ist End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Listbox-eintrag lässt sich nicht löschen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

376 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox-eintrag lässt sich nicht löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

376 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread