makro verketten

[maen007]

Guten Tag liebe cracks,

Ich suche dringend Hilfe bei der Programmierung von Code, ebenfalls ein Basic Tutorial wäre fein, da ich von basic etc. keine Ahnung habe. GEnau genommen beschäftige ich mich seit gestern mit Makros, werd aber in nächster Zeit das wohl öfter machen müssen.

Die Aufgabe zum ersten war es, innerhalb einer Spalte Zellenwerte zu vergleichn und die übercshüsigen zu löschen. Dazu habe ich das Skript von unten gefunden, das auc funktioniert.

Sub dubletten_loeschen
odoc = ThisComponent
osheet = odoc.sheets(0)
orows = osheet.getrows
do while osheet.getcellbyposition(0,i+1).string <> ""
do while osheet.getcellbyposition(0,i).string = osheet.getcellbyposition(0,i+1).string
orows.removebyindex(i+1,1) 'index und Anzahl
loop
i = i + 1
loop
End Sub

Jetzt finde ich aber nichts mehr zu folgender Aufgabe:
Wie oben Inhalte von Zellen zeilenweise vergleichen. Wenn die Zeilen gleich sind, die Inhalte der Zellen in der Spalte zuvor bei gleicher Zeile verketten. ro

Als Schema ist es so wohl am veständlichsten:
Inhalte in 2 Spalten:
A1 B1
A2 B2
A3 B2

Wenn das Makro ausgeführt ist:
A1 B1
A2, A3 B2
A2, A3 B2

Hierzu kann ich ja den Code von oben teilweise benutzen:

Sub dubletten_loeschen
odoc = ThisComponent
osheet = odoc.sheets(0)
orows = osheet.getrows
do while osheet.getcellbyposition(0,i+1).string <> ""
do while osheet.getcellbyposition(0,i).string = osheet.getcellbyposition(0,i+1).string
Aber welche Funktion kommt hier rein??? UNd wie???
loop
i = i + 1
loop
End Sub

Wie gesagt, ich will nicht nur Fisch essen, sondern auch angeln lernen. Habe aber bisher noch kein "vernünftiges" Tutorial gefunden. Kann mir da bitte jemand ein bisschen weiter helfen? Danke vorab!

Marc

[komma4]

Willkommen im Forum.

Hilfe bei der Programmierung von Code, ebenfalls ein Basic Tutorial wäre fein

Lies mal die erste Nachricht vom Admin Stephan hier im Bereich.

Viel Erfolg!

[maen007]

Danke schön! Es ist wie immer. Ich schaue immer nur den versteckten Kram, nie das offensichtliche! Vielen Dank dafür!