schattierung aus vb in excel

[Luda]

hallo, ich möchte gerne aus vb in excel zeilen formatieren und schattieren.
Aber irgendwie klappt das mit dem code nicht (unterstützt objekt unterstützt diese eigenschaft nicht)
den code habe ich durch das aufzeichnen eines makros


hier mein code

excelApp.Workbooks(1).Sheets(1).Range("a4:i4").Select
excelApp.Workbooks(1).Sheets(1).Selection.Interior
excelApp.Workbooks(1).Sheets(1).Selection.ColorIndex = 0
excelApp.Workbooks(1).Sheets(1).Selection.Pattern = xlGray16
excelApp.Workbooks(1).Sheets(1).Selection.PatternColorIndex = xlAutomatic

 

[tuxracer]

Hy Luda


ich weiss zwar nicht genau, was Du gemacht hast beim aufzeichnen, aber ich bekomm wenn ich das aufzeichne, was Du da willst folgendes


Sub Makro2()


Range("A4:I4").Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray16
.PatternColorIndex = xlAutomatic
End With
End Sub

 

[DrSoong]

Kann eventuell daran liegen, dass du VBA-Variablen verwendest (xlGray16, xlAutomatic) die VB nicht kennt. Ermittle die Werte dieser Variablen (in Excel das ganze schreiben, einen Haltepunkt knapp vor Ende, der ToolTip der Variablen zeigt dir den Wert) und setzte sie in der VB-Version ein.


Der Doc!

 

[Luda]

ok, jetzt klappt es!

 

[tuxracer]

@Dr Soong


das was Du da geschrieben hast, ist wohl ne kurze Einleitung zum Debugen, aber leider kann er, wenn er das Makro aufgezeichnet hat, wohl keine nicht bekannten Variablen bekommen.


Zudem ich hab zwar anderen Code bekommen, aber die Variablen die ich nachher verwendet hab, hab ich aus seinem Macro kopiert, und das Macro getestet; dieses Teil läuft.


Edit: Aha anscheinend war der fragesteller schneller