Farbauswahl per Liste oder ähnlich
13.10.2003 22:04:37
Stefan Koch
ich habe aus dem Forum folgendes Makro, das ich einem Button zugeordnet habe, um jede zweite Zeile zu färben.
Sub ZeilenFärben()
Dim Zeile As Range, ZeilenNr As Integer
For Each Zeile In Selection.Rows
ZeilenNr = ZeilenNr + 1
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 37
Else
Zeile.Interior.ColorIndex = 3
End If
Next
End Sub
Funktioniert einwandfrei ! Nun möchte ich aber das Makro so erweitern, dass sich nach drücken des Button's ein Fenster öffnet ( ähnlich wie in der Menuleiste, mit der ich den Zellhintergrund festlegen kann ), in dem ich die jeweils gewünschte Farbe auswählen kann. Ich hoffe, ich habe mich klar ausgedrückt.
Vielen Dank schon mal für Euere Hilfe.
gruss Stefan