Farbauswahl in Textbox übernehmen
17.10.2002 23:55:46
Stefan
ich benutze die hier im Forum gefunden Funktion:
Sub farben()
Dim i As Variant
Dim j As Long
j = ActiveCell.Interior.ColorIndex
i = Application.Dialogs(84).Show
If i <> False Then
Range("a1").Interior.ColorIndex = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = j
End If
End Sub
Obige Sub rufe ich über einen Button in der UserForm auf. Wenn ich nun eine Farbe auswähle, soll die Textbox in der UserForm neben dem Button in dieser Farbe eingefärbt werden. Die Zellen, die ab Ende diese Farbe haben sollen stehen zu diesem Zeitpunkt nämlich noch nicht fest. Die UserForm dient wie eine Art Konfigurator (der Benutzer soll sehen was er gewählt hat -> unzwar in der UserForm). Ist dies möglich?
Anstatt Range("a1").Interior.ColorIndex habe ich auch schon farbe1.BackColor probiert, aber die TextBox wird immer schwarz.
Danke für eure hoffentlich hilfreichen Tipps!!!!
Ciao Stefan :)
Anzeige