Private Sub CommandButton1_Click()
Call Farbformatierung(Cells())
End
SubPrivate Sub Worksheet_Change(ByVal Target As Range)
Call Farbformatierung(Target)
End Sub
Sub Farbformatierung(Zellen As Range)
Dim Status As Boolean, n As Long
Farbe = Array(3, 34)
Status = True
SpalteWert = 3
Startzeile = 2
SpalteErste = 1
SpalteLetzte = 6
n = Startzeile While Cells(n, SpalteWert)
If Cells(n, SpalteWert) <> Cells(n - 1, SpalteWert) Then Status = Not Status Range(Cells(n, SpalteErste), Cells(n, SpalteLetzte)).Interior.ColorIndex = Farbe(Status * -1)
n = n + 1
Wend
End Sub
Zeilen löschen nach bestimmter Uhrzeit
andrepopo 08.01.2007 - 77 Hits - 7 Antworten
Zeilen löschen
Aloha089 14.02.2007 - 79 Hits -
Excel Zeilen löschen
Smart79 07.09.2007 - 291 Hits -
zeilen löschen
SARP 19.12.2007 - 147 Hits - 1 Antwort
Zeilen mit leeren Zellen löschen
brs 16.06.2008 - 301 Hits - 7 Antworten