Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farben wechseln

Forumthread: Farben wechseln

Farben wechseln
Lemmi
Hallo zusammen,
ich habe viele Arbeitsblätter und viele Tabellen in mehren Dateien. Diese haben auch schon mal Farben verpasst bekommen!
Ist es möglich das man mit einem kleinen Marko und einer vorher gehenden Farbauswahl gleichartige Farbfelder in einem Arbeitsblatt/ Datei wechseln /austauschen kann?
Die Farben sind vorher unter Format (Zellenformat) abgelegt worden!
Gruß
Lemmi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Farben wechseln
30.06.2009 19:06:00
Uduuh
Hallo,
sicher ist das möglich.
Aber ist es nicht praktikabler, die Farbpalette einer Mappe zu ändern und die dann in die anderen Mappen zu importieren?
Siehe Extras-Optionen-Farbe. Dort kannst du jede Farbe nach Belieben ändern.
Gruß aus’m Pott
Udo

Anzeige
AW: Farben wechseln
30.06.2009 19:35:41
Lemmi
Hallo Udo,
Du hast recht, sicherlich wäre es besser, so vorzugehen!
... leider habe ich schon eine ganze Menge Dateien die ich bereits habe!
Diese zu Fuß zu ändern wäre sehr Fehler trächtig und aufwendig!
Gruß
Lemmi
AW: Farben wechseln
30.06.2009 19:50:54
Uduuh
Hallo,
erstelle dir eine Mappe und passe die Farbpalette so an, wie du willst (z.B. aus rot blau machen etc)
den Code in ein Modul

Sub FarbenWechseln()
Dim sDatei As String, wkb As Workbook
sDatei = ThisWorkbook.Path & "\*.xls"
Do While sDatei  ""
If sDatei  ThisWorkbook.Name Then
Set wkb = Workbooks.Open(ThisWorkbook.Path & "\" & sDatei)
wkb.Colors = ThisWorkbook.Colors
wkb.Close True
sDatei = Dir
End If
Loop
End Sub


Die Mappe im gleichen Ordner wie deine Dateien speichern.
Code starten.
Gruß aus’m Pott
Udo

Anzeige
AW: Farben wechseln
30.06.2009 21:33:40
Lemmi
Hallo Udo,
wenn ich das richtig verstehe ändert man die Auswahl der Farb-p-a-l-e-t-te ! Das war nicht meine Absicht!
Meine Vorstellungen gehen dahin, das ein Feld, welches die falsche Farbe hat, aktiviert wird.
Nun starte ich das Marko, wähle eine neue Farbe aus, bestätige mit o.K. und alle Farben in der Arbeitsmappe werden ausgetausch!
...man könnte das vergleichen mit ...DATEI- SUCHEN/ERSETZEN DURCH!
Gruß
Lemmi
Anzeige
AW: Farben wechseln
30.06.2009 21:38:45
Lemmi
Hallo Udo,
......habe gerade die Lösung gefunden!
---wusste gar nicht, dass man auch Farben durch DATEI- SUCHEN/ ERSETZEN austauschen kann!
...ist mir gerade aufgefallen!
trotzdem... vielen Dank!
Gruß
Lemmi
;

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