Re: .csv Inhalt bearbeiten löschen und neu schreiben
Verfasst: Mi, 02.06.2010 16:10
Hallo
Damit folgendes funktioniert muss die Tabelle primär nach Spalte B sortiert sein und sekundär aufsteigend nach Spalte A.
Edit:Nachträglich Fixtext ' <br /> ' eingefügt.
Edit2: zusätzlich Prüfung auf Gleichheit in Spalte D
Gruß Karo
Damit folgendes funktioniert muss die Tabelle primär nach Spalte B sortiert sein und sekundär aufsteigend nach Spalte A.
Code: Alles auswählen
Sub daten_nach_BuD_zusammenfassen
osheet = thiscomponent.sheets(0)'1.Tabellenblatt
orows = osheet.getrows
refrow = 0
do
while osheet.getcellbyposition( 1, refrow ).string &_
osheet.getcellbyposition( 3, refrow ).string =_
osheet.getcellbyposition( 1, refrow + 1 ).string &_
osheet.getcellbyposition( 3, refrow + 1 ).string
osheet.getcellbyposition( 4, refrow ).string =_
osheet.getcellbyposition( 4, refrow ).string &" <br /> "&_
osheet.getcellbyposition( 4, refrow+1 ).string
orows.removebyindex( refrow+1, 1 )
wend
refrow = refrow +1
loop until osheet.getcellbyposition( 1, refrow ).string = ""
End SubEdit2: zusätzlich Prüfung auf Gleichheit in Spalte D
Gruß Karo