Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich per Variable

Forumthread: Druckbereich per Variable

Druckbereich per Variable
12.04.2021 18:34:54
Alf16
Hallo,
könnt ihr mir bitte helfen, ich habe schon einen Knoten im Hirn! Ich sehe den Fehler einfach nicht! Ich möchte einem Sheet einen wechselnden Druckbereich zuordnen, den ich jeweils einer Variablen zuordne. 
Sub DruckbereichFestlegen_PE()
Dim sDruckBereich$, sDruckPE_1$, sDruckPE_2$, sDruckPE_3$, sDruckPE_4$
sDruckPE_1 = "PE!$A$1:$I$7"
sDruckPE_2 = "PE!$A$1:$I$7,PE!$J$8:$R$14"
sDruckPE_3 = "PE!$A$1:$I$7,PE!$J$8:$R$14,PE!$S$15:$AA$21"
sDruckPE_4 = "PE!$A$1:$I$7,PE!$J$8:$R$14,PE!$S$15:$AA$21,PE!$AB$22:$AJ$28"
sDruckBereich = "sDruckPE_" & [Cell_AnzPaletten] ' hier soll der String zusammengesetzt  _
werden.
ActiveSheet.PageSetup.PrintArea = sDruckBereich ' hier kommt der Fehler
End Sub

Vielen Dank im Voraus!
Alf
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich per Variable
12.04.2021 19:08:07
ralf_b
und was genau steht in sDruckBereich drin zum Zeitpunkt des Fehlers?
ich rate mal. da steht z.b. "sDruckPE_1"
du übergibst da einen Text und keine Variable.
AW: Druckbereich per Variable
12.04.2021 19:22:17
ralf_b
versuchs mal damit 
Sub DruckbereichFestlegen_PE()
Dim sDruckBereich$
Dim i As Integer
Dim sDruckPE_(1 To 4) As String
sDruckPE_(1) = "PE!$A$1:$I$7"
sDruckPE_(2) = "PE!$J$8:$R$14"
sDruckPE_(3) = "PE!$S$15:$AA$21"
sDruckPE_(4) = "PE!$AB$22:$AJ$28"
For i = 1 To [Cell_AnzPaletten]
sDruckBereich = sDruckBereich & "," & sDruckPE_(i)
Next i
sDruckBereich = Mid(sDruckBereich, 2, 50)
ActiveSheet.PageSetup.PrintArea = sDruckBereich ' hier kommt der Fehler
End Sub

Anzeige
AW: Druckbereich per Variable
13.04.2021 09:01:55
Alf16
Hallo Ralf,
vielen Dank für deinen Vorschlag. Damit krieg ich es hin!
VG Alf
Sorry, ist erledigt!
13.04.2021 09:02:33
Alf16
00000
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige