Hallo, ich bin´s nochmal. Dein Makro funktioniert prima.
Ich wollte jetzt auch xlEdgeTop mit xlEdgeBottom tauschen. Ich dachte ich brauche nur die 7 und die 10 ändern:
With c.Borders(10)
.LineStyle = arr(i, 1)
.Weight = arr(i, 2)
.ColorIndex = arr(i, 3)
End With
With c.Borders(7)
.LineStyle = arr(i, 4)
.Weight = arr(i, 5)
.ColorIndex = arr(i, 6)
End With
Ich finde aber im kompletten Internet keine Zuweisung dieser Zahlen zu den Borders.
Welche Zahlen muß ich einsetzen, damit dein Makro für xlEdgeTop / xlEdgeBottom
funktioniert.
Vielen Dank
geschrieben von
ebu2
,
27.05.2006, 13:25 Uhr
, 16 mal gelesen