Nimm eine blau getönte Brille :-)
Da ich selber kaum Farben verwende (max die Standard Vorgaben (Ausgabe, berechnung etc.)) kann ich manuell nichts beisteuern.
Was ich mir aber Vorstellen kann
per Vba den Befüllten Zellbereich in ein Array einlesen, den Farbwert auslesen,
Farbwert zwischenspeichern (extra tabellenblatt)
und neuen Farben zuweisen).
beim Speichern die alten Farbwerte wieder herstellen.
Code:
Sub Shadeofgrey()
Dim arrWerte()
Dim raZelle As Range
Dim lZaehler As Long
Dim lZaehler2 As LongApplication.ScreenUpdating = False
With Worksheets("Tabelle1")
For Each raZelle In Worksheets("Tabelle1").UsedRange
If raZelle.Interior.ColorIndex = 6 Then
ReDim Preserve arrWerte(0 To 2, 0 To lZaehler)
arrWerte(0, lZaehler) = raZelle.Address
arrWerte(1, lZaehler) = raZelle.Interior.Color
raZelle.Interior.ColorIndex = 15
lZaehler = lZaehler + 1
End If
Next raZelle
End With
Application.ScreenUpdating = True
MsgBox ("habe fertig")
End Sub
Code:
Sub yellosubmarine()Dim arrWerte()
Dim raZelle As Range
Dim lZaehler As Long
Dim lZaehler2 As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For Each raZelle In Worksheets("Tabelle1").UsedRange
If raZelle.Interior.ColorIndex = 15 Then
ReDim Preserve arrWerte(0 To 2, 0 To lZaehler)
arrWerte(0, lZaehler) = raZelle.Address
arrWerte(1, lZaehler) = raZelle.Interior.Color
raZelle.Interior.ColorIndex = 6
lZaehler = lZaehler + 1
End If
Next raZelle
End With
Application.ScreenUpdating = True
MsgBox ("habe fertig")
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP