iAuswahl = Range("A1").value
Select Case Auswahl
Case 1: Druckbereich="A1:B10"
Case 2: Druckbereich="A11:B20"
'...
End Select
Den genauen Code für eine Änderung des Druckbereichs kannst Du aufzeichnen. Im Case setzt Du nur die Definition eines Bereichs und nach End Select dann den kompletten Code zum Druckbereich setzen.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:1 Nutzer sagt Danke an schauan für diesen Beitrag 28 • Xenon85
14.01.2020, 07:24 (Dieser Beitrag wurde zuletzt bearbeitet: 14.01.2020, 07:26 von Xenon85.)
Würde mir das hier mal jemand einstellen.
Ich bekomm das nicht hin
Wenn 1 ausgewählt ist soll der rote Bereich gedruckt werden
Wenn 2 ausgewählt ist soll der rote und der grüne Bereich gedruckt werden
Wenn 3 ausgewählt ist soll der rote, grüne und gelbe Bereich gedruckt werden
Vielen dank
Erweitern auf weitere Felder werde ich noch hinbekommen.
Sub Druckmakro()
Dim lngAnzahl As Long
For lngAnzahl = 1 To Worksheets("Eingabe").Range("E9").Value
Select Case lngAnzahl
Case 1
Worksheets("Druck").Range("A2:J12").PrintPreview
Case 2
Worksheets("Druck").Range("A13:J24").PrintPreview
Case 3
Worksheets("Druck").Range("A25:J36").PrintPreview
Case Else
Exit For
End Select
Next lngAnzahl
End Sub
Zum Testen ist momentan die Anweisung PrintPreview drin. Zum richtigen Drucken bitte ändern in PrintOut.
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • Xenon85
Sub Druckmakro()
Dim lngAnzahl As Long
For lngAnzahl = 1 To Worksheets("Eingabe").Range("E9").Value
Select Case lngAnzahl
Case 1
Worksheets("Druck").Range("A2:J12").PrintOut
Case 2
Worksheets("Druck").Range("A13:J24").PrintOut
Case 3
Worksheets("Druck").Range("A25:J36").PrintOut
Case Else
Exit For
End Select
Next lngAnzahl
End Sub
Ist schon super.
Aber die Felder sollten nicht alle einzeln gedruckt werden, sondern zusammnenhängend.
Je höher die Zahl desto mehr bereiche, aber alle auf einem Blatt.
(14.01.2020, 08:45)Xenon85 schrieb: Aber die Felder sollten nicht alle einzeln gedruckt werden, sondern zusammnenhängend.
Je höher die Zahl desto mehr bereiche, aber alle auf einem Blatt.
Sub Druckmakro()
Select Case Worksheets("Eingabe").Range("E9").Value
Case 1
Worksheets("Druck").Range("A2:J12").PrintPreview
Case 2
Worksheets("Druck").Range("A2:J24").PrintPreview
Case 3
Worksheets("Druck").Range("A2:J36").PrintPreview
End Select
End Sub
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • Xenon85