VBA ListView auslesen

[Abraxas_X]

Hallo zusammen,

ich hoffe ihr könnt mir helfen.
Versuche seit Tagen schon es umzusetzen, wenn ich die Combobox15 auswähle, soll er ein anderes Tabellenblatt wählen, was er auch tut. Aber wenn ich es auswähle soll er auch gleich in der ListView das Akuelle Tabellenblatt anzeigen..



Schönen Sonntag noch und einen schönen 3. Advent

 

[Zvoni]

Kein Wort verstanden.
Was passiert wo wenn du was ausführst?
Code von ComboBox15_Click bitte
Und wo ist die ListView? Gleichem Formular wie die ComboBox?

Und gewöhn dir an, die Controls sauber zu benennen.
ComboBox15 sagt mir dass du mindestens 15 ComboBoxen auf diesem Formular hast.
Da wird s ganz schnell unübersichtlich aus dem Code zu erraten, was wo passiert

 

[Abraxas_X]

Hallo,
sorry das ich mich erst jetzt melde, war beruflich beschäftigt.
Ich hoffe das ihr mir helfen könnt.
Das mit der listView habe ich hinbekommen. (Thema: Einlesen der Daten durch Combobox)

Jetzt wollte ich den AutoFilter nach Monaten Filtern lassen.

UserForm1 heißt das Formular
Combobox15 wählt man die Bezirke aus.
ComboBox35 wählt man die Monate aus, die Gefilter werden sollen.
Habe 4 Tabellenblätter für unterschiedliche Bezirke.

Habe verschiedenen Möglichkeiten Probiert, Klappt aber nicht so wie ich das möchte.
Und die Gefilterten Daten sollen in der ListView1 angezeigt werden.

Private Sub ComboBox35_Change()
'Test

'ActiveSheet.ListObjects("Vienenburg").Range.AutoFilter Field:=Me.ComboBox35.Value

'    With Worksheets("Vienenburg").Range("C10").Select
'        Selection.AutoFilter
'        .AutoFilter Field:=3, Criteria1:=Me.ComboBox35_Change.Value
'    End With
'End Sub
'If ComboBox35.ListIndex = -1 Then
'    ActiveSheet.Range("C10").Select
'    Selection.AutoFilter
'    Selection.AutoFilter Field:=3, Criteria1:=Me.ComboBox35.Value
'End If

    With Tabelle1.ListObjects(1).Range
        If ComboBox35.ListIndex = -1 Then
            Selection.AutoFilter Field:=3, Criteria1:=Me.ComboBox35.Value
        Exit Sub
        End If
    End With
End Sub

Das wegen der Bennung der einzelnen TextBoxen oder der Comboboxen, das hat mir einer aus dem Forum geraten Sie so zu bennen.

Besten Dank voraus