mit VBA Druckversion generieren

Forumthread: mit VBA Druckversion generieren

williams

Hallo zusammen!
Bin neu in VBA und muss eine Druckversion generieren. Die Anzahl der Zeilen ist variabel. Bei der Druckansicht soll dann je nach Anzahl der Zeilen die letzte Zeile eine andere sein (Übertrag oder Summe).
Meine Idee ist es, nach einer festen Anzahl von Zeilen (so viele wie auf ein Blatt passen würden) den Übertrag/Summe einzufügen.
Wie mache ich das nun in VBA....
Mit
srgendwas = Range("A1").Value
hole ich mir den Inhalt der Zeile Übertrag/Summe
Jetzt müsste ich das irgendwie "insert"-en.
Könnte mir jemand helfen?
Vielen Dank!
Tony

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: mit VBA Druckversion generieren

Hajo_Zi
AW: mit VBA Druckversion generieren

williams

AW: mit VBA Druckversion generieren

24.08.2009 17:33:33

Hajo_Zi

Halo Tonny,
Zwischensumme pro Seite

Sub Zwischensumme()
 Bildet die Zwischensumme der Spalte A nach jeweils 49 Zeilen, fügt einen Seitenwechsel ein  _
und überträgt die Zwischensumme auf die neue Seite
For i = 50 To 500 Step 50
a = i + 2
Rows(i).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Cells(i, 1).FormulaR1C1 = "=SUM(R[-49]C:R[-1]C)"
Cells(i + 1, 1).Value = Cells(i, 1)
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
Next i
End Sub

Von Heidrun
Übertrag automatisch am Seitenende
also das ganze ist nicht ganz so einfach.
Ich hab mich damit auch einige Tage (vielleicht auch Wochen), beschäftigt.
Und langsam ist bei mir meine Rechnungsvorlage gewachsen.
Also die Zeile mit wo der Umbruch stattfindet, ermittele ich immer so
If Worksheets(1).HPageBreaks.Count Then
Zeile = Worksheets(1).HPageBreaks(1).Location.Row 1
Else
Cells(Rows.Count, 1) = 3
Zeile = Worksheets(1).HPageBreaks(1).Location.Row 1
Cells(Rows.Count, 1).ClearContents
End If
Allerdings musst du darauf achten, dass schon der Richtige Drucker gewählt ist.
Dann musst du im Prinzip bei jeder Eingabe oder sogar bei jedem Cellenwechsel fragen ob der Seitenumbruch statt findet, und wenn ja dann halt den Übertrag einfügen.
von Klapperstorch
Schau dir aber mal diesen Link an:
http://www.excel-center.de/freeware/artikel.php?ide=ad2001-07-23-1113

AW: mit VBA Druckversion generieren

24.08.2009 21:31:11

williams

Hallo Hajo,
vielen Dank schon mal. Ich gehe das jetzt mal durch und melde mich ggf. noch einmal.
Danke :)
Tony

Beliebteste Forumthreads (12 Monate)

Forumthread: mit VBA Druckversion generieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread