Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

bei Druck Zusammenzug in Liste

bei Druck Zusammenzug in Liste
19.05.2014 08:06:48
Stephan
Guten Morgen,
vorerst wünsche ich allen einen guten Start in die neue Woche.
Ich habe folgende Frage, ist es möglich Daten aus einer Liste beim drücken eines "Druckbuttons" in weiters Sheer über zu führen.
Siehe auch die angefügte Datei "Sheet Rechnung".
Aus "B6" "D6" "F6" sollen die WErte in ein zweites Sheet "Zusammenzug" beim jeweiligen Druck übernommen werden. Die Schwierigkeit ist darin, dass jeweils bei einer Neuerfassung, die neuen Daten im Zusammenzug wiederum unten an die bestehenden angefügt werden sollten. Also keine Überschereibung.
https://www.herber.de/bbs/user/90728.xlsx
Besten Dank.
Freundlicher Gruss
Stephan

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

Betreff
Datum
Anwender
Anzeige
AW: bei Druck Zusammenzug in Liste
19.05.2014 16:13:44
fcs
Hallo Stephan,
ein entsprechendes Makro schaut etwa wie folgt aus.
Gruß
Franz
Sub Drucken()
Dim wksRechnung As Worksheet, wksZus As Worksheet
Dim Zeile_R As Long, Zeile_Z As Long, spa_Z As Long
Set wksRechnung = ActiveWorkbook.Worksheets("Rechnung")
Set wksZus = ActiveWorkbook.Worksheets("Zusammenzug")
Zeile_R = 6 'Startzeile mit Werten in Rechnung
With wksZus
Zeile_Z = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Datenzeile in Zusammenzug
Do Until wksRechnung.Cells(Zeile_R, 1) = ""
Zeile_Z = Zeile_Z + 1
spa_Z = 0
spa_Z = spa_Z + 1: .Cells(Zeile_Z, spa_Z).Value = wksRechnung.Cells(Zeile_R, 1).Value
spa_Z = spa_Z + 1: .Cells(Zeile_Z, spa_Z).Value = wksRechnung.Cells(Zeile_R, 2).Value
spa_Z = spa_Z + 1: .Cells(Zeile_Z, spa_Z).Value = wksRechnung.Cells(Zeile_R, 4).Value
spa_Z = spa_Z + 1: .Cells(Zeile_Z, spa_Z).Value = wksRechnung.Cells(Zeile_R, 6).Value
Zeile_R = Zeile_R + 1
Loop
End With
wksRechnung.PrintOut preview:=True
End Sub

Anzeige
AW: bei Druck Zusammenzug in Liste
19.05.2014 16:49:41
Stephan
Hallo Franz,
besten Dank für die Lösung.
Funktioniert einwandfrei.
Ich wünsche noch einen schönen Abend.
Gruss Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige