Supportnet / Forum / Tabellenkalkulation
Zellen einfärben
Frage
Hallo Leute,
habe mit Excel ein kleines Problem und hoffe daß mir jemand helfen kann.
Ich möchte, wenn ich einen Zellbereich in Spalte E (ist immer die gleiche Spalte) markiert habe, daß ich in den dadurch markierten Zeilen die entsprechenden Bereiche in Spalte H bis P den Zellenhintergrund blau einfärben kann. Klingt kompliziert, ist es aber eigentlich nicht.
Beispiel: Ich markiere den Bereich E20 bis E24. Dann möchte ich auf einen Button klicken. Dann sollen die Zellen H20 bis P24 blau eingefärbt werden.
Oder ich markiere einzelne Zellen z.B. E20, E26, E32. Dann sollen nach Knopfdruck die Bereiche H20-P20 und H26-P26 und H32-P32 blau eingefärbt werden.
Vielen Dank für jede Hilfe im Voraus.
Viele Grüße
Torsten
Antwort 1 von Saarbauer
Hallo,
ist über nur über Makro zu lösen.
Hintergrundfarbe =
Range(........) .Interior.ColorIndex =
Farbe da es mehre blau gibt ,kann ich dir so nicht sagen, am besten ausprobieren
Gruß
Helmut
ist über nur über Makro zu lösen.
Hintergrundfarbe =
Range(........) .Interior.ColorIndex =
Farbe da es mehre blau gibt ,kann ich dir so nicht sagen, am besten ausprobieren
Gruß
Helmut
Antwort 2 von Torsten1111
Hallo Helmut,
vielen Dank für die schnelle Antwort.
Leider bin ich mit dem VBA noch nicht so bewandert. So einen Button erzeugen und mit einem Makro verknüpfen ist kein Problem, aber den Code richtig zu schreiben........ .
Wenn es möglich wäre, könntest du das bitte ein bischen erklären bzw so schreiben, daß ich es benutzen kann???
Vielen Dank im Voraus.
Torsten
vielen Dank für die schnelle Antwort.
Leider bin ich mit dem VBA noch nicht so bewandert. So einen Button erzeugen und mit einem Makro verknüpfen ist kein Problem, aber den Code richtig zu schreiben........ .
Wenn es möglich wäre, könntest du das bitte ein bischen erklären bzw so schreiben, daß ich es benutzen kann???
Vielen Dank im Voraus.
Torsten
Antwort 3 von Saarbauer
hallo,
mal ein Makro für eine Zeile
Gruß
Helmut
mal ein Makro für eine Zeile
Sub Blau()
X = ActiveCell.Row()
Range("H" & X & ":P" & X).Select
With Selection.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
End SubGruß
Helmut
Antwort 4 von Torsten1111
Hallo Helmut,
ja, genau so hatte ich es mir vorgestellt.
Funktioniert super!!!
Vielen Dank.
Gruß
Torsten
ja, genau so hatte ich es mir vorgestellt.
Funktioniert super!!!
Vielen Dank.
Gruß
Torsten

