ListBox füllen
18.04.2021 15:49:06
Daniel
Ich habe mir eine UserForm mit einer Listbox gebastelt. In der Listbox sollen alle Zellen im Bereich "A2:A25" aufgelistet werden, welche sich einen roten Text befindet. Dies habe ich noch hin gekriegt. Was ich nicht schaffe ist, es sollten die Spalten B bis D auch in der listbox hintereinander angezeigt werden! Wie muss ich meinen Code anpassen?
Private Sub UserForm_Initialize()
Dim rngBereich As Range
Worksheets(10).Select
With Tabelle10
For Each rngBereich In Range("A2:A25")
If rngBereich.Font.ColorIndex = 3 Then
Me.ListBox1.AddItem rngBereich.Value
Me.ListBox1.Font.Size = 14
End If
Next rngBereich
End With
End Sub
Gruss Daniel