Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farben grau

Forumthread: Farben grau

Farben grau
09.06.2004 20:44:39
Achim
Guten Abend,
ich brauche in manchen Arbeitsmappen keine Farben, dafür eine möglichst
breite Grautonpalette. Wie kann ich die Grautöne für eine Mappe festlegen,
ohne das natürlich für jede Farbe von Hand zu machen. Selbst mit dem
Makrorekorder ist das noch ganz schön umständlich.
Danke für jegliche Hilfestellung.
Gruß Achim
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farben grau
th.heinrich
hi Achim,
GRAU fuer was ? HINTERGRUND, SCHRIFT, MUSTER.....
schau mal unter RECHERCHE (linker frame) oder ueber SCHNELLSUCHE (ganz oben).
suchbegriff Farbpalette.
gruss thomas
ps. nach Grau habe ich noch nicht gesucht ;-)
AW: Farben grau
K.Rola
Hallo,
kleines Makro, das das für dich erledigt, liefert 56 Grautöne schön gleichmäßig
verteilt. Das kannst du auch in der Mappe über Workbook_Open aufrufen lassen:
Option Explicit

Sub Grautoene()
Dim f As Byte, m As Byte
For f = 1 To 56
m = Int(f * 4 + f * 0.5)
ThisWorkbook.Colors(f) = RGB(m, m, m)
Next
End Sub

Gruß K.Rola
Anzeige
Danke, funktioniert alles klar oT
Achim
oT
AW: Farben grau
Kay
Hallo K.Rola
kann ich auch sehr gut gebrauchen.
Könntest du mir das Erklären, was das mit den Zahlen auf sich hat?
Und geht das auch mit rot, grün usw.?
m = Int(f * 4 + f * 0.5)
mfg
Kay
AW: Farben grau
K.Rola
Hallo,
m = Int(f * 4 + f * 0.5)
dient nur dazu den Bereich von 0 bis 255 möglichst gleichmäßig auszunutzen.
Beispiel: f = 1, das entspricht dann etwa
=RUNDEN(1*4+1*0,5;0) = 5
und f = 56
=RUNDEN(56*4+56*0,5;0) = 252
Das geht für andere Farben auch, wenn es Mischfarben werden sollen ist es
aber nicht mehr ganz so einfach.
Wenn du es brauchst, lade ich mal ein Beispiel hoch.
Gruß K.Rola
Anzeige
AW: Farben grau
Kay
Hallo K.Rola
ersteinmal vielen Dank für deine Antwort.
es wäre toll wenn du mal so ein Beispiel hochladen würdest.
Vielen Dank
Ein schönen Tag noch
MfG
Kay
AW: Farben grau
K.Rola
Hallo,
bei den zur verfügung stehenden 56 Farben, müssen natürlich im Farbverlauf
irgenwelche Kompromisse gemacht werden.
Option Explicit

Sub rot()
Dim f As Byte, r As Byte, g As Byte, b As Byte
For f = 1 To 56
If f < 28 Then
r = (f + 22) * 5
g = 0
b = g
Else
r = 255
g = Int(f * 1.5)
b = g
End If
ThisWorkbook.Colors(f) = RGB(r, g, b)
Cells(f, 1).Interior.ColorIndex = f
Next
End Sub



Sub gruen()
Dim f As Byte, r As Byte, g As Byte, b As Byte
For f = 1 To 56
If f < 28 Then
r = 0
g = (f + 22) * 5
b = r
Else
r = Int(f * 1.5)
g = 255
b = r
End If
ThisWorkbook.Colors(f) = RGB(r, g, b)
Cells(f, 1).Interior.ColorIndex = f
Next
End Sub



Sub blau()
Dim f As Byte, r As Byte, g As Byte, b As Byte
For f = 1 To 56
If f < 28 Then
r = 0
g = r
b = (f + 22) * 5
Else
r = Int(f * 1.5)
g = r
b = 255
End If
ThisWorkbook.Colors(f) = RGB(r, g, b)
Cells(f, 1).Interior.ColorIndex = f
Next
End Sub

Gruß K.Rola
Anzeige
AW: Farben grau
Kay
Hallo K.Rola
Das ist ja cool.
Recht herzlichen Dank
Kann ich gut gebrauchen.
Schönes Wochenende.
Gruß
Kay
;
Anzeige
Anzeige

Infobox / Tutorial

Grautöne in Excel effizient festlegen

Schritt-für-Schritt-Anleitung

Um eine breite Palette von Grautönen in Excel festzulegen, kannst du ein einfaches VBA-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. Kopiere den folgenden Code in das Modul:

    Sub Grautoene()
    Dim f As Byte, m As Byte
    For f = 1 To 56
        m = Int(f * 4 + f * 0.5)
        ThisWorkbook.Colors(f) = RGB(m, m, m)
    Next
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Drücke ALT + F8, wähle Grautoene aus der Liste und klicke auf Ausführen.

Jetzt hast du eine Palette von 56 Grautönen in deiner Excel-Arbeitsmappe erstellt, die gleichmäßig verteilt sind.

Häufige Fehler und Lösungen

  • Problem: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter, und aktiviere die Makros.

  • Problem: Ich sehe keine Änderungen in der Farbpalette.

    • Lösung: Prüfe, ob du die richtigen Farbcodes verwendest und ob das Makro korrekt ausgeführt wurde.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du die Grautöne auch manuell festlegen:

  1. Wähle die Zellen aus, die du einfärben möchtest.
  2. Klicke auf das Farbfüllwerkzeug in der Symbolleiste.
  3. Wähle Weitere Farben und erstelle deinen eigenen Grauton, indem du die RGB-Werte anpasst.

Das ist zwar zeitaufwendig, aber eine effektive Methode, wenn du nur wenige Zellen einfärben möchtest.

Praktische Beispiele

Hier sind einige Beispiele für VBA-Makros, mit denen du andere Farben festlegen kannst:

  • Rot:

    Sub rot()
    Dim f As Byte, r As Byte, g As Byte, b As Byte
    For f = 1 To 56
        If f < 28 Then
            r = (f + 22) * 5
            g = 0
            b = g
        Else
            r = 255
            g = Int(f * 1.5)
            b = g
        End If
        ThisWorkbook.Colors(f) = RGB(r, g, b)
        Cells(f, 1).Interior.ColorIndex = f
    Next
End Sub

  • Grün:

    Sub gruen()
    Dim f As Byte, r As Byte, g As Byte, b As Byte
    For f = 1 To 56
        If f < 28 Then
            r = 0
            g = (f + 22) * 5
            b = r
        Else
            r = Int(f * 1.5)
            g = 255
            b = r
        End If
        ThisWorkbook.Colors(f) = RGB(r, g, b)
        Cells(f, 1).Interior.ColorIndex = f
    Next
End Sub

Tipps für Profis

  • Nutze den Workbook_Open-Event, um deine Grautöne automatisch zu laden, wenn die Arbeitsmappe geöffnet wird. Füge dazu den Code in das ThisWorkbook-Modul ein.

  • Experimentiere mit den RGB-Werten, um andere Farbvariationen zu erzeugen.

  • Halte deine Makros gut dokumentiert, damit du und andere Benutzer sie leicht anpassen können.

FAQ: Häufige Fragen

1. Kann ich die Grautöne auch für andere Excel-Versionen verwenden? Ja, die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2016 und später.

2. Wie kann ich die Farben später wieder ändern? Du kannst das gleiche Makro anpassen oder ein neues Makro erstellen, um die gewünschten Farben zu setzen. Alternativ kannst du die Farben manuell über das Farbfüllwerkzeug ändern.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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