Spalte durchsuchen

[GrobMakrobiker]

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