Mit Visual Basic die Hintergrundfarbe der Zellen ändern
Johny Lippuner
Ich habe eine Tabelle mit den Feriendaten einzelner Mitarbeiter erstellt. Um
diese einfach verwalten zu können habe ich vier Textfelder mit Makros (VB)
hinterlegt, welche bei den markierten Zellen die Hintergrundfarbe
entsprechend dem Textfeld ändern. (Rot = Kurs, Blau = Ferien usw....)
Der Befehl sieht folgendermassen aus:
Selection.Interior.ColorIndex = ActiveSheet.DrawingObjects("Textfeld
7").Interior.ColorIndex
Somit muss ich jetzt also pro Textfeld ein Makro hinterlegen. Ist es
irgendwie möglich generell ein Modul oder Makro zu schreiben, dass
automatisch die Farbe von dem angeklickten Textfeld auf die markierte Zeile
übernimmt, ohne dass ich für jedes Textfeld ein eigenes Makro erstellen
muss?
Vielen Dank schon im Voraus für die Unterstützung
Gruss Johny
Wolfgang Buerger
Über der Tabelle für jede gewünschte Einstellung einen Button und mit
entsprechendem Text versehen (z.B. Urlaub)
Den Buttons wird jeweils ein Makro zugewiesen wie folgt:
Sub "Bezeichnung"()
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
"Bezeichnung" müsstest du dann durch "Urlaub" etc. ersetzen und die
Interior-eigenschaften wunschgemäß setzen.
Die gerade markierte Zelle (oder ein ganzer Bereich) wird dann beim Drücken
des Buttons entsprechend formatiert.
Viel Erfolg
Wolfgang
Johny Lippuner
Ich werde es mal auf diese Art versuchen
Gruss Johny
"Wolfgang Buerger" <w.bu...@t-online.de> schrieb im Newsbeitrag
news:e8DEDjfWAHA.51@cppssbbsa03...