Hallo Deee,
das Vorgehen ist folgendes:
1. Die Tabellenblätter identifizieren, d.h. entweder nach Name oder nach Index, wobei '0' das erste Blatt ist.
2. Die Spalte C auf ein "X" überprüfen und
3. den Wert in der gleichen Zeile auslesen (das wäre dann Spalte D?)
4. Das ganze auf die zweite Tabelle schreiben.
Ich kann dir leider keinen kompletten Code liefern, ich bin selbst ein Neuling, aber ich denke du könntest so anfangen:
Zu 1)
Code: Alles auswählen
oController = starDesktop.CurrentFrame.Controller
oResults = ThisComponent.Sheets().getByName("Blatt1") 'oder: GetByIndex(0)
ThisComponent.CurrentController.setActiveSheet(oResults) ' Dies ist nun das aktuelle Blatt
Zu 2 und 3)
Code: Alles auswählen
For Zeile = 6 to 37
If oResults.getCellbyPosition(2, Zeile).String ="x" Then
arrErgebnis = oResults.getCellbyPosition(3,Zeile).value
End if
Next Zeile ' Diese Schleife durchläuft die Spalte C und speichert den Wert der Spalte D. Die Nummerierung beginnt ja bei '0'
For n =6 to 37
strInhalt = strInhalt + arrErgebnis(n)
Next n
Zu 4)
Code: Alles auswählen
' Blatt wechseln
oResults = ThisComponent.Sheets().getByName("Blatt 2") 'oder: GetByIndex(1)
ThisComponent.CurrentController.setActiveSheet(oResults)
'Zelle ansprechen
oCellSrc = oResults.getCellByPosition(0,0) 'Zelle A1
oCellSrc.Value = strInhalt
So oder so ähnlich vielleicht?
LG Groby