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

Forumthread: Zellen mit Makro einfärben

Zellen mit Makro einfärben
25.11.2016 08:33:03
Andreas
Guten Morgen Forum,
ich habe ein Makro aufgezeichnet, um Zellen die ich markiere, mit Mausklick einzufärben (je Farbe ein Makro). Allerding ist das Problem, dass bei der Aufzeichnung die markierten Zellen gefärbt werden. Ich möchte natürlich die Zellen im Blatt einfärben die ich jeweils auswähle und nicht nur A1:C1
Sub Gelb()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.Offset(10, -7).Range("A1:C1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Ich hoffe ich habe mich halbwegs verständlich ausgedrückt.
Andreas
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Makro einfärben
25.11.2016 08:51:42
Dieter(Drummer)
Hallo Andreas,
hier ist eine Datei, bei der mir Helmut aus diesem Forum, sehr behilflich war und es funktioniert prima.
Datei öffen, dann Buttron drücken, es erscheint eine Farbpalette. wechsle in deine Tabelle,in der du Zellen färben möchtest, markiere entsprechende Zelle und dan Klick auf die Farbe, die du haben möchtest. Fertig!
Gruß, Dieter(Drummer)
https://www.herber.de/bbs/user/109706.xlsm
Anzeige
AW: Zellen mit Makro einfärben
25.11.2016 09:21:41
Andreas
Hallo Dieter,
danke für die Antwort, aber für meinen Zweck war das Tool nicht geeignet, weil die festgelegten Farben verwendet werden sollen. Die Datei habe ich mir gespeichert und findet bestimmt in anderen Bereich Verwendung.
Gruß Andreas
AW: Gerne. Danke für Rückmeldung. owT
25.11.2016 09:27:37
Dieter(Drummer)
AW: Zellen mit Makro einfärben
25.11.2016 08:53:03
UweD
Hallo Andreas
Du färbst ja zuerst den markierten Bereich (Selection)
und im 2. Schritt dann 10 Zeilen tiefer, 7 Spalten weiter links (3 Spalten breit) einen weiteren Bereich
Was möchtets du denn ?
Wenn nur den markierten Bereich, dann lösch den 2. Teil weg

Sub Gelb()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Anzeige
AW: Zellen mit Makro einfärben
25.11.2016 09:24:44
Andreas
Hallo Uwe,
genau wie ich es haben wollte. Danke Dir!
Super wie schnell das hier immer geht.
Gruß Andreas
AW: Prima! owT
25.11.2016 09:29:26
UweD

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen mit Makro einfärben in Excel


Schritt-für-Schritt-Anleitung

Um Zellen in Excel mit einem Makro einzufärben, folge diesen Schritten:

  1. Makro erstellen:

    • Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke im Menü auf Einfügen und wähle Modul aus, um ein neues Modul zu erstellen.
  2. Code einfügen:

    • Füge den folgenden Code in das Modul ein:
    Sub Gelb()
       With Selection.Interior
           .Pattern = xlSolid
           .PatternColorIndex = xlAutomatic
           .Color = 65535 ' Gelb
           .TintAndShade = 0
           .PatternTintAndShade = 0
       End With
    End Sub
  3. Makro ausführen:

    • Kehre zu Excel zurück, markiere die Zellen, die du einfärben möchtest.
    • Drücke ALT + F8, wähle das Makro Gelb aus und klicke auf Ausführen.
  4. Anpassungen vornehmen:

    • Du kannst den Farbcode anpassen, um andere Farben zu verwenden. Die Farbe wird durch den RGB-Wert definiert.

Häufige Fehler und Lösungen

Problem: Das Makro färbt nicht die gewünschten Zellen.
Lösung: Stelle sicher, dass du die Zellen markiert hast, bevor du das Makro ausführst. Überprüfe auch, dass der richtige Bereich in der With Selection.Interior-Anweisung angegeben ist.

Problem: Fehlermeldung beim Ausführen des Makros.
Lösung: Achte darauf, dass das Makro in einem Modul gespeichert ist und dass die Makros in deinen Excel-Einstellungen aktiviert sind.


Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch die bedingte Formatierung in Excel nutzen:

  1. Markiere die Zellen, die du einfärben möchtest.
  2. Gehe auf Start > Bedingte Formatierung.
  3. Wähle Regel zum Hervorheben von Zellen und dann Größer als, Kleiner als oder eine andere Regel.
  4. Wähle die gewünschte Formatierung aus und klicke auf OK.

Diese Methode ist einfacher, hat jedoch nicht die Flexibilität von VBA-Makros.


Praktische Beispiele

Hier sind einige Beispiele, wie du verschiedene Farben mit VBA einfügen kannst:

  • Rot einfärben:

    Sub Rot()
       With Selection.Interior
           .Color = RGB(255, 0, 0) ' Rot
       End With
    End Sub
  • Grün einfärben:

    Sub Gruen()
       With Selection.Interior
           .Color = RGB(0, 255, 0) ' Grün
       End With
    End Sub

Mit diesen Beispielen kannst du leicht verschiedene Zellen einfärben, indem du das entsprechende Makro auswählst.


Tipps für Profis

  • Makros optimieren: Du kannst mehrere Farben in einem Makro kombinieren, um verschiedene Zellen je nach Bedingungen einzufärben.
  • Benutzerdefinierte Farbpaletten: Experimentiere mit den RGB-Farbwerten, um deine eigene Farbpalette zu erstellen.
  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in dein Makro ein, um sicherzustellen, dass es auch bei unerwarteten Eingaben stabil bleibt.

FAQ: Häufige Fragen

1. Wie kann ich ein Makro auf eine Tastenkombination legen?
Gehe zu Entwicklertools > Makros, wähle dein Makro aus und klicke auf Optionen. Hier kannst du eine Tastenkombination festlegen.

2. Funktioniert dieses Makro in allen Excel-Versionen?
Ja, das Makro sollte in Excel 2010 und späteren Versionen funktionieren. Stelle sicher, dass die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige