OpenOffice.info

Hallo DPunch,

Ich danke Dir !

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

gruß
sven-my

"$A$9:$N$56"

$A$9:$N$56

Aloha

[quote="sven-my"]Warum bekomme ich in Versin 1 die Fehlermeldung, obwohl es mit Version 2 klappt ?[/quote]
Weil Calc keinen Zellbereich mit dem Namen
[code]"$A$9:$N$56"[/code]
kennt, sondern nur einen mit dem Namen
[code]$A$9:$N$56[/code]

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

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

Hallo Experten,

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

[code]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
[/code]

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

gruß
sven-my