OpenOffice.info

[quote="Eddy"]....

Frage doch bitte im Basic und Java - Unterforum nach. Da wird Sie eher geholfen.

.....[/quote]
[b]
danke für den hinweis - das werde ich gleich mal tun. [/b] 8)

Jana

also, danke euch beiden für die vorschläge.

[b]AAAAABER[/b]: es funktioniert wirklich nicht. :(
[b]ALLE [/b]zeilen werden im wechsel ein- bzw. ausgeblendet.
und das wollte ich nicht. (und das mit dem "ab dem 2. aufruf" hab ich nicht ganz kapiert... wie soll man das realisieren...?!

[i]es geht um etliche von mir erstellte tabellen, die fast die gesamte seite ausfüllen. damit man nicht immer kilometerweit hoch- oder runter scrollen muss, soll immer nur die "gebrauchte" tabelle angezeigt werden - mittels "knopfdruck" (auswahl-liste).
aber nun werden entweder alle ein- oder eben ausgeblendet.[/i]

:(

Hallo
[quote="keksi1970"]funktioniert ab dem 2. Aufruf, vorher muss man ja festlegen, welche Zeilen ein-/ausgeblendet sein sollen

lässt sich aber bestimmt auch in nem 3-Zeiler lösen ;)[/quote]

dazu müsste man wissen nach welchen Regeln bzw. Muster der Anfangszustand hergestellt werden soll ?
[quote="keksi1970"]
Würdest du mir dein Beispiel wenigstens erklären ?[/quote]

Ist eigentlich selbsterklärend:
ThisComponent.Sheets(0).Rows(x).isVisible
hat den Wahrheitswert 'true' oder 'false'
Mit der BasicFunction 'Not' wird 'true' zu 'false' und 'false' 'true'
Mit der ganzen Code-Zeile wird dann die .isVisible -Eigenschaft jeder Tabellenzeile gewechselt.

Gruß Karo

funktioniert ab dem 2. Aufruf, vorher muss man ja festlegen, welche Zeilen ein-/ausgeblendet sein sollen

lässt sich aber bestimmt auch in nem 3-Zeiler lösen ;)

lg Andreas

btw : mein Vorschlag sollte nicht die Optimale Lösung sein, ebensowenig elegant :D , nur funktionieren sollte es

Würdest du mir dein Beispiel wenigstens erklären ?

sub flip_flop_einfach
for x = 0 to 30
ThisComponent.Sheets(0).Rows(x).isVisible = not ThisComponent.Sheets(0).Rows(x).isVisible
next
end sub

Hallo
@Andreas
Dein Code blendet alle Zeilen ein oder aus***, das lässt sich mit drei Zeilen realisieren:
[code]sub flip_flop_einfach
for x = 0 to 30
ThisComponent.Sheets(0).Rows(x).isVisible = not ThisComponent.Sheets(0).Rows(x).isVisible
next
end sub[/code]

aber ich weiss nicht ob das die Zielvorstellung von jarmar ist ?

***genauer formuliert: alle ausgeblendeten Zeilen werden eingeblendet und umgekehrt.

Gruß Karo

Sub ZeilenEin_Ausblenden

vorgabe = 0

max_zeile = 30
For x = 0 to max_zeile
	If ThisComponent.Sheets(0).getCellByPosition(vorgabe, x).String = "" Then
		If ThisComponent.Sheets(0).Rows(x).isVisible = False Then
			ThisComponent.Sheets(0).Rows(x).isVisible = True
		Else
			ThisComponent.Sheets(0).Rows(x).isVisible = False
		End if
	Elseif ThisComponent.Sheets(0).getCellByPosition(vorgabe, x).String = "1" Then
		If ThisComponent.Sheets(0).Rows(x).isVisible = False Then
			ThisComponent.Sheets(0).Rows(x).isVisible = True
		Else
			ThisComponent.Sheets(0).Rows(x).isVisible = False
		End if
	End if
Next x

End Sub

hi, nicht elegant, aber so sollte es gehen

[code]Sub ZeilenEin_Ausblenden

vorgabe = 0

max_zeile = 30
For x = 0 to max_zeile
If ThisComponent.Sheets(0).getCellByPosition(vorgabe, x).String = "" Then
If ThisComponent.Sheets(0).Rows(x).isVisible = False Then
ThisComponent.Sheets(0).Rows(x).isVisible = True
Else
ThisComponent.Sheets(0).Rows(x).isVisible = False
End if
Elseif ThisComponent.Sheets(0).getCellByPosition(vorgabe, x).String = "1" Then
If ThisComponent.Sheets(0).Rows(x).isVisible = False Then
ThisComponent.Sheets(0).Rows(x).isVisible = True
Else
ThisComponent.Sheets(0).Rows(x).isVisible = False
End if
End if
Next x

End Sub[/code]

lg

Andreas

Hallo jaMar,

Frage doch bitte im Basic und Java - Unterforum nach. Da wird Sie eher geholfen.

Mit anhanglosen Grüßen

Eddy

Sub ZeilenEin_Ausblenden

vorgabe = 0

max_zeile = 1378
For x = 0 to max_zeile
   If ThisComponent.Sheets.GetByName("TOUREN").getCellByPosition(vorgabe, x).String = "" Then
      If ThisComponent.Sheets.GetByName("TOUREN").Rows(x).isVisible = False Then
            ThisComponent.Sheets.GetByName("TOUREN").Rows(x).isVisible = True
         Else
            ThisComponent.Sheets.GetByName("TOUREN").Rows(x).isVisible = False
      End if
   End if
Next x

End Sub

Hallo mal wieder an alle!

Ich bin auf der Suche nach einem geeigneten Makro, das mir Zeilen aus- bzw. einblendet.
Habe auch schon folgendes in Benutzung:
[code]Sub ZeilenEin_Ausblenden

vorgabe = 0

max_zeile = 1378
For x = 0 to max_zeile
If ThisComponent.Sheets.GetByName("TOUREN").getCellByPosition(vorgabe, x).String = "" Then
If ThisComponent.Sheets.GetByName("TOUREN").Rows(x).isVisible = False Then
ThisComponent.Sheets.GetByName("TOUREN").Rows(x).isVisible = True
Else
ThisComponent.Sheets.GetByName("TOUREN").Rows(x).isVisible = False
End if
End if
Next x

End Sub[/code]

Das heißt, alle Zeilen, die in der Spalte A eine "1" haben, bleiben eingeblendet, alle leeren werden ausgeblendet.

Nun mein eigentliches Problem:
Sind erst einmal alle - sagen wir mal - "1-er Zeilen" eingeblendet und die anderen verschwunden, [b][color=#FF4040]kann das Makro als nächsten Schritt nur wieder ALLE EINBLENDEN[/color][/b]. Ich möchte nun aber, dass in Spalte A [color=#FF4040][b]"1"[/b][/color] und [b][color=#FF4000]""[/color][/b] ständig wechseln, und parallel dazu entsprechend ein- und ausgeblendet wird.
Klingt kompliziert.... [color=#FF4040][b]Ich möchte einfach nur den Schritt weglassen, in dem alle Zeilen wieder eingeblendet werden.[/b][/color]

Hat das jemand verstanden...?! Wenn ja, dann macht mich doch bitte auf den Fehler im Makro aufmerksam - im Schreiben von Makros bin ich nicht sehr gut... :(

Dank schonmal.

Ich hänge mal eine Test-Datei mit an, dann wird mein Problem vielleicht etwas deutlicher. :?