OpenOffice.info

Hallo

[quote="HKönig"]Ja, besten Dank. Es ist ja wirklich einfach, und tut was es soll. Mir fehlt einfach noch der richtige Durchblick. Ich war mal auf einer Seite, da wurden die Zusammenhänge der Klassen grafisch dargestellt. Finde das aber nicht mehr!

Viele Grüße
Helmut[/quote]

Meinst du zufällig [url]http://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1sheet_1_1XNamedRanges.html[/url]

Ja, besten Dank. Es ist ja wirklich einfach, und tut was es soll. Mir fehlt einfach noch der richtige Durchblick. Ich war mal auf einer Seite, da wurden die Zusammenhänge der Klassen grafisch dargestellt. Finde das aber nicht mehr!

Viele Grüße
Helmut

sub chgCellRanges(LastRow)
'Definierte ZellBereiche an neue Größe anpassen
  dim oRanges, oCellRange, oRefCells, oRefAdr as object
  dim iEndRow as long
  dim sAdr as string
 
  oRanges    = oDocTN.namedRanges
  oCellRange = oRanges.getByName("Loeschen_T1")   'liefert das Objekt des Benannten Bereiches
  
  oCellRange.content = rString(oCellRange.Content,"$") + LastRow  'content liefert und setzt den Inhalt (Bereich) als String
  
  ' fertig.
  
  'oRefCells  = oCellRange.referredCells
 ' sAdr       = rString(oRefCells.absoluteName,"$") + LastRow
 ' oRefCells.setPropertyValue("AbsoluteName",sAdr)
 ' oRefAdr    = oRefCells.rangeAddress
  'iEndRow    = oRefAdr.EndRow
 ' oRefAdr.EndRow = LastRow
end sub

...
oRefCells  = oCellRange.referredCells
REM nun folgt die Manipulation des extrahierten Objektes 
...
oCellRange.referredCells = oRefCells   'Rückschreiben des Objektes
...

Hallo HKönig,

falls Du es dennoch per Makro machen möchtest:

Der Code ist viel einfacher:

[code]sub chgCellRanges(LastRow)
'Definierte ZellBereiche an neue Größe anpassen
dim oRanges, oCellRange, oRefCells, oRefAdr as object
dim iEndRow as long
dim sAdr as string

oRanges = oDocTN.namedRanges
oCellRange = oRanges.getByName("Loeschen_T1") 'liefert das Objekt des Benannten Bereiches

oCellRange.content = rString(oCellRange.Content,"$") + LastRow 'content liefert und setzt den Inhalt (Bereich) als String

' fertig.

'oRefCells = oCellRange.referredCells
' sAdr = rString(oRefCells.absoluteName,"$") + LastRow
' oRefCells.setPropertyValue("AbsoluteName",sAdr)
' oRefAdr = oRefCells.rangeAddress
'iEndRow = oRefAdr.EndRow
' oRefAdr.EndRow = LastRow
end sub[/code]

Alle anderen Objekte wie bspw. absoluteName oder referredCells werden intern berechnet und angepasst. Darum musst Du Dich gar nicht kümmern;)

Noch ein genereller Tipp:
Wenn Du ein Objekt aus einem Objekt extrahierst (bei Dir im Beispiel die referredCells) und innerhalb des extrahierten Objektes Eigenschaften veränderst (wie bei Dir die EndRow), dann musst Du das geänderte Objekt auch wieder zurückschreiben - das passiert nicht automatisch.

In dem Fall also:
[code]...
oRefCells = oCellRange.referredCells
REM nun folgt die Manipulation des extrahierten Objektes
...
oCellRange.referredCells = oRefCells 'Rückschreiben des Objektes
...
[/code]

In deinem Fall hattest Du sogar zweimal ein Objekt extrahiert (2 Stufen) also müsstest Du es auch zweimal zurück schreiben. Spätestens da hättest Du eine Fehlermeldung erhalten - Objekt schreibgeschützt;)

Viele Grüße
Tom

Hallo,
warum brauchst du überhaupt ein Makro? Mit folgender Einstellung passt Calc die Bereiche selber an:[attachment=0]ref.png[/attachment]Gruß R

sub chgCellRanges(LastRow)
'Definierte ZellBereiche an neue Größe anpassen
  dim oRanges, oCellRange, oRefCells, oRefAdr as object
  dim iEndRow as long
  dim sAdr as string
  
  oRanges    = oDocTN.namedRanges
  oCellRange = oRanges.getByName("Loeschen_T1")
  oRefCells  = oCellRange.referredCells
  sAdr       = rString(oRefCells.absoluteName,"$") + LastRow
  oRefCells.setPropertyValue("AbsoluteName",sAdr)
  oRefAdr    = oRefCells.rangeAddress
  iEndRow    = oRefAdr.EndRow
  oRefAdr.EndRow = LastRow
end sub

function rString(pStr as string, sFind as string)
  dim iPos as integer
  
  for iPos = len(pStr) to 0 step -1
    if mid(pStr,iPos,1) = "$" then
      rString = left(pStr,iPos)
      exit function
    end if      
  next iPos
end function

Liebe Leute,

ich habe folgendes Problem: Ich habe unter EINFÜGEN/NAMEN mehrere Bereiche festgelegt. So z.B. auch "Loeschen_T1". Diese Bereiche sind bis zu einer Ende/Summenzeile definiert. Über einen Dialog "Neuer Teilnehmer" füge ich dann einen neuen Datensatz in das Calc-Sheet ein. Dadurch verschiebt sich die Ende/Summenzeile, wodurch ich auch dort die entsprechenden Formeln um die Bereichsvergrößerung erweitere. Soweit ist alles gut.
Nun habe ich auch eben diese Bereichs-Namen definiert, die bis zu dieser Ende/Summenzeile reichen (dienen eigentlich nur zum schnellen Löschen bestimmter Datenbereiche). Nun möchte ich aber, dass auch diese Bereiche an den erweiterten Zellenbereich angepasst werden.
Nur das schaffe ich offenbar nicht. Was mache ich da falsch?

Der Code sieht dazu folgendermaßen aus:
[code]sub chgCellRanges(LastRow)
'Definierte ZellBereiche an neue Größe anpassen
dim oRanges, oCellRange, oRefCells, oRefAdr as object
dim iEndRow as long
dim sAdr as string

oRanges = oDocTN.namedRanges
oCellRange = oRanges.getByName("Loeschen_T1")
oRefCells = oCellRange.referredCells
sAdr = rString(oRefCells.absoluteName,"$") + LastRow
oRefCells.setPropertyValue("AbsoluteName",sAdr)
oRefAdr = oRefCells.rangeAddress
iEndRow = oRefAdr.EndRow
oRefAdr.EndRow = LastRow
end sub

function rString(pStr as string, sFind as string)
dim iPos as integer

for iPos = len(pStr) to 0 step -1
if mid(pStr,iPos,1) = "$" then
rString = left(pStr,iPos)
exit function
end if
next iPos
end function
[/code]

rString() manipuliert die Adresse, sodass aus z.B. bei LastRow=214 aus $TN.$N$6:$AI$213 dann $TN.$N$6:$AI$214 wird, die ich in AbsoluteName dann einsetze, und dazu auch noch EndRow anpasse.

Aber wenn ich dann den Namen (im Beispiel "Loeschen_T1") wieder aufrufe, steht immer noch das Alte drinnen!? Der Bereich ist unverändert.

Viele Grüße
HKönig