Druckbereich aus Zelleninhalt

[sven-my]

Hallo Experten,

aus einem Beitrag hier im Forum habe ich mir folgendes Makro zusammengestrickt:

Code: Alles auswählen

sub Druckbereich
Dim aDruckbereich(0)
oDoc = thiscomponent
oSheet = oDoc.Sheets.getByName("schichtplan Druck")

AZ = oSheet.getCellRangeByName("P14").value
EZ = oSheet.getCellRangeByName("Q14").value

AZn = format(AZ,"#")
EZn = format(EZ,"#")

Bereich = chr(34) & "$A$" & AZn & ":" & "$N$" & EZn & chr(34) 'Version 1

msgbox bereich
'exit sub

'Bereich = "$A$9:$N$56"		'Version 2

'oZellRange = oSheet.getCellRangeByName("$A$9:$N$56")
oZellRange = oSheet.getCellRangeByName(Bereich)
oCursor = oSheet.createCursorByRange(oZellRange)
oAdress = oCursor.RangeAddress
aDruckbereich(0) = oAdress
oSheet.setPrintAreas(aDruckbereich)
end sub

Warum bekomme ich in Versin 1 die Fehlermeldung, obwohl es mit Version 2 klappt ?

gruß
sven-my

[DPunch]

Aloha

Warum bekomme ich in Versin 1 die Fehlermeldung, obwohl es mit Version 2 klappt ?

Weil Calc keinen Zellbereich mit dem Namen

Code: Alles auswählen

"$A$9:$N$56"

kennt, sondern nur einen mit dem Namen

Code: Alles auswählen

$A$9:$N$56

Die Anführungszeichen sind *nicht* Teil des Namens, sondern nur eine Kennzeichnung, dass es sich um einen String handelt.

[sven-my]

Hallo DPunch,

Ich danke Dir !

Typisches Beispiel für den Spruch mit dem Wald und den Bäumen.

gruß
sven-my