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

Forumthread: Zahlen mit VBA färben wenn...

Zahlen mit VBA färben wenn...
Werner
Hallo Forum,
Benötige mal wieder eure Hilfe :-)
Werte in den Feldern der Zeile A14:AA14 die kleiner 61% ausgegeben werden sollen automatisch rot eingefärbt werden.
Wenn die Werte größer 60% kleiner 75% sind, soll der jeweilige Wert blau eingefärbt werden.
Sind die Werte größer 74% sollen diese schwarz bleiben.
Trotz vielem Suchen finde ich nur Anregungen/Beispiele zum Einfärben der Zellen.
Ich möchte dieses mit VBA und nicht mit bedingter Formatierung machen.
Wer kann mir helfen.
Danke und Gruß
Werner
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zahlen mit VBA färben wenn...
09.07.2011 14:37:09
Daniel
HI
ich halte zwar die Bedingte Formatierung in diesem Fall für die besser Lösung, aber so gehts:
Dim Zelle as Range
For Each Zelle in Range("A14:AA14")
Select Case Zelle.Value
Case is 

die Farbwerte musst du dir noch passend raussuchen, ich da da nur irgendwas hingeschrieben.
Gruß, Daniel
Anzeige
AW: Zahlen mit VBA färben wenn...
09.07.2011 23:07:21
Werner
Hallo Daniel,
Vielen Dank für Deine Hilfe.
Und ich stimme Dir zu, möchte aber auch wissen, wie das mit VBA gelöst werden kann.
Gruß
Werner

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zahlen mit VBA einfärben: So geht's


Schritt-für-Schritt-Anleitung

Um Zahlen in Excel mit VBA automatisch einzufärben, kannst du folgendes Makro verwenden. Dieses Beispiel färbt die Werte in den Zellen A14 bis AA14 basierend auf den vorgegebenen Bedingungen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code in das Modul ein:
Sub ZahlenEinfärben()
    Dim Zelle As Range
    For Each Zelle In Range("A14:AA14")
        Select Case Zelle.Value
            Case Is < 0.61
                Zelle.Interior.Color = RGB(255, 0, 0) ' Rot
            Case 0.61 To 0.74
                Zelle.Interior.Color = RGB(0, 0, 255) ' Blau
            Case Is >= 0.75
                Zelle.Interior.ColorIndex = xlNone ' Schwarz bleibt unverändert
        End Select
    Next Zelle
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Um das Makro auszuführen, drücke ALT + F8, wähle ZahlenEinfärben und klicke auf Ausführen.

Jetzt werden die Werte in den angegebenen Zellen automatisch eingefärbt, je nach den definierten Regeln.


Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass du das Makro in einer Arbeitsmappe gespeichert hast, die Makros zulässt. Überprüfe die Sicherheitseinstellungen unter Datei > Optionen > Trust Center.
  • Fehler: Die Zellen färben sich nicht wie erwartet.

    • Lösung: Überprüfe die Werte in den Zellen. Stellen sicher, dass die Werte numerisch sind und im richtigen Format vorliegen.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die bedingte Formatierung nutzen. Diese Methode ist einfacher und erfordert keine Programmierkenntnisse. Gehe dazu wie folgt vor:

  1. Wähle die Zellen A14 bis AA14 aus.
  2. Klicke auf Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  4. Gib die entsprechenden Formeln für die verschiedenen Bedingungen ein und wähle die gewünschten Farben aus.

Praktische Beispiele

Hier sind einige Beispiele für Formeln, die du in der bedingten Formatierung verwenden kannst:

  • Für Werte kleiner als 61%:

    =A14<0.61
  • Für Werte zwischen 61% und 74%:

    =UND(A14>=0.61, A14<0.75)

Diese Formeln können dir helfen, die Zellen automatisch einzufärben, ohne VBA zu verwenden.


Tipps für Profis

  • Nutze die RGB-Funktion, um spezifische Farben zu verwenden, wenn du mit VBA arbeitest.
  • Bei großen Datenmengen kann VBA schneller sein als die bedingte Formatierung, da diese bei jeder Änderung aktualisiert wird.
  • Experimentiere mit anderen VBA-Funktionen, um komplexe Formatierungen zu erstellen.

FAQ: Häufige Fragen

1. Kann ich das VBA-Skript anpassen, um andere Zellen zu färben?
Ja, ändere einfach den Bereich im Range("A14:AA14")-Teil des Codes auf den gewünschten Zellbereich.

2. Ist es möglich, mehrere Regeln gleichzeitig zu verwenden?
Ja, du kannst mehrere Select Case-Bedingungen oder auch If...Then...Else-Bedingungen in deinem VBA-Code nutzen, um komplexere Regeln zu erstellen.

3. Wie kann ich das Hintergrundbild in Excel ändern?
Um ein Hintergrundbild in Excel hinzuzufügen, gehe zu Seitenlayout > Hintergrund. Beachte, dass das Bild nicht wiederholt wird, wenn du es so einstellst.

4. Ist die Verwendung von makros sicher?
Sei vorsichtig beim Ausführen von Makros aus unbekannten Quellen, da diese schädlichen Code enthalten können. Verwende nur vertrauenswürdige Makros und stelle sicher, dass deine Excel-Sicherheitseinstellungen entsprechend konfiguriert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige