Code funktioniert nicht bei Zahl
25.10.2022 08:40:56
Henry
ich habe eine ComboBox4, die beim Change Ereignis den ausgewählten Wert an einen "Namen" in der Excel Tabelle übergeben soll.
Anschließend soll die ListBox1 nach dem Wert, der in der ComboBox4 ausgewählt wurde, gefiltert werden.
Es klappt mit allen ComboBoxen in der Userform wunderbar, solange nach Text gefiltert wird.
Sobald aber nach einer Zahl gefiltert werden soll, hier zum Beispiel das Jahr 2022, tut sich nichts.
Der Name in der Excel Tabelle nimmt nicht den neuen Wert an.
Ich habe bereits versucht die Zahlen in der Excel Tabelle als Text zu formatieren.
Leider bringt das auch nichts.
Kann mir jemand sagen was an meinem Code falsch ist?
Mein Code sieht wie folgt aus:
Private Sub ComboBox4_Change()
Dim X As Long, bln As Boolean
ThisWorkbook.Names("sortierenjahr").RefersToR1C1 = "=""" & ComboBox4.Value & """"
With Sheets("Tabelle1").Range("A1").CurrentRegion
With .Offset(1, 0).Resize(.Rows.Count - 1)
.Sort Key1:=.Cells(1, 13), Order1:=xlAscending, Header:=xlNo
X = WorksheetFunction.Sum(.Columns(13))
If X = 0 Then X = .Rows.Count
ListBox1.RowSource = Sheets("Tabelle1").Cells(2, 1).Resize(X, 12).Address(external:=True)
End With
End With
ThisWorkbook.Names("sortierenjahr").RefersTo = "="
End Sub