Farbauswahl
08.03.2004 12:04:20
Stefan
ich habe ein kleines Problem. Mit unten stehendem Makro ( as diesem Forum )kann ich über einen Button in einer Selection jede zweite Zeile färben. Soweit, so gut, aber es ist lästig, jedesmal wenn ich eine andere Farbe will, das Makro zu bearbeiten um eine andere Farbkennzahl einzugeben.
Meine Frage: Wie kann ich dieses Makro so erweitern, dass ich nach Drücken des Button eine Farbauswahl zu sehen bekomme, aus der ich dann die Farbe auswählen kann ( ähnlich wie beim "ColorPicker" von Hans ).
Für Euere Hilfe schon mal vielen Dank
Stefan
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 = 3
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If
Zeile.Borders.Weight = xlThin
Next
End Sub