ComboBox Daten ur mit schwarzer Schrift
fritz
damit werden die daten der tabele1 sapalte A eingelesen
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
Ich schaffe es jedoch nicht diesen code dahingehend abzuändernd das die daten der Tabelle mit der Bezeichnung "Hilfstabelle" aus der Spalte p eingelesen werden
danke!!
Anzeige