mit makro suchen und ersetzen

[Gert Seler]

Hallo kay,
die Namen der Spalten (256) gehen von A bis iV und die Zeilen tragen Zahlen von1 bis 65536 und in den Schnittpunkten
der beiden (Zeilen + Spalten) befinden sich die Zellen deren Namen von A1 bis iV65536 hoch gezählt werden.
Im Schnittpunkt der Zeile2 und der SpalteB befindet sich die Zelle B2.
Welcher Text befindet sich in der Zelle "B2" und welcher Text in der Zelle "C3" und was soll nun mit beiden geschehen?

kay schreibt :das ganze am besten als schleife, solange bis in einer zeile von spalte b2 kein inhalt mehr zu finden ist.

Das kann ich nicht nachvollziehen.
Da solltest Du deine Frage bitte neu formulieren.

mfg
Gert

[Karolus]

Hallo Kay

Code: Alles auswählen

Sub wenn_in_B_beispiel_dann_C
odoc = thisComponent
osheet = odoc.currentcontroller().activesheet 'aktives Tabblatt

do while osheet.getcellbyposition(1,i).string <> "" 'solange Sp. B nicht leer
	if instr(osheet.getcellbyposition(1,i).string ,"beispiel") then 
		osheet.getcellbyposition(1,i).string = osheet.getcellbyposition(2,i).string
	end if
	i = i + 1
loop

End Sub

Gruß Karo