OpenOffice.info

Hallo Stephan - erneut ein herzliches DANKE - so läuft es super!

Hallo Stephan - erneut ein herzliches DANKE - so läuft es super!

Sub FilterZurueckSetzen()
	Zeilen = ThisComponent.sheets.getByName("Lagerbestand").getCellRangeByName("A1:A100").rows
	Zeilen.IsVisible = true
End Sub

Option VBASupport 1

Sub FilterZurueckSetzen()
	Sheets("Lagerbestand").Rows("0:99").EntireRow.Hidden = False
End Sub

in allen Programmversionen z.B.:

[code]Sub FilterZurueckSetzen()
Zeilen = ThisComponent.sheets.getByName("Lagerbestand").getCellRangeByName("A1:A100").rows
Zeilen.IsVisible = true
End Sub[/code]

in neueren Programmversionen auch über VBA:

[code]Option VBASupport 1

Sub FilterZurueckSetzen()
Sheets("Lagerbestand").Rows("0:99").EntireRow.Hidden = False
End Sub[/code]



GRuß
Stephan

Hi, das untenstehende Makro blendet ALLE ausgeblendeten Zeilen eines Blattes ein.
Sub FilterZurueckSetzen()
Zeilen = ThisComponent.sheets.getByName("Lagerbestand").rows
Zeilen.IsVisible = True
End Sub

[b]Wie müßte es aussehen, damit nur ausgeblendete Zeilen bis Zeile 99 eingeblendet werden[/b]

…und die Zeilen ab Zeile 100 ausgeblendet bleiben?
[i](Puh! je tiefer ich einsteige, umso komplizierter wird es ohne wirkliche Programmierkenntnis ;-)[/i]

Danke im voraus Lupo