ich habe im Archiv nach Daten gesucht, um in UF Textbox3=Wert in der Listbox2 die gefilterten Werte anzuzeigen.
Leider funktioniert das nicht.
Könnt ihr bitte mal den Code überprüfen und ggf. bitte berichtigen.
Private Sub CommandButton3_Click()
Dim letzte As Long
Dim Wert As String
Application.ScreenUpdating = False
Wert = UF_Saldenbearbeitung.TextBox3
Worksheets("Kontosalden").Activate
With Worksheets("Kontosalden")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("$H$1:$N$11").AutoFilter Field:=7, Criteria1:=Wert
End With
With ListBox2
.ColumnCount = 7
.ColumnWidths = "1,5cm;3,5cm;2,5cm;3cm;3,5cm;3cm;3,5cm"
.ColumnHeads = True
With Sheets("Kontosalden")
ListBox2.RowSource = Range(.Range("H2"), .Cells(Rows.Count, "N").End(xlUp)).Address(, , _
, True)
End With
End With
Application.ScreenUpdating = True
End Sub
Ich habe in der Tabelle zwei Zeilen einmal Wert = 1 und einmal Wert =2
Es wird bei Auswahl Wert 1 die erste Zeile angezeigt. Bei Wert 2 beide Zeilen.
Keine Ahnung, wo hier der Fehler liegt.
Besten Dank für eure Hilfe.
Gruss
Peter