OpenOffice.info

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

Gruß Karo

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

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

Gruß Karo

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

Hallo

Damit folgendes funktioniert [u]muss [/u] die Tabelle primär nach Spalte B sortiert sein und sekundär aufsteigend nach Spalte A.

[code]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[/code]

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