Office: Summenstrich ziehen

Hallo,

ich habe grade versucht einen Summenstrich ziehen zu lassen,
leider kommt nichts raus dabei,
ich habe es so versucht:

lngZeile = Range(Rows.Count, "G").End(xlUp).Offset(-1, 0).Row
Range("G" & lngZeile).Borders (xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1

hat jemand eine Idee warum es nicht geht?

:)

 

Hallo Rudi,

so vielleicht?
Code:

Gruß Ingolf

 

Hi Ingolf,

wenn ich das so laufe lasse kommt der Laufzeitfehler 1004
Die Methode "Range" für das Objekt "_Global" ist fehlgeschlagen

 

Hallo Rudi,

da ich von deinem Code nur ein Stück und die dazugehörige Arbeitsmappe gar nicht kenne, hänge ich bezüglich der Fehlerursache ein wenig in der Luft. Eines kannst du aber noch versuchen, nämlich vor dem Zellbezug noch einen Bezug auf das gewünschte Tabellenblatt mit anzugeben. Also in etwa so:

Code:

Gruß Ingolf

 

Hi Ingolf,

leider hat das auch nicht geklappt.

Kann man dies vielleicht auch als DIM setzen?

 

Hallo Rudi,

ich hatte mich zu sehr auf die Codezeilen konzentriert, die den Rahmen einfügen. Der Fehler entsteht aber bereits in der ersten von dir angegebenen Codezeile. Ersetze dort Range durch Cells.

Gruß Ingolf

 

Hi Ingolf,

super, nun hat es geklappt.
Absolut super.

Vielen Dank




*wink.gif*