Textbox weiße Scrift auf schwarzem Grund
Reinhard
ich habe dies:
Sub Makro1()
Dim S
With Range("D5")
Set S = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
With S
S.ForeColor = &H0&
S.Text = "Huhu"
End With
End With
End Sub
Mein Wunsch ist nun daß der Zellinhalt von D5 weiß auf schwarz in dem Textfeld erscheint.
Leider, auch wenn ich mit F8 den Code ablaufe kommt, Zugriff jetzt nicht möglich bzw.kann nicht in den Haltemodus gewechselt werden ö.ä usw.
Was muß ich ändern?
Danke ^ Gruß
Reinhard