hat jemand von euch einen Vorschlag wie ich dieses File
https://www.herber.de/bbs/user/43057.xls
übersichtlicher gestalten kann.
Bei Farbänderung aufgepasst es sind schon Farben enthalten.
Hoffe ihr habt eine Idee.
MfG
Stefan
Sub WechselndeZeilenFarbe()
Dim CIdx(2) As Integer, r As Long, rngC As Range
CIdx(1) = xlNone
CIdx(2) = 34
For r = 4 To Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range(Cells(r, "A"), Cells(r, "R"))
With rngC.Interior
If .ColorIndex = xlNone Then
.ColorIndex = CIdx(r - 2 * Int(r / 2) + 1)
End If
End With
Next rngC
Next r
End Sub
Vielleicht ist das ein Schritt in die gewünscht Richtung
Gruß,
Uwe
Sub WechselndeZeilenFarbe()
Dim CIdx(2) As Integer, r As Long, rngC As Range
CIdx(1) = Cells(4, "A").Interior.ColorIndex
CIdx(2) = Cells(5, "A").Interior.ColorIndex
For r = 4 To Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range(Cells(r, "A"), Cells(r, "R"))
With rngC.Interior
If .ColorIndex = xlNone Then
.ColorIndex = CIdx(r - 2 * Int(r / 2) + 1)
End If
End With
Next rngC
Next r
End Sub
Sub LöscheWechselndeZeilenFarbe()
Dim CIdx(2) As Integer, r As Long, rngC As Range
CIdx(1) = Cells(4, "A").Interior.ColorIndex
CIdx(2) = Cells(5, "A").Interior.ColorIndex
For r = 4 To Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range(Cells(r, "A"), Cells(r, "R"))
With rngC.Interior
If .ColorIndex = CIdx(2) Then
.ColorIndex = xlNone
End If
End With
Next rngC
Next r
End Sub
Bitte ersetze das bestehende Makro und ergänze das zweite Makro.
Wenn Du also das Makro WechselndeZeilenFarbe() ausgeführt hast, dann kannst Du die Farbwahl mit dem Makro LöscheWechselndeZeilenFarbe() rückgängig machen.
Wichtig ist, dass nun die Farbwahl nach der Farbwahl der Zelle A4 und A5 gesetzt wird. Wenn Du mit festen Zahlenwerten im Programm arbeiten willst, dann sin die Zuweisungzeilen entsprechend zu ersetzen, z.B.:
CIdx(1) = xlNone
CIdx(2) = 15
oder gleichwertig:
CIdx(1) = 2
CIdx(2) = 15
Viel Erfolg und Gruß,
Uwe
Option Explicit
Sub ShowBgColor()
Dim r As Long
For r = 1 To &HFFF
On Error GoTo LastColorIndexNr
Range("A" & r).Interior.ColorIndex = r
Cells(r, 2) = r
Cells(r, 3) = Hex(r)
Next r
LastColorIndexNr:
MsgBox "Letzte gültige Interior.ColorIndex-Nr = " & r - 1
End Sub
Als Kandidat für eine weitere hellere Farbe kämme vielleicht der Colorindex 24 in Frage.
CIdx(1)=2 'weiß
CIdx(2)=24
Gruß,
Uwe