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