mehrere Sheets selektieren in VBA

Private Sub CommandButton1_Click() Dim Druckbereich As String, iCounter As Integer iCounter = Selection.Count For i = 1 To iCounter Gehalt_M.Copy before:=Gehalt_M Sheets(Gehalt_M.Name & " (" & i + 1 & ")").Range("C6") = Gehalt_M_Liste.Range("A" & i + 2) Druckbereich = Druckbereich & """" & Gehalt_M.Name & " (" & i + 1 & ")" & """" If i

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim Druckbereich As String, iCounter As Integer, i As Integer iCounter = Selection.Count For i = 1 To iCounter Gehalt_M.Copy before:=Gehalt_M ActiveSheet.Range("C6") = Gehalt_M_Liste.Range("A" & i + 2) Druckbereich = Druckbereich & "|" & ActiveSheet.Name Next Druckbereich = Mid(Druckbereich, 2) Sheets(Split(Druckbereich, "|")).PrintOut End Sub

Private Sub CommandButton1_Click() Dim iCounter As Integer, i As Integer Dim arrToPrint() iCounter = Selection.Count ReDim arrPrint(iCounter - 1) For i = 1 To iCounter Gehalt_M.Copy before:=Gehalt_M ActiveSheet.Range("C6") = Gehalt_M_Liste.Range("A" & i + 2) arrToPrint(i - 1) = ActiveSheet.Name Next Sheets(arrToPrint).PrintOut End Sub

Hallo Rudi,
wie angedro... ääh, ...kündigt, hier eine Beispieldatei. Vielleicht findet ja jetzt jemand den Fehler.
https://www.herber.de/bbs/user/155912.xlsm
Nochmal zur Idee und Vorgehensweise:
im Blatt "Gx" sollen in der Spalte A die auszudruckenden Belege markiert werden. Anschließend wird eine Kopie des Blattes "G" erstellt, die Belegnummer der ersten markierten Zelle eingetragen und dann der nächste, bis die markierten Belege abgearbeitet sind. Danach sollen alle erstellten Kopien in einem Rutsch gedruckt werden (Standard-Drucker ist auf pdf eingestellt), am Ende können die erstellten Belege wieder gelöscht werden. Nur die Blätter "Gx" und "G" müssen dauerhaft bleiben.
Danke und Gruß
David

Hallo Gerd,
Gehalt_M ist ein Sheet (eine Art Formular), in dem abhängig von einer Variable verschiedener Content enthalten ist. Gehalt_M_Liste enthält eine Tabelle, in der zu jeder (fortlaufenden ) Variable verschiedene Werte stehen. Bisher war es so, dass ich dieses Formular mehrere Male im der Mappe hatte, in jeder einzelnen mit verschiedenen Werten. Diese werden einmal am Monatsende aktualisiert und alle zusammen ausgedruckt (pdf). Da in der Tabelle noch andere Blätter sind, ist das arg unübersichtlich geworden. Daher wollte ich das Formular auf ein "Master" beschränken, die verschiedenen Wert in einer Tabelle abhängig von einer Variable (=Belegnummer). Nun sollte nacheinander die verschiedenen Belegnummer eingetragen, das Formular gedruckt werden und dann das nächste, etc. Leider kann man (mMn) den pdf-Druck nicht ohne weiteres für mehrere Drucke nacheinander in einer Datei sammeln, es erscheint jedesmal ein einzelner Druckdialog und man hat am Ende mehrere pdfs, die man dann noch manuell zusammenfügen muss. Daher meine Idee, das Grundformular x-mal zu kopieren, in jedes eine andere Belegnummer, dann alle Blätter selektieren, ausdrucken und anschließend wieder löschen.
Dazu wird dann in der Liste der Bereich der Belegnummer markiert und über einen Commandbutton das Makro ausgelöst. Das ganze soll so variabel sein, dass ich wahlweise nur einen oder mehrere der Belege auswählen und drucken kann, daher die Zählung über Selection.Count.
Das Ganze wäre sicher über eine Beispielmappe besser verständlich sein, aber ich dachte, das eigentliche Problem wäre leichter zu lösen, der Rest funktioniert ja soweit. Zum Hochladen muss ich einiges an vertraulichen Daten entfernen, daher habe ich diesen Schritt erstmal aufgeschoben.
Aber vermutlich werde ich nicht darum herum kommen. Ich werde morgen noch Rudis letzten Tip versuchen und das dann entweder so lösen oder ich bastele eine Beispielmappe.
Aber danke für dein Interesse, auch wenn es zumindest mir hier nicht weiterhilft.
Gruß
David

Beliebteste Forumthreads (12 Monate)

mehrere Sheets selektieren in VBA

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

90 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrere Sheets selektieren in VBA

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

90 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread