Hallo zusammen,

ich bin gerade dabei, für die Arbeit ein Excel-Tool zu erstellen. In dem folgenden Makro möchte ich, dass meine ListBox mit Werten aus der jeweils angesprochenen Spalte gefüllt wird. Allerdings sollen nicht alle Zellen übernommen werden, sondern nur diejenigen, die bestimmte Kriterien erfüllen. Ich möchte, dass nur die Zellen übernommen werden, in denen irgendwo im Zelleninhalt "Beton" oder "Holz" steht. Nach mehreren erfolglosen Versuchen wende ich mich nun an das Forum.

Mein Code:

Private Sub UserForm_Initialize_2()
    Dim Zeile As Long
    Dim LetzteZeile As Long
    Dim Materialien As Variant
    Dim i As String
    Dim ZellenWert As String

    ' Letzte Zeile in Spalte 2 (B) ermitteln
    LetzteZeile = Tabelle2.Cells(Rows.Count, 2).End(xlUp).Row

    ' Definiere das Array mit den Materialien
    Materialien = Array("beton", "stahl", "holz", "aluminium")

    ' Durch die Zeilen wird überprüft ob die Begriffe vorkommen, falls ja dann füge SIe in der ListBox
    For Zeile = 2 To LetzteZeile
        ZellenWert = LCase(Tabelle2.Cells(Zeile, 2).Value)
            If ZellenWert Like "*" & Materialien(i) & "*" Then
                Me.ListBox_TWP.AddItem Tabelle2.Cells(Zeile, 2).Value
            End If
    Next Zeile
End Sub

Vielen Dank im Voraus