Code mit With-Anweisung
22.09.2015 22:10:06
Peter
ich habe eine Bitte an Euch.
Wie müsste der Rangebefehl für die Range Zeile heißen?
Ich erhalte andauernd die Fehlermeldung 1004. Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.
with wksTest
.Range(Cells(lngZ, 3), Cells(lngZ, LetzteSP)).Select
'------------------------------------------------------
'Grau einfärben
'------------------------------------------------------
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With
end with
Ich danke jetzt schon für Eure Unterstützung,
LG, Peter