Seite 1 von 1
Re: Bereiche kopieren und neu anordnen
Verfasst: Sa, 23.04.2011 16:24
von turtle47
Hallo Uwe,
die Position der ersten leere Zelle einer Spalte bekommst Du mit:
Code: Alles auswählen
oSheet_Q = ThisComponent.getSheets.getbyName("Import")
oRange = oSheet_Q.getCellRangeByPosition(0,0,0,66000).queryEmptyCells
getFirstEmptyRow = Split(oRange.RowDescriptions(0)," ")
posFirstEmptyCell = getFirstEmptyRow(1)
print posFirstEmptyCell
Wenn die Zellen Deines zu kopierenden Bereichs durchgängig mit Inhalt versehen sind sollte es Dir weiterhelfen.
Jürgen
Re: Bereiche kopieren und neu anordnen
Verfasst: So, 24.04.2011 06:59
von F3K Total
Hallo Uwe,
Du hast in Deinem Code doch schon die letzte Zeile gefunden, benutzt sie aber nicht?
Code: Alles auswählen
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
Da für mich der Zweck deiner Neuanordnung nicht klar ist, kann ich Dir nicht sagen, wo Du die Zahl "letzte_Zeile" am besten einbauen solltest.
Gruß R
Re: Bereiche kopieren und neu anordnen
Verfasst: Mo, 25.04.2011 09:10
von F3K Total
Hi Uwe,
habe mal einen Code hier, der das Ergebnis in die zweite Tabelle ".Sheets(1)" schreibt:
Code: Alles auswählen
Sub Sort
dim Zaehler_neue_Zeile as integer
oQuellsheet=thisComponent.sheets(0)
oZielsheet=thisComponent.sheets(1)
oCellCursor = oQuellsheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
letzte_Zeile = oCellCursor.getRangeAddress.EndRow
letzte_Spalte= oCellCursor.getRangeAddress.EndColumn
Zaehler_neue_Zeile=0
for i=0 to letzte_Spalte step 8
for k=0 to letzte_Zeile
oquellcell=oQuellsheet.getCellbyPosition(i,k)
if oquellcell.NumberFormat=80 then'hier wird das Datum gefunden
for j=0 to 3
otransfercell1=oQuellsheet.getCellbyPosition(i,k+j)
otransfercell2=oQuellsheet.getCellbyPosition(i+4,k+j)
oZielcell1=oZielsheet.getCellbyPosition(j,Zaehler_neue_Zeile)
oZielcell2=oZielsheet.getCellbyPosition(j+4,Zaehler_neue_Zeile)
oZielcell1.NumberFormat=otransfercell1.NumberFormat
oZielcell2.NumberFormat=otransfercell2.NumberFormat
oZielcell1.formula=otransfercell1.formula
oZielcell2.formula=otransfercell2.formula
next j
Zaehler_neue_Zeile=Zaehler_neue_Zeile+1
k=k+4
endif
next k
next i
End Sub
Gruß R