OpenOffice.info

Sub ZeilenEin_Ausblenden
oDoc = thiscomponent
oSheet = oDoc.Sheets(0)
dim wert as string
vorgabe = 0
max_zeile = 30
zaehler = 0

do while zaehler < max_zeile
	If oSheet.rows(zaehler).isvisible = false then
		Exit Do
	End If
zaehler = zaehler + 1
loop
If zaehler = max_zeile then
	zaehler = 0
	do while zaehler < max_zeile
		If oSheet.getcellbyposition(vorgabe,zaehler).string = "" then
			oSheet.rows(zaehler).isvisible = false
		End If
		zaehler = zaehler +1
	loop
End If
For x = 0 to max_zeile
   If oSheet.getCellByPosition(vorgabe, x).String = "" Then
      If oSheet.Rows(x).isVisible = False Then
         oSheet.Rows(x).isVisible = True
      Else
         oSheet.Rows(x).isVisible = False
      End if
   Elseif oSheet.getCellByPosition(vorgabe, x).String <> "" Then
      If oSheet.Rows(x).isVisible = False Then
         oSheet.Rows(x).isVisible = True
      Else
         oSheet.Rows(x).isVisible = False
      End if
   End if
Next x
End Sub

wenn ich mir schon die Mühe mache, poste ich das auch :P

[code]Sub ZeilenEin_Ausblenden
oDoc = thiscomponent
oSheet = oDoc.Sheets(0)
dim wert as string
vorgabe = 0
max_zeile = 30
zaehler = 0

do while zaehler < max_zeile
If oSheet.rows(zaehler).isvisible = false then
Exit Do
End If
zaehler = zaehler + 1
loop
If zaehler = max_zeile then
zaehler = 0
do while zaehler < max_zeile
If oSheet.getcellbyposition(vorgabe,zaehler).string = "" then
oSheet.rows(zaehler).isvisible = false
End If
zaehler = zaehler +1
loop
End If
For x = 0 to max_zeile
If oSheet.getCellByPosition(vorgabe, x).String = "" Then
If oSheet.Rows(x).isVisible = False Then
oSheet.Rows(x).isVisible = True
Else
oSheet.Rows(x).isVisible = False
End if
Elseif oSheet.getCellByPosition(vorgabe, x).String <> "" Then
If oSheet.Rows(x).isVisible = False Then
oSheet.Rows(x).isVisible = True
Else
oSheet.Rows(x).isVisible = False
End if
End if
Next x
End Sub[/code]

Zur Erklärung : Es müssen alle Zeilen eingeblendet sein beim 1.Aufruf des Makros. dann wird geprüft, ob KEINE Zeile ausgeblendet ist und alle nicht_leeren Zeilen werden ausgeblendet. Beim 2. aktivieren des Makros sind Zeilen ausgeblendet die den Wert <>"" haben und werden so wieder eingeblendet. Alle anderen dann halt aus.

lg Andreas

[b][color=#4000BF]P[/color] [color=#FF0040]E[/color] [color=#40BF40]R[/color] [color=#808000]F[/color] [color=#800000]E[/color] [color=#800080]K [/color][color=#004080]T[/color].[/b] :)

Genau SO wollte ich das, ja.

Vielen Dank!!

Hallo Jana
Meine Glaskugel ist trübe - möchtest du einfach Bereiche abhängig von der Auswahl im Listenfeld ein- oder ausblenden ?
Siehe Anhang
Das Makro ist verknüpft mit dem Ereignis:'modifiziert' des Listenfelds und blendet nur die Auswahl ein[attachment=0]ausblenden_per_Listenfeld.ods[/attachment]
Gruß Karo

    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!

Ich habe heute schon einmal unter "Calc" mein Problem geschildert - bin aber hier wohl besser damit aufgehoben;
also, es geht um Folgendes:

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.

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

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... :(

Danke schonmal.

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