Druckbereich per Variable

Forumthread: Druckbereich per Variable
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Druckbereich per Variable

12.04.2021 20: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

AW: Druckbereich per Variable

12.04.2021 21:08:07

ralf_b
AW: Druckbereich per Variable

12.04.2021 21:22:17

ralf_b
AW: Druckbereich per Variable

13.04.2021 11:01:55

Alf16
Sorry, ist erledigt!

13.04.2021 11:02:33

Alf16

AW: Druckbereich per Variable

12.04.2021 21: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 21: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