AW: Bereich Zellen Färben mit Farbwahl
26.01.2017 08:40:49
Matthias
Hallo
Meinst Du so?
Option Explicit
Sub BereichZellenFaerben()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long, i As Long
Dim sl As Integer, sr As Integer
Dim Farbe1, Farbe2
On Error GoTo Fehler
Farbe1 = InputBox("Bitte Farbindex eingeben", "Farbindex 1", 15)
Farbe2 = InputBox("Bitte Farbindex eingeben", "Farbindex 2", 16)
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1) 'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row 'Zeile oben
zu = Range(ru).Row 'Zeile unten
sl = Range(lo).Column 'Spalte links
sr = Range(ru).Column 'Spalte rechts
For i = zo To zu Step 2
Range(Cells(i, sl), Cells(i, sr)).Interior.ColorIndex = Farbe1
Range(Cells(i + 1, sl), Cells(i + 1, sr)).Interior.ColorIndex = Farbe2
Next i
Exit Sub
Fehler:
MsgBox "Es ist ein Fehler aufgetreten" & vbLf & "Versuchen Sie bitte einen anderen Farbindex" _
b>
End Sub
Gruß Matthias