Hallo,
ich versuche mich gerade mal wieder mit Listenfeldern in einem Tabelenblatt (keine Listbox bei Userforms).
Der nachfolgende VBA-Code funzt auch einwandfrei...........
With ActiveSheet
Set LF1 = ActiveSheet.Shapes("Listenfeld1")
LF1.ControlFormat.ListFillRange = "'Testbereich'!$B$2:$B$" & Zeilen + 1
LF1.ControlFormat.MultiSelect = xlNone
End With
With ActiveSheet
Set LF1 = ActiveSheet.Shapes("Listenfeld1")
LF1.ControlFormat.ListFillRange = "'Testbereich'!$B$2:$B$" & Zeilen + 1
LF1.ControlFormat.MultiSelect = xlNone
'wenn ich jedoch............
LF1.BackColor = RGB(0, 0, 255)
'hinzufüge kommt die Fehlermeldung "Objekt unterstützt dies Eigenschaft oder Methode nicht"
'gibt es da einen Alternativbefehl für die alten Listenfelder oder ist da die Hintergrundfarbe nicht wählbar?
End With
Gruß Bastelpeter