Hallo ich brauche dringend Hilfe bei einem Excel-Makro.
Folgende Sachlage:
In einer Excel-Tabelle befinden sich etwa 1000 Werte.
Eine Teilmenge der Werte soll durch bestimmte Zellfarben hervorgehoben werden.
Mein Lösungsansatz (da suchen und manuell einfärben zu lang dauert):
Ich möchte die hervorzuhebenden Werte in eine Spalte der Exceltabelle
schreiben. Z.B. alle Werte die blau hinterlegt werden sollen in
Spalte X, alle die rot hinterlegt werden sollen in Spalte Y.
Diese Werte sollen dann automatisch in der Tabelle gesucht werden und
mit der jeweiligen Farbe hinterlegt werden.
Jetzt fehlt nur noch das Makro, das ich mit eurer Hilfe irgendwie
zusammenbasteln muss.
PS: Beispielcode wär hilfreich, da ich noch kein Spezi bin 
Danke im Voraus für Eure Hilfe,…
In einer Excel-Tabelle befinden sich etwa 1000 Werte.
Eine Teilmenge der Werte soll durch bestimmte Zellfarben
hervorgehoben werden.
Ich möchte die hervorzuhebenden Werte in eine Spalte der
Exceltabelle
schreiben. Z.B. alle Werte die blau hinterlegt werden sollen
in
Spalte X, alle die rot hinterlegt werden sollen in Spalte Y.
Diese Werte sollen dann automatisch in der Tabelle gesucht
werden und
mit der jeweiligen Farbe hinterlegt werden.
Hi Stephan,
so genau habe ich das nicht verstanden.
Wenn Spalten X und y existieren wo du manuell Werte eingetragen hast, und je nachdem ob der Wert von Spalte A in den Spalten X oder Y oder halt auch nicht, soll er blau oder rot gekennzeichnet werden.
Dafür brauchst du kein Makro, das geht mit bedingter Formatierung von Splate A bestens.
Wenn es in Spalte A eindeutige Kriterien gibt, weshalb eine Zelle rot oder blau sein soll brauchst du die Spalten X und Y nicht.
Auch das ginge über bedingte Formatierung in A.
Wenn es keine eindeutigen Kriterien gibt, okay, dann mußt du die Spalten X und Y manuell erstellen, dann kann man dir ein Makro basteln was dnan dementsprechend die Spalte A buntig macht.
Ich habe das noch nicht gemacht, da ich lieber erstmal nachfrage bevor ich für die Tonne arbeite.
Gruß
Reinhard
Jetzt fehlt nur noch das Makro, das ich mit eurer Hilfe
irgendwie
zusammenbasteln muss.
PS: Beispielcode wär hilfreich, da ich noch kein Spezi bin
Danke im Voraus für Eure Hilfe,…
@ Reinhard:
Die bedingte Formatierung kann ich so nicht verwenden, da ohne Umwege nur drei Bedingungen eingegeben werden können.
Desweiteren ist die bedingte Formatierung sehr umständlich, wenn ich die Bedingungen manuell eingeben muss.
Ich würde lieber die Werte, die in der Tabelle gesucht und eingefärbt werden müssen in eine Spalte kopieren und durch ein Makro in der restlichen Tabelle suchen und einfärben lassen.
Fehlt nur noch das Makro,…
Hi Stephan,
Desweiteren ist die bedingte Formatierung sehr umständlich,
wenn ich die Bedingungen manuell eingeben muss.
Wieso, du kannst doch einen Bereich markieren und dann einmalig die Bedingungen eingeben!?
Ich würde lieber die Werte, die in der Tabelle gesucht und
eingefärbt werden müssen in eine Spalte kopieren und durch ein
Makro in der restlichen Tabelle suchen und einfärben lassen.
Der nachfolgende Code ist bezogen auf diese Tabellenstruktur:
Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │ C │
───┼───────┼─────┼──────┤
1 │ Werte │ Rot │ Blau │
───┼───────┼─────┼──────┤
2 │ 1 │ 2 │ 3 │
───┼───────┼─────┼──────┤
3 │ 2 │ 4 │ 7 │
───┼───────┼─────┼──────┤
4 │ 3 │ 5 │ 11 │
───┼───────┼─────┼──────┤
5 │ 4 │ 8 │ │
───┼───────┼─────┼──────┤
6 │ 5 │ │ │
───┼───────┼─────┼──────┤
7 │ 6 │ │ │
───┼───────┼─────┼──────┤
8 │ 7 │ │ │
───┼───────┼─────┼──────┤
9 │ 8 │ │ │
───┼───────┼─────┼──────┤
10 │ 9 │ │ │
───┼───────┼─────┼──────┤
11 │ 10 │ │ │
───┼───────┼─────┼──────┤
12 │ 11 │ │ │
───┼───────┼─────┼──────┤
13 │ 12 │ │ │
───┴───────┴─────┴──────┘
A1:C13
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Code in ein Standardmodul:
Option Explicit
'
Sub Faerben()
Dim Zei1 As Long, Zei2 As Long, Spa2 As Long, Farbe(2 To 3)
Columns(1).Interior.ColorIndex = xlNone ' Farben der Spalte A zurücksetzen
Farbe(2) = 3 ' Rot
Farbe(3) = 5 ' Blau
For Spa2 = 2 To 3 ' Spalte B und C
For Zei2 = 2 To Cells(Rows.Count, Spa2).End(xlUp).Row
For Zei1 = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Zei1, 1) = Cells(Zei2, Spa2) Then Cells(Zei1, 1).Interior.ColorIndex = Farbe(Spa2)
Next Zei1
Next Zei2
Next Spa2
End Sub
'
Sub Farbwerte()
Dim F
For F = 1 To 56
Worksheets("Tabelle3").Cells(F, 1).Interior.ColorIndex = F
Next F
End Sub
Das Makro Farbwerte er zeugt in Tabelle3 in Spalte A bunte Zellen, die Zeilennummer entspricht dem Farbwert der jeweiligen Farbe.
Gruß
Reinhard