Open Office - Makro für Zeile ausblenden

Computer: Software & Programmierung Office Software
#1

Hallo liebe Experten,
ich möchte ein Makro für meine Open Office Tabelle programmieren, damit unter bestimmten Umständen eine Zeile ausgeblendet wird und habe keine Ahnung wie.
Ich habe schon rausgefunden, dass das geht und es bereits ähnliche Anfragen gab, weiß aber nicht wie ich die Befehle für meinen Fall umändern muss.

Folgendes möchte ich:

Wenn in der Spalte G in einer Zelle das Wort Ja steht, soll die dazugehörige Zeile ausgeblendet werden. Z.B. in G7 steht Ja, dann soll die Zeile 7 ausgeblendet werden.

Das Tabellenblatt heisst Angebote.

Vielen Dank schonmal!

#2

Hi Heike,

ich möchte ein Makro für meine Open Office Tabelle
programmieren, damit unter bestimmten Umständen eine Zeile
ausgeblendet wird und habe keine Ahnung wie.
Ich habe schon rausgefunden, dass das geht und es bereits
ähnliche Anfragen gab, weiß aber nicht wie ich die Befehle für
meinen Fall umändern muss.

zeige mal was du da schon gefunden hast. Wenn es Code ist und der steht schon in einer datei, lade die mal hoch mit FAQ:2861.

Wenn in der Spalte G in einer Zelle das Wort Ja steht, soll
die dazugehörige Zeile ausgeblendet werden. Z.B. in G7 steht
Ja, dann soll die Zeile 7 ausgeblendet werden.

Würde es auch ausreichen wenn die Schriftfarbe in Zeile 7 auf Weiß bzw. Hintergrundfarbe gesetzt wird?

Oder mit einer Hilfsspalte mit Formeln, die das Ja auswerten und dann Autofilter…

Gruß
Reinhard

#3

Hallo Reinhard,

danke schonmal für Deine Bemühungen!

zeige mal was du da schon gefunden hast.

Das hier habe ich gefunden mit folgender Problemstellung:

ich benötige für Open Office Calc ein bestimmtest Macro, welches mir erlaubt alle Zeilen automatisch auszublenden wenn in der Spalte G entweder " oder 0.00 steht. Sollte eine andere Zahl drinnen stehen, sollte die Zeile bestehen bleiben.

Sub Zeilen_ausblenden_bei '0.00 und "
with thisComponent.sheets().getbyname(„Tabelle1“)
for zi = 0 to 199 'zeile 1 bis 200
if .getcellbyposition(6,zi).string = „0.00“ or .getcellbyposition(6,zi).string = „“"" then
.rows(zi).isvisible = false
else
.rows(zi).isvisible = true
end if
next
end with
End Sub

Jetzt wieder zu meinem speziellen Fall, ich würde das gerne umwandeln, aber ich komme mit den ganzen " und ’ durcheinander und auch mit der 6,zi weiß ich nicht was ich anfangen soll.

Würde es auch ausreichen wenn die Schriftfarbe in Zeile 7 auf
Weiß bzw. Hintergrundfarbe gesetzt wird?

Die Zeile soll komplett ausgeblendet sein. Es werden in der Tabelle auch immer mal wieder neue Zeilen mit Informationen (das sind Angebote) eingepflegt. Wenn man die Schriftfarbe auf weiß setzt befürchte ich, dass man die ausgblendeten Zellen versehentlich überschreibt.

Gruß und Danke schonmal

Heike

#4

Wenn in der Spalte G in einer Zelle das Wort Ja steht, soll
die dazugehörige Zeile ausgeblendet werden. Z.B. in G7 steht
Ja, dann soll die Zeile 7 ausgeblendet werden.

Das Tabellenblatt heisst Angebote.

Hallo Heike,

Sub Zeilen\_ausblenden\_bei()
Dim zi
With thisComponent.Sheets().getbyname("Angebote")
 For zi = 0 To 199 'zeile 1 bis 200
 If .getcellbyposition(6, zi).String = "Ja" Then '0=A,1=B,2=C,...
 .Rows(zi).isvisible = False
 Else
 .Rows(zi).isvisible = True
 End If
 Next
End With
End Sub

Gruß
Reinhard

#5

Grüezi Heike

Wenn in der Spalte G in einer Zelle das Wort Ja steht, soll
die dazugehörige Zeile ausgeblendet werden. Z.B. in G7 steht
Ja, dann soll die Zeile 7 ausgeblendet werden.

Hmmmm, und wieso verwendest Du dazu nicht einfach den Autofilter, indem Du auf ‚ist nicht‘ ‚Ja‘ filterst? (Wie genau die Befehle in OO heissen vermag ich im Moment icht zu benennnen).

Das wäre IMO die viel einfachere und programmier-lose Methode.

Mit freundlichen Grüssen
Thomas Ramel

–

  • MVP für Microsoft-Excel -
    [Win XP Pro SP-2 / xl2003 SP-3]
#6

Grüezi Thomas,

Hmmmm, und wieso verwendest Du dazu nicht einfach den
Autofilter, indem Du auf ‚ist nicht‘ ‚Ja‘ filterst? (Wie genau
die Befehle in OO heissen vermag ich im Moment icht zu
benennnen).

Standardfilter?

http://www.bilder-space.de/show.php?file=21.12QFnQrJ…

Das wäre IMO die viel einfachere und programmier-lose Methode.

Aha, Kumpels arbeitslos machen *tztz* :smile:

Gruß
Reinhard

#7

Schlitzohr…! :wink: - o.w.T.
…das Du bist… :wink:

#8

…das Du bist… :wink:

Danke an Euch beide!

Warum einfach, wenn es auch kompliziert geht :wink:

Vielen Dank!

#9

…das Du bist… :wink:

Grüezie Thomas,

tztz, ich trag nicht mal Ohrringe:

http://de.wikipedia.org/wiki/Schandmal

-))

Ich bin nur ein kleiner nachtragender Skorpion der nie was vergisst, egal Positives oder Negatives.

Und, ich frozzle nur Menschen die ich mag *lächel*

Gruß
Reinhard