BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Bei Änderung in der Spalte J Makro starten

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
schmidtt1
Beiträge: 9
Registriert: Sa 12. Jul 2014, 18:10

Bei Änderung in der Spalte J Makro starten

Beitrag von schmidtt1 » Do 29. Nov 2018, 22:02

Hallo,

ich möchte komplette Zeilen ausblenden, automatisch wenn in Spalte J, der Wert 1 drin steht.
Also: Wenn J4=1 Dann Zeile 4 ausblenden. Mit bedingten Formatierungen hab ich es nicht hinbekommen.
Deswegen würde ich das gerne mit einem Makro machen.

Wer kennt sich wirklich aus?

Mondblatt24
Beiträge: 812
Registriert: Do 9. Mär 2017, 09:53

Re: Bei Änderung in der Spalte J Makro starten

Beitrag von Mondblatt24 » Fr 30. Nov 2018, 07:39

Hallo,
versuche es hier

Gruß Peter
Win 11 (x64) ▪ 24.2.2.2 (x64) ▪ AOO Portable 4.1.15
Wenn Eure Frage zutreffend beantwortet wurde, seid so nett und fügt dem Betreff der Eingangsfrage [GELÖST] hinzu.

F3K Total
Beiträge: 1007
Registriert: Mo 1. Aug 2011, 00:03

Re: Bei Änderung in der Spalte J Makro starten

Beitrag von F3K Total » Fr 30. Nov 2018, 14:01

Moin,
dieses Makro, an das Tabellenereignis "Inhalt geändert" gebunden, sollte tun was du möchtest.

Code: Alles auswählen

Sub Hide_Row(ocell)
    if ocell.Celladdress.column = 9 then'Spalte J
        nRow = ocell.Celladdress.Row
        oCell.Spreadsheet.Rows(nRow).IsVisible = false
    endif
End Sub
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO

schmidtt1
Beiträge: 9
Registriert: Sa 12. Jul 2014, 18:10

Re: Bei Änderung in der Spalte J Makro starten

Beitrag von schmidtt1 » Sa 1. Dez 2018, 14:53

Hallo,
vielen Dank F3K Total.
Jetzt würde ich gerne noch den Wert der Zelle danach löschen.
Also wenn ich den Wert in Zelle J3 auf "1" setze, dann soll der Wert in
Zelle I3 gelöscht werden.

Antworten