mit dem folgenden Makro lese ich die Daten aus Tabelle1/ Bereich B5 bis D15 in die ListBox1 ein.
Private Sub UserForm_Initialize()
With ListBox1
.List = Sheets(1).Range("B5:D15").Value
.ColumnCount = 3
.ColumnWidths = "5cm;2cm;4cm"
.ListIndex = -1
End With
End Sub
Sobald ich jetzt in der ListBox beispielsweise den 2ten Eintrag auswähle und auf CommandButton1 klicke, soll
das Makro die Zellen B6 + C6 + D6 in der Hintergrundfarbe Rot markieren.
Gruß
Christian