combobox einlesen
fritz
danke und lg
Private Sub UserForm_Activate()
Dim x
For x = 1 To 20 'Ende anpassen oder auslesen
If Tabelle1.Cells(x, 1).Font.ColorIndex = 1 Then
ComboBox1.AddItem Cells(x, 1)
End If
Next
End Sub