|
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
|