OpenOffice.info

Sub Zeilen_ausblenden_bei
	with thisComponent.sheets().getbyname("Tabelle1")
		for zi = 0 to 1300 'zeile 1 bis 1301
			if instr(.getcellbyposition(0,zi).string, "kappe") then
			.rows(zi).isvisible = true
			else
			.rows(zi).isvisible = false
			end if
		next
	end with
End Sub

Hallo Baenks,

[quote="Baebks"]Hat jemand eine Idee, was da nicht stimmt?[/quote]

Reguläre Ausdrücke müsste man anders suchen.

Es geht aber auch so:
[code]Sub Zeilen_ausblenden_bei
with thisComponent.sheets().getbyname("Tabelle1")
for zi = 0 to 1300 'zeile 1 bis 1301
if instr(.getcellbyposition(0,zi).string, "kappe") then
.rows(zi).isvisible = true
else
.rows(zi).isvisible = false
end if
next
end with
End Sub[/code]

Jürgen