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