Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Zelle bestimmte Farbe, dann kopieren

Forumthread: Wenn Zelle bestimmte Farbe, dann kopieren

Wenn Zelle bestimmte Farbe, dann kopieren
11.06.2003 14:21:23
Chris
Hallo,

ich hätte ein Bitte! Und zwar suche ich nach einem Makro, welches mir die Hintergrundfarben folgender Zellen ("E6:L6") überprüft (z.B. auf die Farbe "rot").

Falls die Zelle die Farbe "rot" bestitzt, dann soll eine Formel, welche in Zelle "A1" steht in die "rot" hinterlegte Zelle kopiert werden!

Wäre klasse, wenn jemand von Euch mir ein Makro hätte!

LG Chris

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wenn Zelle bestimmte Farbe, dann kopieren
11.06.2003 14:29:23
Yvonne

Hallo Chris,

versuche das mal:

Sub test()
Dim i As Integer
For i = 5 To 12
If Cells(6, i).Interior.ColorIndex = 3 Then
Cells(6, i).FormulaR1C1 = Cells(1, 1).FormulaR1C1
End If
Next i
End Sub


Gruß, Yvonne

Danke, funktioniert!!
11.06.2003 14:33:27
Chris

Ich danke Dir Yvonne,

funktioniert hervorragend!

LG Chris

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellenfarbe in Excel überprüfen und Werte kopieren


Schritt-für-Schritt-Anleitung

Um in Excel die Hintergrundfarbe einer Zelle zu überprüfen und den Wert einer anderen Zelle zu kopieren, kannst du ein einfaches Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub test()
        Dim i As Integer
        For i = 5 To 12
            If Cells(6, i).Interior.ColorIndex = 3 Then
                Cells(6, i).FormulaR1C1 = Cells(1, 1).FormulaR1C1
            End If
        Next i
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Um das Makro auszuführen, drücke ALT + F8, wähle test aus und klicke auf Ausführen.

Dieses Makro überprüft die Zellen von E6 bis L6 auf die Hintergrundfarbe rot (ColorIndex 3) und kopiert den Inhalt der Zelle A1 in die entsprechenden Zellen.


Häufige Fehler und Lösungen

  • Fehler: Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass die Makros in deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Option für Makros.
  • Fehler: Zellen werden nicht korrekt überprüft.

    • Lösung: Überprüfe, ob die Zellen tatsächlich die erwartete Farbe haben. Du kannst den ColorIndex anpassen, falls du eine andere Farbe überprüfen möchtest.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du auch die bedingte Formatierung nutzen, um Zellen basierend auf bestimmten Kriterien zu formatieren. Allerdings kannst du mit dieser Methode keine Werte automatisch kopieren.

  1. Wähle die Zellen E6:L6 aus.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden und gib die Formel ein, die die Bedingung für die Hintergrundfarbe überprüft.

Praktische Beispiele

Ein praktisches Beispiel könnte sein, dass du die Werte von Zellen in einer Tabelle basierend auf der Farbe von Zellen in einer anderen Reihe kopieren möchtest. Wenn du beispielsweise eine Umsatzliste hast und die Zellen mit einem roten Hintergrund spezielle Aktionen erfordern, kannst du die oben genannten Schritte verwenden, um diese Werte automatisch zu übertragen.


Tipps für Profis

  • Nutze die ColorIndex-Eigenschaft, um spezifische Farben zu überprüfen. Du kannst die verschiedenen Farbcodes in Excel herausfinden, indem du die Interior.Color-Eigenschaft nutzt.
  • Experimentiere mit Schleifen und Bedingungen in VBA, um komplexere Aufgaben zu automatisieren.
  • Halte deine Makros gut dokumentiert, damit du oder andere Benutzer sie in Zukunft leicht nachvollziehen können.

FAQ: Häufige Fragen

1. Wie kann ich die Hintergrundfarbe ändern?
Du kannst die Hintergrundfarbe einer Zelle ändern, indem du die Zelle auswählst und auf Start > Füllfarbe klickst, um eine neue Farbe auszuwählen.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in Excel 2007 und neueren Versionen. Stelle sicher, dass du die richtige Syntax für die jeweilige Version verwendest.

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