.csv Inhalt bearbeiten löschen und neu schreiben

[Karolus]

Hallo

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 Sub

Edit:Nachträglich Fixtext ' <br /> ' eingefügt.
Edit2: zusätzlich Prüfung auf Gleichheit in Spalte D
Gruß Karo

[Karolus]

Hallo
Setze den Fixtext in die Anführungszeichen am Ende der mittleren Zeile des while Blocks:
osheet.getcellbyposition( 4, refrow ).string &"hier"&_

Gruß Karo

[Karolus]

Hallo
Ich hab den Quelltext oben angepasst.....dir würde es aber mehr bringen wenn du dir den Code durchliest, verstehst und selber anpasst!

Karo

[Karolus]

Hallo
Die Volkshochschule brauchst du da garnicht - http://www.dannenhoefer.de/faqstarbasic/index.html tuts auch.

Gruß Karo