Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: bedingte Formatierung für alle Arbeitsblätter

bedingte Formatierung für alle Arbeitsblätter
31.10.2013 08:41:57
Christopher
Hallo Allerseits,
ich habe ein Exceldokument, welches aus mehreren (ca. 10) Arbeitsblättern besteht.
Alle Arbeitsblätter haben die selbe Struktur, behandeln aber unterschiedliche Themen.
Jetzt möchte ich eine bedingte Formatierung erstellen, die in allen Arbeitsblättern die Spalten c und e auswertet und den Hintergrund grün in den Zellen färbt in denen ein "ja" steht.
Start-Bedingte Formatierung ist leider nicht aktiv, wenn mehrere Arbeitsblätter ausgewählt sind. Der Aufwand eine Regel für eine Spalte zu enwerfen und die Regel auf alle anderen Spalten in den anderen Arbeitsblättern zu kopieren (per Format übertragen) ist sehr aufwendig und lässt sich im nachhinein auch nicht vernünftig verwalten. Zudem werden Formatierungen pübertragen, die ich nicht übertragen möchte.
Kurz: Gibt es eine Möglichkeit eine Regel für mehrere Arbeitsblätter zu erstellen, die die Felder in den Spalten c und e grün einfärbt, in denen "ja" steht ?

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kann es auch eine VBA-Lösung sein?
31.10.2013 08:53:13
Tino

AW: kann es auch eine VBA-Lösung sein?
31.10.2013 08:57:50
Christopher
Wenn Du eine hast, nehme ich sie gerne an. Müsste mich dann zwar noch mit VBA auseinandersetzen, sollte für mich aber kein Problem sein.

AW: kann es auch eine VBA-Lösung sein?
31.10.2013 09:07:06
Tino
Hallo,
ok. hier eine Variante, sollte funktionieren.
Dieser läuft über eine Schleife alle Tabellenblätter ab und
setzt in Spalte C und E die gewünschte Formatierung.
Sub Formatierung()
Dim oWS As Worksheet
Dim i As Integer
'Schleife über alle Tabellenblätter
For i = 1 To ThisWorkbook.Worksheets.Count
'Bereich für die Formatierung
With ThisWorkbook.Worksheets(i).Range("C:C,E:E")
'Regel setzen
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""ja"""
.FormatConditions(.FormatConditions.Count).Interior.Color = vbGreen
End With
Next i
End Sub
Gruß Tino

Anzeige
AW: kann es auch eine VBA-Lösung sein?
31.10.2013 13:42:03
Christopher
Danke,
ich werde mich die nächsten Tage damit auseinandersetzen und Rückmeldung geben, ob es funtkioniert hat.

AW: kann es auch eine VBA-Lösung sein?
04.11.2013 10:11:55
Christopher
Ich habe die Funktion mal adhoc ausprobiert. Es hat funktioniert.
Vielen Dank nochmal.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bedingte Formatierung für alle Arbeitsblätter in Excel anwenden


Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument mit mehreren Arbeitsblättern.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.
  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub Formatierung()
       Dim oWS As Worksheet
       Dim i As Integer
       'Schleife über alle Tabellenblätter
       For i = 1 To ThisWorkbook.Worksheets.Count
           'Bereich für die Formatierung
           With ThisWorkbook.Worksheets(i).Range("C:C,E:E")
               'Regel setzen
               .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""ja"""
               .FormatConditions(.FormatConditions.Count).Interior.Color = vbGreen
           End With
       Next i
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle Formatierung und klicke auf Ausführen.

Durch diese Schritte wird die bedingte Formatierung auf alle Tabellenblätter angewendet, sodass die Zellen in den Spalten C und E, die "ja" enthalten, grün hinterlegt werden.


Häufige Fehler und Lösungen

  • Fehler: Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass die Makros in deinen Excel-Optionen aktiviert sind (Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros).
  • Fehler: Formatierung wird nicht angewendet.

    • Lösung: Überprüfe, ob die Zellen tatsächlich "ja" enthalten und dass die Schreibweise übereinstimmt.

Alternative Methoden

Wenn Du keine VBA-Lösung verwenden möchtest, kannst Du auch die bedingte Formatierung manuell auf jedes Arbeitsblatt anwenden:

  1. Wähle das erste Arbeitsblatt aus.
  2. Markiere die Zellen in Spalte C und E.
  3. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  4. Wähle Zellen formatieren, die enthalten und setze die Regel auf "gleich" und gib "ja" ein.
  5. Wiederhole die Schritte für jedes Arbeitsblatt.

Diese Methode ist jedoch zeitaufwendig, wenn Du viele Blätter hast.


Praktische Beispiele

Stell Dir vor, Du hast ein Excel-Dokument mit mehreren Arbeitsblättern, die Verkaufsdaten für verschiedene Produkte enthalten. Du möchtest die Zellen in Spalte C und E hervorheben, in denen "ja" steht, um erfolgreich abgeschlossene Verkäufe zu kennzeichnen.

Verwende die oben genannte VBA-Methode, um die bedingte Formatierung auf alle Tabellenblätter anzuwenden, damit Du schnell einen Überblick über alle erfolgreichen Verkäufe erhältst.


Tipps für Profis

  • Verwende benannte Bereiche: Wenn Du oft mit denselben Bereichen arbeitest, kannst Du benannte Bereiche erstellen, um die Verwaltung zu erleichtern.
  • Regeln kombinieren: Du kannst mehrere Regeln in einer bedingten Formatierung kombinieren, um komplexere Bedingungen zu erstellen.
  • VBA anpassen: Passe den VBA-Code an, um verschiedene Bedingungen und Formate zu verwenden, je nach Deinen Anforderungen.

FAQ: Häufige Fragen

1. Kann ich die bedingte Formatierung auf andere Arbeitsblätter übertragen?
Ja, Du kannst die VBA-Lösung verwenden, um die Formatierung auf alle Arbeitsblätter gleichzeitig anzuwenden.

2. Wie kann ich die Formatierung für alle Arbeitsblätter anpassen?
Ändere den VBA-Code, um die gewünschten Bedingungen und Formate zu definieren, die dann auf alle Arbeitsblätter angewendet werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige