Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zellfarbe ändern in anderem Blatt

Forumthread: VBA Zellfarbe ändern in anderem Blatt

VBA Zellfarbe ändern in anderem Blatt
25.04.2022 15:04:18
Joschi
Hallo Forum.
kann ich die Hintergrundfarbe eines Bereichs ändern, wenn das entsprechende Tabellenblatt nicht das aktive Blatt ist?
Wenn ja: bitte wie?
Gruß Joschi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellfarbe ändern in anderem Blatt
25.04.2022 15:07:38
ChrisL
hi

Worksheets("Tabelle2").Range("B1:C3").Interior.Color = vbRed
Ohne Select/Activate geht es (fast) immer:
https://www.herber.de/vbabasics/0009.html
cu
Chris
AW: VBA Zellfarbe ändern in anderem Blatt
25.04.2022 15:46:51
Joschi
Hallo Chris.
Danke für Deinen Codier-Vorschlag. Den hatte ich allerdings in der Form auch schon - aber erfolglos.
Jetzt habe ich 2 Versuche gemacht:
Dim MaxRows As Long
MaxRows = 7
Worksheets(FindDopp).Range(Cells(2, 2), Cells(MaxRows, 2)).Interior.Color = vbRed
Worksheets(FindDopp).Range("B2:B" & MaxRows).Interior.Color = vbRed
Der 1. Befehl endet mit Laufzeitfehler 1004, der 2. funktioniert.
Wenn ich auf das entsprechende Tabellenblatt wechsle, dann funktionieren beide.
Das verstehe ich nicht.
Gruß Joschi
Anzeige
AW: VBA Zellfarbe ändern in anderem Blatt
25.04.2022 15:57:47
ChrisL
Hi
Vollständig referenzieren:

Worksheets(FindDopp).Range(Worksheets(FindDopp).Cells(2, 2), Worksheets(FindDopp).Cells(MaxRows, 2)).Interior.Color = vbRed
Oder z.B.

With Worksheets(FindDopp)
.Range(.Cells(2, 2), .Cells(MaxRows, 2)).Interior.Color = vbRed
End With
cu
Chris
Anzeige
AW: VBA Zellfarbe ändern in anderem Blatt
25.04.2022 16:09:07
Joschi
Hallo Chris.
Danke. Das war's.
Gruß Joschi
;

Forumthreads zu verwandten Themen

VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:42:25
Thread-ID: 1093113
4 Beiträge
in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Anzeige
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Zellen einfärben per VBA
Heinz

Guten morgen,im Forum
Ich hätte bitte gerne ein Makro.
Wenn zB. A3"" das in E4+F4 die Zelle gelb eingefärbt wird.
Also immer eine Zelle in E+F darunter, wenn Spalte A ungleich "".
Angefangen von A5 bis A1000
Mit bed.Formatierung würde die Arbeitsmappe einfach zu groß.
Kö...
29.03.2011 09:10:20
Thread-ID: 1208020
5 Beiträge
Zellen färben VBA
sven

Hi,
ich habe eine Userform mit einer Combobox.
Die Userform wird durch Doppelklick einer Zelle aufgerufen
Die Einträge in der Combobox sind : Entladung1,Entladung2,Entladung3,Entladung4
Wenn jetzt zum Beispiel Entladung4 gewählt wurde, soll die Zelle, aus der die Userform herbei...
31.05.2011 18:03:59
Thread-ID: 1216908
8 Beiträge
Registerfarbe besdingt durch Zelleneingabe ändern
Lars

Hallo zusammen,
ich habe mal wieder ein Frage, wie lautet der VBA_Code wenn ich abhängig vom Text in einer Zelle abhängig die Registerfarbe ändern möchte.
In Zelle K14 kann per drop-down verschiedene Auswahlmöglichkeiten getroffen werden, entsprechend der Auswahl soll sich die Registerb...
12.10.2011 15:57:41
Thread-ID: 1233555
4 Beiträge
Zellen füllen wenn farbe - VBA
Matthias

Hallo Excelfreunde,
benötige VBA Hilffe, ein Zellbereich F13:AJ15 soll mit "F" oder "S" oder "N" gefüllt werden, wenn:
1) spalte A13:A15 einen Namen enthält (Zellen ohne Name= ""); der Bereich wird später größer sein
UND
2) Zeile F10:AJ10 Mo,Di,Mi,Do,Fr enthält ; (bei Sa,So...
22.12.2011 20:40:34
Thread-ID: 1243311
4 Beiträge
VBA Zellen einfärben
WalterK

Hallo,
aus dem Internet (woher ist mir nicht mehr erinnerlich) habe ich einen Code erfragt, der bestimmte Zellen mit bestimmten Hintengrundfarben einfärbt.
Der Code funktioniert noch nicht optimal, darum wende ich mich an Euch.
Zur genauen Beschreibung des Problems habe ich eine Arb...
26.07.2012 23:32:38
Thread-ID: 1272794
7 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellfarbe in einem anderen Blatt mit VBA ändern

Schritt-für-Schritt-Anleitung

Um die Hintergrundfarbe einer Zelle in einem anderen Arbeitsblatt mit Excel VBA zu ändern, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Projektfenster mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Modul.

  3. Gib den folgenden VBA-Code ein:

    Sub ZellfarbeAendern()
   Worksheets("Tabelle2").Range("B1:C3").Interior.Color = vbRed
End Sub

  4. Führe das Makro aus: Drücke F5 oder wähle im Menü Run > Run Sub/UserForm.

Dieser Code ändert die Hintergrundfarbe der Zellen im Bereich B1:C3 auf Rot (vbRed), ohne dass das entsprechende Tabellenblatt aktiv sein muss.

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Wenn du versuchst, auf Zellen zuzugreifen, ohne das Arbeitsblatt vollständig zu referenzieren, kann dieser Fehler auftreten. Verwende die vollständige Referenzierung:

    Worksheets("Tabelle2").Range(Worksheets("Tabelle2").Cells(2, 2), Worksheets("Tabelle2").Cells(7, 2)).Interior.Color = vbRed

  • Falscher Arbeitsblattname: Überprüfe den Namen des Arbeitsblattes. Ein Tippfehler oder Leerzeichen kann dazu führen, dass der Code nicht funktioniert.

Alternative Methoden

  1. Verwendung von With: Eine andere Möglichkeit ist die Verwendung des With-Blocks, um den Code lesbarer zu machen:

    With Worksheets("Tabelle2")
   .Range(.Cells(2, 2), .Cells(7, 2)).Interior.Color = vbRed
End With

  2. Zellenfarbe ändern basierend auf Bedingungen: Du kannst auch die Zellenfarbe ändern, basierend auf bestimmten Bedingungen:

    If Worksheets("Tabelle2").Cells(2, 2).Value > 10 Then
   Worksheets("Tabelle2").Cells(2, 2).Interior.Color = vbGreen
Else
   Worksheets("Tabelle2").Cells(2, 2).Interior.Color = vbRed
End If

Praktische Beispiele

Hier sind einige Beispiele für das Ändern der Zellenfarbe in verschiedenen Szenarien:

  • Ändern der Farbe eines gesamten Bereichs:

    Sub BereichFarbeAendern()
   Worksheets("Tabelle2").Range("A1:A10").Interior.Color = vbBlue
End Sub

  • Ändern der Farbe mehrerer Tabellenblätter:

    Sub MehrereBlattFarbeAendern()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       ws.Range("B1:B5").Interior.Color = vbYellow
   Next ws
End Sub

Tipps für Profis

  • Nutze Konstanten: Statt vbRed, vbGreen usw. kannst du auch RGB-Werte verwenden, um spezifische Farben zu definieren:

    Worksheets("Tabelle2").Range("B1:C3").Interior.Color = RGB(255, 0, 0) ' Rot

  • Vermeide Select/Activate: Wenn möglich, arbeite ohne Select oder Activate, um den Code effizienter zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich die Zellenfarbe zurücksetzen?
Du kannst die Zellenfarbe zurücksetzen, indem du die Interior.Color-Eigenschaft auf xlNone setzt:

Worksheets("Tabelle2").Range("B1:C3").Interior.ColorIndex = xlNone

2. Kann ich auch die Schriftfarbe ändern?
Ja, du kannst die Schriftfarbe mit der Font.Color-Eigenschaft ändern:

Worksheets("Tabelle2").Range("B1:C3").Font.Color = vbBlue

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige