Rot einfärben der Zellen

Bild

Betrifft: Rot einfärben der Zellen
von: Toumas
Geschrieben am: 23.07.2015 11:02:41

Hallo zusammen,
hab mir das Makro unten selbst zusammengeschustert, funktioniert auch soweit ganz gut
Jetzt hab ich nur noch das Problem, dass ich die eingefügten Werte Rot färben muss...
und das bekomme ich irgendwie nicht hin.
mit Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).Font.Color = -16776961
Macht er mir immer nur die erste Zelle von den betroffenen....
Mein Makro :

Sub test1()
Dim s As String
Dim laR As Long
s = Sheets("Usereingabe").Range("B4").Text
Application.Goto reference:=Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 1), Scroll:=True
Sheets("Usereingabe").Range("C3:G3").Copy
Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
       :=False, Transpose:=False
 
Sheets("Usereingabe").Range("C6:G6").Copy
Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 10).PasteSpecial Paste:=xlPasteValues, Operation: _
=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Für einen Tipp wäre ich sehr dankbar.
Viele Grüße
Toumas

Bild

Betrifft: AW: Rot einfärben der Zellen
von: Toumas
Geschrieben am: 23.07.2015 12:25:07
selbst gefunden... hab mir ne Schleife gebastelt....
For I = 5 To 24
Sheets("Tabelle2").Cells(Columns(2).Find(s, lookat:=xlWhole).Row, I).Font.Color = -16776961
Next I

Bild

Betrifft: AW: Rot einfärben der Zellen
von: Rudi Maintaire
Geschrieben am: 23.07.2015 12:28:38
Hallo,
Cells(Columns(2).Find(s, lookat:=xlWhole).Row, 5).Resize(,5).Font.Color = -16776961
Gruß
Rudi

Bild

Betrifft: AW: Rot einfärben der Zellen
von: Toumas
Geschrieben am: 23.07.2015 13:03:53
Hallo Rudi,
super, vielen Dank
Grüße
Toumas

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Rot einfärben der Zellen"