Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1156to1160
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

Ausdrucken mit Makro - Blätter nach Wert

Ausdrucken mit Makro - Blätter nach Wert
jens
Hallo Excel Profis,
ich habe ein Programm mit dem ich Ausdrucke erzeigen möchte.
Wenn in der Zelle "Tabelle1" D50 eine 1 steht, soll nur das Blatt B-1 ausgedruckt werden.
Bei einer 2 soll Blatt B-1 und B-2 ausgedruckt werden
Bei einer 3 soll Blatt B-1 und B-2 und B-3 ausgedruckt werden...
Das ganze geht bis zu 20.
Wie kann man das machen?
Muß man eine schleife nehmen oder besser case if?
Ist wahrscheinlich ganz einfach aber mir fehlt der Start schon.
Vielen Dank für Eure Hilfe
Gruß Jens
AW: Ausdrucken mit Makro - Blätter nach Wert
20.05.2010 12:25:07
Rudi
Hallo,
einfach Schleife
for i= 1 to Sheets("Tabelle1").Range("D50")
sheets("B-" & i).PrintOut
Next
Gruß
Rudi
AW: Ausdrucken mit Makro - Blätter nach Wert
20.05.2010 12:36:20
jens
Hallo Rudi,
das ist ja ultrakurz und funktioniert super!
Ich habe allerding doch noch etwas vergessen:
In den B-&i Blättern steht in Zelle B3 noch die Anzahl der zu druckenden Blätter (von diesem Blatt) - bekommt man das auch noch hin?
Vielen Dank schon mal für Deine Hilfe
Viele Grüße Jens
AW: Ausdrucken mit Makro - Blätter nach Wert
20.05.2010 12:46:26
Rudi
Hallo,
sheets("B-" & i).PrintOut copies:=sheets("B-" &i).Range("B3")
Gruß
Rudi
AW: Ausdrucken mit Makro - Blätter nach Wert
20.05.2010 12:50:30
jens
Hallo Rudi,
wahnsinn - in einer Zeile.
Ich bewundere das wirklich.
Vielen vielen Dank und noch einen schönen Tag wünsche ich Dir
Viele Grüße Jens
Anzeige
AW: Ausdrucken mit Makro - Blätter nach Wert
20.05.2010 12:26:43
welga
Hallo,
versuch es mal so: (ungetestet)
Sub druck()
Dim i As Long
If IsNumeric(Sheets("Tabelle1").Cells(50, 4)) And Sheets("Tabelle1").Cells(50, 4)  ""  _
Then
For i = 1 To Sheets("Tabelle1").Cells(50, 4).Value
Sheets("Blatt B-" & i).Print
Next i
Else
MsgBox "Bitte Anzahl Blätter angeben"
End If
End Sub
Gruß
welga
AW: Ausdrucken mit Makro - Blätter nach Wert
20.05.2010 12:38:08
jens
Hallo Welga,
Vielen Dank, das funktioniert super! Ich habe die Version von Rudi genommen, die geht ohne Nachfrage und der Code ist ja untralurz.
Ich habe allerdings doch noch etwas vergessen:
In den B-&i Blättern steht in Zelle B3 noch die Anzahl der zu druckenden Blätter (von diesem Blatt) - bekommt man das auch noch hin?
Vielen Dank schon mal für Deine Hilfe
P.S. die Frage habe ich auch an Rudi gestellt, ihr wart je eben beide superschnell
Viele Grüße Jens
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige