vba - wenn combobox 1 Auflistung über verschiedene Arbeitsblätter gefiltert wurde - dann Auswahl in Combobox 2 nur Filterauswahl des gewählten Arbeitsblattes ?

  • Excel

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    vba - wenn combobox 1 Auflistung über verschiedene Arbeitsblätter gefiltert wurde - dann Auswahl in Combobox 2 nur Filterauswahl des gewählten Arbeitsblattes ?

    Hallö,

    hoffe auf Eure Hilfe :wacko:

    Komme einfach nicht weiter und finde hier und im Netz irgendwie nicht die passende Lösung.

    Dazu muss ich sagen, dass ich ein absoluter Anfänger im VBA bin aber nun schon Tage hieran rumtüftel - lese - usw. *heul*

    Kann mir jemand helfen :?: Wäre echt toll :S

    Wie baut man im unteren VBA Code es so um, dass

    wenn im Combobox Auswahlfeld (Typ) z.B Typ-2 gewählt wurde,
    dann im Combobox Auswahlfeld (Variante) nur dies als Auswahlliste zum auswählen erscheint was im Blatt Typ-2 drin ist?

    Also, wenn combobox Typ (=Auflistung der Arbeitsblätter) die Auflistung gefiltert wurde
    - dann soll in Combobox Variante nur die Daten des gewählten Arbeitsblattes aufgelistet werden?

    Falls die Datei benötigt wird stelle ich sie sofort zur Verfügung. :love:

    LG

    Knibbli


    Visual Basic-Quellcode

    1. Private Sub Variante_Change()
    2. Filtern
    3. End Sub
    6. Private Sub Typ_Change()
    7. Filtern
    8. End Sub
    10. Private Sub Worksheet_Activate()
    11. Variante_befüllen
    12. Typ_befüllen
    13. End Sub
    15. Public Sub Variante_befüllen()
    16. Dim a As Range
    17. Dim i As Integer
    18. Dim WS As Worksheet
    19. With ThisWorkbook.Sheets("Auswertung").Variante
    20. .Clear
    21. For Each WS In ThisWorkbook.Worksheets
    22. If WS.Name = "Typ-1" Or WS.Name = "Typ-2" Or WS.Name = "Typ-3" Or WS.Name = "Typ-4" Or WS.Name = "Typ-5" Then
    23. For Each a In WS.Range("A3:A1000")
    24. If a <> "" Then
    25. For i = 0 To .ListCount - 1
    26. If InStr(1, .List(i), a, 1) <> 0 Then GoTo Weiter
    27. Next i
    28. .AddItem a
    29. End If
    30. Weiter:
    31. Next a
    32. End If
    33. Next WS
    34. End With
    35. End Sub
    37. Public Sub Typ_befüllen()
    38. Dim i As Integer
    39. Dim WS As Worksheet
    40. With ThisWorkbook.Sheets("Auswertung").Typ
    41. .Clear
    42. For Each WS In ThisWorkbook.Worksheets
    43. If WS.Name = "Typ-1" Or WS.Name = "Typ-2" Or WS.Name = "Typ-3" Or WS.Name = "Typ-4" Or WS.Name = "Typ-5" Then
    44. For i = 0 To .ListCount - 1
    45. If InStr(1, .List(i), WS.Name, 1) <> 0 Then GoTo Weiter
    46. Next i
    47. .AddItem WS.Name
    48. End If
    49. Weiter:
    50. Next WS
    51. End With
    52. End Sub
    54. Public Sub Filtern()
    55. Dim a As Range
    56. Dim b As Range
    57. Dim Typ As String
    58. Dim zeile As Integer
    59. Dim WS As Worksheet
    60. zeile = 2
    61. With ThisWorkbook.Sheets("Auswertung")
    62. .Range("A2:I1000").ClearContents
    63. If .Variante = "" Or .Typ = "" Then Exit Sub
    64. Typ = .Typ
    65. Set WS = ThisWorkbook.Sheets(Typ)
    66. For Each a In WS.Range("A3:A1000")
    67. If a <> "" And InStr(1, .Variante, a, 1) <> 0 Then
    68. For Each b In .Range("B2:B1000")
    69. If b <> "" And InStr(1, b, a.Offset(0, 2), 1) <> 0 Then
    70. .Cells(zeile - 1, 4) = .Cells(zeile - 1, 4) + a.Offset(0, 4)
    71. .Cells(zeile - 1, 5) = .Cells(zeile - 1, 5) + a.Offset(0, 5)
    72. GoTo Weiter
    73. End If
    74. Next b
    75. .Cells(zeile, 1) = a.Offset(0, 27)
    76. .Cells(zeile, 2) = a
    77. .Cells(zeile, 3) = a.Offset(0, 1)
    78. .Cells(zeile, 4) = a.Offset(0, 2)
    79. .Cells(zeile, 5) = a.Offset(0, 3)
    80. .Cells(zeile, 6) = a.Offset(0, 4)
    81. .Cells(zeile, 7) = a.Offset(0, 5)
    82. .Cells(zeile, 8) = a.Offset(0, 26)
    83. .Cells(zeile, 9) = a.Offset(0, 6)
    84. zeile = zeile + 1
    85. End If
    86. Weiter:
    87. Next a
    88. End With
    89. End Sub
    91. Sub Druck_Click()
    93. Sheets("Auswertung").PrintOut
    95. End Sub

    Ist die ComboBox auf dem Tabellenblatt oder in einer UserForm?
    Was hast Du denn mit dieser Abfrage vor:
    If WS.Name = "Typ-1" Or WS.Name = "Typ-2" Or WS.Name = "Typ-3" Or WS.Name = "Typ-4" Or WS.Name = "Typ-5" Then

    Ich denke, Du willst nur die Werte eines Arbeitsblattes auswerten. Dann Musst Du auch nur dieses eine Tabellenblatt benutzen.

    Was Du mit dem Filten vor hast hat sich mir nicht so ganz erschlossen. Aber bevor Du mit der Programmierung von Excel anfängst, solltest Du Dir vielleicht erst einaml anschauen, was Excel so schon an eingbauten Möglichkeiten mitbringt. Gültigtkeit für die Auswahl, Spezialfilter für das Filtern etc.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Hallö,

    Danke für deine Antwort.

    So wie ich bereits schrieb, muss ich Anfangs - mehrere Blätter gleichzeitig zur Auswahl aulisten- nicht nur eines.

    Später muss ich noch eine 3. Combobox haben, wobei dann damit mit der
    2. Auflistung und dieser späteren 3. Auflistung im Bezug auf die 1. Auflistung mindestens zwei Datenblätter ausgewertet werden müssen.


    Wenn ich es aber noch nicht mal schaffe im Bezug auf die1. Auflistung per VBA die 2. Auflistung - filterung im index festzulegen,
    dann kann ich das mit der 3. Filterung gleich ganz vergessen.     ?(


    Mit Excel selbst, kenne ich mich ganz gut aus......

    Es geht mir allerdings nun darum, alles bisherige, was ich in Formeln geschrieben hatte, in VBA zu bekommen
    da das Blatt "Auswertung" (automatisiert) - immer wieder aktualisiert - gelöscht und neu überschrieben werden muss

    .... und dies so einfach wie möglich für den Anwender.

    Die Datei selbst ist leider nicht besonders ordentlich aufgebaut und wird nicht verändert werden (außer Werte-Inhalte und neue Tabellenblätter),
    daher muss ich mich an dem Gegebenen anpassen und daraus das Optimalste zum Auswerten rausholen.

    Kann mir jemand sagen wie ich die Comboboxfilterung in VBA Variante so umschreibe, dass nur das aufgelistet wird was mit der Typfilterung die Spalte dieses TypBlatts ausgewählt wurde?

    Ich stelle mal die Datei mit ein, ... ist aber schon etwas mehr ausgearbeitet als gestern am Anfang angegeben.

    Ihr könnt Euch gerne auch die anderen noch nicht umgebauten Formeln ansehen, wie man diese in den VBA Code noch rein bekommt.     :love:

    Liebe Grüße

    Knibbli
    Dateien

    Warum liest Du denn jedes mal alle ein?

    Denn Typ musst Du nur am Anfang einmal einlesen.
    Nach dem der Typ gewählt wurde, musst Du dann nur noch die Varianten des entsprechenden Blattes einlesen.
    Was ist an dieser Logik so schwer?
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Was ist an dieser Änderung so schwer:

    Visual Basic-Quellcode

    1. Public Sub Variante_befüllen()
    2. Dim a As Range
    3. Dim i As Integer
    4. Dim WS As Worksheet
    5. With ThisWorkbook.Sheets("Auswertung").Variante
    6. .Clear
    7. WS=ThisWorkbook.Sheets(ThisWorkbook.Sheets("Auswertung").Typ.Text)
    9. For Each a In WS.Range("A3:A1000")
    10. If a <> "" Then
    11. For i = 0 To .ListCount - 1
    12. If InStr(1, .List(i), a, 1) <> 0 Then Exit For
    13. Next i
    14. .AddItem a
    15. End If
    16. Next a
    17. End If
    18. End Sub
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Hallö;

    Danke noch mal für deine Mühe und deine Antwort aber

    das genau macht mir eine Fehlermeldung. Das funktioniert nicht.

    Ich muss es irgendwie so umschreiben dass er auf den Auswahlindex der Combobox 1 Zugreift. Oder täusche ich mich da.

    Als VBA Neuling finde ich das irgendwie nicht raus.


    Lieb Grüße

    Knibbli

    Versuchs dami:

    Visual Basic-Quellcode

    1. Private Sub Typ_Change()
    2. Filtern
    3. If ThisWorkbook.Sheets("Auswertung").Typ.Value <> "" Then
    4. Variante_befüllen
    5. End If
    6. End Sub
    8. Public Sub Variante_befüllen()
    9. Dim a As Range
    10. Dim i As Integer
    11. Dim WS As New Worksheet
    12. With ThisWorkbook.Sheets("Auswertung").Variante
    13. .Clear
    14. Set WS = Worksheets(ThisWorkbook.Sheets("Auswertung").Typ.Value)
    16. For Each a In WS.Range("A3:A1000")
    17. If a <> "" Then
    18. For i = 0 To .ListCount - 1
    19. If InStr(1, .List(i), a, 1) <> 0 Then Exit For
    20. Next i
    21. .AddItem a
    22. End If
    23. Next a
    24. End With
    26. End Sub

    Ich habe mal wieder VBA mit .Net verwechselt. ".Text <> .Value"

    PS Die Fehlermeldungen solltest Du mit angeben.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook
Telefonspende