Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1824to1828
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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige