|
Hallo zusammen,
ich benötige ein Marko mit dem ich in Einem Excel Tabellenblatt eine Farbformatierung durchführen kann.
Ist Zustand: Momentan sind einzelne Zellen in der Tabelle hellgrün markiert (RGB 0, 255, 0)
Das Makro soll nun in einem definierbaren Bereich die Spalten durchgehen und dabei nach den hellgrün markierten Zellen suchen.
Wenn 2 aufeinanderfolgende Zellen markiert sind, sollen diese beiden rot Markiert werden.
Stehen 5 Zellen untereinander sollen diese blau markiert werden.
Einzelne hellgrüne Zellen sollen so gelassen werden.
Mit VBA habe ich mich bis vor kurzem noch nie beschäftigt, dennoch habe ich mich mal an dem Code versucht.
Mein bisheriger Code markiert allerdings jede Farbige Zelle und läuft schrittweise.
Zudem ist im Moment nur der Fall mit 2 aufeinanderfolgenden Zellen vorhanden.
Sub Farbe2()
Dim rngZeile As Range
Dim rngZelle As Range
Dim lngZeile As Long
Dim rngSpalte As Range
Dim lngSpalte As Range
Dim i As Integer
lngZeile = 1
i = 0
For Each rngSpalte In ActiveSheet.Range("A1:K11000").Columns 'Suchbereich anpassen
For Each rngZelle In rngSpalte.Cells
If rngZelle.Interior.Color = RGB(0, 255, 0) Then
i = i + 1 'Zähler für bedingte Formatierung (2,5 aufeinanderfolgende)
lngZelle = lngZelle + 1
If rngZelle.Interior.Color = RGB(0, 255, 0) And i = 1 Then 'Wenn hellgrün und Zähler 1 --> Rot markieren
rngZelle.Interior.Color = RGB(255, 0, 0)
lngZelle = lngZelle - 1
rngZelle.Interior.Color = RGB(255, 0, 0)
lngZelle = lngZelle + 2
End If
Exit For
End If
Next rngZelle
Next rngSpalte
End Sub
|