Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Torsten1111 vom 10.07.2020, 12:02 Options

Zellen einfärben

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 schreiben

Antwort 1 von Saarbauer vom 10.07.2020, 12:41 Options

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

Antwort 2 von Torsten1111 vom 10.07.2020, 13:27 Options

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

Antwort 3 von Saarbauer vom 11.07.2020, 11:10 Options

hallo,

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 Sub

Gruß

Helmut

Antwort 4 von Torsten1111 vom 11.07.2020, 15:10 Options

Hallo Helmut,

ja, genau so hatte ich es mir vorgestellt.

Funktioniert super!!!

Vielen Dank.

Gruß

Torsten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken