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

Forumthread: beliebige Füllfarbe auf andere Zellen übertragen

beliebige Füllfarbe auf andere Zellen übertragen
18.03.2016 16:28:45
Harald
Hallo,
ich suche für folgende Problemstellung eine Lösung:
Ich möchte eine best. Zelle, Z.B. A1 beliebig! einfärben.
Im Anschluss sollen bestimmte (immer die gleichen) Zellen z.B. B1:B5 und D1:D10 in dieser Farbe eingefärbt werden.
Ich glaube das problem ist, dass die Farbe nicht definiert ist, mit der eingefärbt wird?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: beliebige Füllfarbe auf
18.03.2016 16:46:19
Steve
Hallo Harald,
"nicht definiert" gibt es nicht, sonst würde Excel die Farbe dir gar nicht anbieten können.
Private Sub worksheet_SelectionChange(ByVal Target As Range)
Range("B1:B5,D1:D10").Interior.ColorIndex = Range("A1").Interior.ColorIndex
End Sub
Den Code in den Bereich des Tabellenblattes: Rechtsklick auf den Reiter des Blattes, "Code anzeigen" wählen und dort rein.
lg Steve

Anzeige
AW: beliebige Füllfarbe auf
18.03.2016 16:56:13
Harald
Hallo Steve,
danke für das Skript.
Funktioniert "halb".
Es klappt bei Standardfarben, geht jedoch nicht bei einigen Designfarben. Es wird zwar immer der richtige Bereich definiert, aber teilweise mit falschen Farben.
Kann Excel hier nicht den richtigen Farbcode auslesen?

Anzeige
AW: beliebige Füllfarbe auf
18.03.2016 17:00:58
Steve
Dann nimm .Interior.Color statt .Interior.ColorIndex
Das einzige was hier stört ist jedoch dass wenn A1 keine Füllung hat es trotzdem als weiß zählt.
lg Steve

AW: beliebige Füllfarbe auf
18.03.2016 17:19:10
Harald
Steve,
Perfekt!
Da sowieso immer eine Farbe hinterlegt ist, spielt es keine Rolle, dass ohne Farbe weiß verwendet wird.
DANKE!!
Anzeige
;

Forumthreads zu verwandten Themen

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

Füllfarbe von einer Zelle auf andere Zellen übertragen in Excel


Schritt-für-Schritt-Anleitung

Um die Füllfarbe einer Zelle auf andere Zellen zu übertragen, kannst du den folgenden VBA-Code verwenden. Dies ist besonders nützlich, wenn du die Farbe von einer anderen Zelle automatisch übernehmen möchtest.

  1. Öffne dein Excel-Dokument und gehe zu dem Arbeitsblatt, in dem du die Farbe übertragen möchtest.

  2. Klicke mit der rechten Maustaste auf den Reiter des Arbeitsblattes und wähle „Code anzeigen“.

  3. Füge den folgenden Code in das VBA-Fenster ein:

    Private Sub worksheet_SelectionChange(ByVal Target As Range)
       Range("B1:B5,D1:D10").Interior.Color = Range("A1").Interior.Color
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.

  5. Ändere die Füllfarbe von Zelle A1. Die Zellen B1:B5 und D1:D10 werden automatisch die gleiche Farbe annehmen.

Mit diesem Code wird die Füllfarbe kopiert und die Farbe von einer Zelle übernommen. Achte darauf, dass die von dir verwendete Excel-Version die Verwendung von VBA unterstützt.


Häufige Fehler und Lösungen

  • Farbe wird nicht richtig kopiert: Wenn die Farbe aus einer Designfarbe nicht korrekt übernommen wird, stelle sicher, dass du .Interior.Color anstelle von .Interior.ColorIndex verwendest.
  • Leere Zelle wird als weiß angezeigt: Wenn die Zelle A1 keine Füllung hat, wird sie standardmäßig als weiß angesehen. Du kannst dies umgehen, indem du eine Bedingung hinzufügst, die prüft, ob A1 eine Füllfarbe hat.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch die Format übertragen-Funktion in Excel nutzen:

  1. Wähle die Zelle aus, die die gewünschte Farbe hat (z.B. A1).
  2. Klicke auf das Pinsel-Symbol in der Symbolleiste (Format übertragen).
  3. Wähle die Zellen aus, die du einfärben möchtest (z.B. B1:B5 und D1:D10).

Diese Methode ist einfach und benötigt keine Programmierung.


Praktische Beispiele

  • Beispiel 1: Wenn du regelmäßig die Farbe von Zelle A1 auf die Zellen B1:B5 übertragen möchtest, kannst du den beschriebenen VBA-Code verwenden, um Zeit zu sparen.
  • Beispiel 2: Angenommen, du möchtest die Hintergrundfarbe kopieren und auf mehrere Zellen anwenden, kannst du auch die Farbe aus einer Zelle übernehmen und dann wie beschrieben übertragen.

Tipps für Profis

  • Nutze die Bedingte Formatierung in Excel, um Zellen basierend auf bestimmten Kriterien automatisch einzufärben. Dies kann dir helfen, Farbcodes zu verwalten, ohne VBA verwenden zu müssen.
  • Halte deine VBA-Skripte organisiert, indem du Kommentare hinzufügst, um die Funktionalität zu erklären. Dies ist besonders wichtig, wenn du mit mehreren Skripten arbeitest.

FAQ: Häufige Fragen

1. Kann ich die Farbe automatisch aktualisieren, wenn sich die Farbe in A1 ändert?
Ja, der oben gegebene VBA-Code sorgt dafür, dass die Zellen B1:B5 und D1:D10 automatisch aktualisiert werden, wenn du die Füllfarbe von A1 änderst.

2. Funktioniert dies in allen Excel-Versionen?
Die meisten modernen Excel-Versionen unterstützen VBA. Stelle sicher, dass du eine Version verwendest, die dies ermöglicht, wie Excel 2010 oder neuer.

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