Select in With-Anweisung
30.05.2016 10:20:18
Peter
ich bitte um Eure Hilfe.
Es soll in einer zweiten Datei ein Tabelle formatiert werden. Dabei soll eine variable Range selektiert werden und anschließend blau eingefärbt werden.
Ich erhalte jedoch einen Fehler: Die Selectmethode des Range-Objektes konnte nicht ausgeführt werden (Laufzeitfehler 1004)
Wenn ich anstatt select den Befehl copy nehme dann läuft das Makro zwar bis zum Ende, aber die Zellen werden nicht blau eingefärbt. Was mache ich falsch? Wie werden die Zellen in einer With-Anweisung selektiert?
with x
LetzteS = .Cells(2, Columns.Count).End(xlToLeft).Column 'letzte Spalte
.Range(.Cells(2, 2), .Cells(4, LetzteS)).Select => Fehler
'Himmelblau einfärben
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With