Am 27.07.2018 um 20:10 schrieb OoOHWHOoO: Jetzt muss ich mir diene Code doch mal etwas anschauen. :-) > > For iCol=0 To iColMax Step 1 > > ' [0] Zell-Typ übernehmen: > oSheet.getCellByPosition(iCol,iRowIns).NumberFormat = > oSheet.getCellByPosition(iCol,iRowIns+1).NumberFormat
"getCellRangeByPosition"? Oder noch einfacher "getCellRangeByName, da kann man als Parameter direkt z. B. "A1:Z1" o. ä. angeben? Würde zumindest die Schleife eliminieren. Und könnte man nicht mit oSheet.CopyRange was machen? Müsste man halt irgendwie aufs Format begrenzen können (ich gehe davon aus, dass CopyRange Format /und/ Inhalt kopiert). Aber da bist du wohl mehr Fachman als ich (ehrlich gesagt ist /mein/ 'Spezialgebiet' eigentlich die Zellenformeln; Makros mach ich nur, wenns gar nicht anders geht). > [2] Falls Du zu Deiner Tabelle noch weitere Spalten hinzufügst, > unbedingt "iColMax" anpassen !!! Oder gleich von vorn herein groß genug ansetzen (werden halt leere Zellen kopiert). Wolfgang -- Durch Donald Trump ist mir endgültig klar geworden: Es ist nicht der Turm von Pisa, der schief steht, es ist die Welt! -- Liste abmelden mit E-Mail an: [email protected] Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/ Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de Listenarchiv: https://listarchives.libreoffice.org/de/users/ Datenschutzerklärung: https://www.documentfoundation.org/privacy
