vba musterformat selbe farbe wie zelle
08.11.2017 10:52:22
bassi
könnte ich Euch um Hilfe bitten?
Ich habe eine Range in der ich jede zweite Zeile grau einfärbe. (code aus dem inet)
Nun möchte ich in bestimmten Spalten ein Muster hinzufügen. Hier komme ich aber nicht weiter, finde auch nichts was so funktioniert wie ich das bräuchte.
Auch aus dem was der Recorder aufnimmt bekomme ich nicht gescheites gestrickt :-(
Ich möchte das er das ganz grob Pixelige Muster mit der Farbe des Hintergrundes in den ausgewählten Bereichen setzt.
Oder aber eben in diesen bestimmten Spalten gleich nur jede zweite Zeile ein Muster setzt. Ergibt wohl den selben Effekt.
Public Sub färben()
Dim lngRow As Long
With ActiveSheet
For lngRow = 8 To 2000 Step 2
.Range(.Cells(lngRow, 2), .Cells(lngRow, 19)).Interior.Color = RGB(245, 245, 245)
Next
End With
With Selection.Interior
.Pattern = xlGray8
.PatternThemeColor = xlThemeColorDark1
.Color = 13684944
.TintAndShade = 0
.PatternTintAndShade = -0.249946592608417
End With
With ActiveSheet.Range("J8:J2000,P8:P2000,R8:R2000").Select
With Selection.Interior
End With
End With
end sub
Viele Grüße
bassi
Anzeige