Durch SVERWEIS geänderte Tabellenblätter ausdrucken

Forumthread: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

27.06.2024 13:54:43

Machotill

Hallo zusammen,

ich habe ein Tabellenblatt, in dem ich per Drop-Down diverse Inhalte aufrufen kann. Andere Zellen werden entsprechend der Auswahl per SVERWEIS befüllt.
Ich kann so ca. 20 verschiedene "Formulare" erstellen.

Die Frage ist, ist es möglich, dass ich diese verschiedenen Formulare gleichzeitig ausdrucken kann?

Schöne Grüße

Machotill

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

27.06.2024 14:20:50

daniel

Hi

deine Frage ist jetzt noch recht allgemein.

Wenn du mit VBA arbeitest, kannst du die Blätter, die gedruckt werden sollen, als Gruppe selektieren und dann diese ausdrucken.
um so eine Gruppe zu erstellen, selektiert man die Blätter nacheinander, allerdings mit ab dem zweiten Blatt dann mit .Select False
das False bewirkt, dass die alte Selektion nicht aufgehoben wird, sondern das Blatt zur Gruppe hinzugefügt wird.
wenn du also die Blätter 2, 4 und 8 drucken willst, dann:

Sheets("Tabelle2").Select

Sheets("Tabelle4").Select False

Sheets("Tabelle6").Select False

ActiveWindow.SelectedSheets.PrintOut

Sheets("Tabelle1").Select 'Gruppe wieder aufheben

wenn ich eine Schleife über alle Blätter laufen lassen muss, weil ich bei jedem Blatt über Abfragen entscheiden muss, ob das Blatt zur Gruppe hinzu muss und ich vorher nicht weiß, welches das erste ist, mache ich es so:

dim chkSel as boolen

dim wsh as Worksheet



chkSel = True

for each wsh in Thisworkbook.Worksheets

    If Bedingugnsprüfung, ob Blatt gedruckt werden soll THEN

       wsh.Select chkSel

       chkSel = False

    end if

next

ActiveWindow.SelectedSheets.PrintOut

Sheets("Tabelle1").Select 'Gruppe wieder aufheben

damit erreiche ich, dass die erste Selektion mit TRUE stattfindet und die weiteren mit FALSE

Gruß Daniel

AW: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

28.06.2024 10:19:22

Machotill

Hi und danke für deine Antwort,

Ich habe das aber glaube ich nicht ganz klar formuliert.
Es werden durch das drop down keine weiteren Tabellenblätter erzeugt oder geändert, es wird immer nur das Blatt geändert in dem das drop down vorhanden ist.

Habe dazu mal eine seeeeeehr abgespeckte Variante erstellt:

https://www.herber.de/bbs/user/170555.xlsx

Schöne Grüsse

AW: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

28.06.2024 11:30:00

daniel

OK verstanden (hoffe ich zumidest)
du willst also alle Auswahlmöglichkeiten, die in Matrix1 Spalte 1 vorgegeben sind, einmal eingeben und dann das Blatt drucken.

das geht relativ einfach, sofern jede Seite ein einzelner echter Druckauftrag für einen realen Drucker ist:

dim Zelle as Range

for each Zelle in Range("matrix1").Columns(1).Cells

        Sheets("B").Range("B6").Value = Zelle.Value

        Sheets("B").PrintOut

next

Gruß Daniel

AW: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

28.06.2024 12:00:02

Machotill

Super, ich danke dir!

Das hat perfekt geklappt .

Angenehmen Tag noch.

Beliebteste Forumthreads (12 Monate)

Durch SVERWEIS geänderte Tabellenblätter ausdrucken

Forumthread: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Durch SVERWEIS geänderte Tabellenblätter ausdrucken

Forumthread: Durch SVERWEIS geänderte Tabellenblätter ausdrucken

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread