Zeilen per Makro / Knopfdruck ausblenden

Hallo Claus,
<br />vielen Dank für die Antwort! Ich habe es nun direkt einmal ausprobiert. Sobald ich das "x" eintrage öffnet sich wieder der VBA-Editor und ich bekomme die Fehlermeldung "Fehler beim Kompilieren: Syntaxfehler". Was mache ich falsch?
<br />Viele Grüße,
<br />Florian
<br />

Jetzt benötigst du natürlich auch ein Makro um wieder alle Zeilen zu zeigen.
<br />Ich habe es wie folgt gelöst:
<br />In einem Makromodul bei Personal.XLSB Diesen Code eingesetzt:
<br />Sub AlleFilteranzeigen()
<br />On Error Resume Next
<br />ActiveSheet.ShowAllData
<br />Rows.Hidden = False
<br />End Sub
<br />Und oben in der Symbolleiste für den Schnellzugriff ein Symbol mit dem Makro verknüpft.
Dies habe ich deshalb getan, weil ich oft mit gefilterten Tabellen arbeite und manchmal wieder alle angezeigt haben möchte.
<br />So "Vergesse" ich nicht einen Filter
<br />

Hallo Florian,
<br />drücke Alt+F11, um in den VBA-Editor zu kommen. Doppelklicke im Projekt-Explorer auf die entsprechende Tabelle und füge dann im Code-Fenster folgenden Code ein:
<br />

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("E:E")) Is Nothing _

Or Target.Count > 1 Then Exit Sub

Rows(Target.Row).Hidden = Target = "x"

End Sub

Wenn du nun ein x in Spalte E schreibst, wird die Zeile ausgeblendet.
<br />Claus
<br />

Hallo Florian,
<br />ohne die Mappe zu sehen, weiß ich nicht, wo der Fehler liegt. Vielleicht hast du den Code an der falschen Stelle eingetragen.
<br />Lade dir mal hier die Mappe herunter:
<br />https://1drv.ms/x/s!AqMiGBK2qniTgfE5r-5caTPkx2ZsfQ?e=pkvl0n
<br />und schaue, wo der Code eingetragen ist.
<br />Claus
<br />

Hallo Claus,

natürlich hast du recht. Meine WENN-Formel ginge auch einfacher mit A2=X2, war aber auch ein nur ein (zugegeben unglückliches) Beispiel für die vielen WENN-Formeln, die ich in Zeile 2 habe.

Natürlich könnte ich alle WENN-Formeln auch in einem Makro effektiver abbilden, wie du hier demonstriert hast.



Allerdings verhält es sich etwas anders: Die Wenn-Formeln sollen für alle offen gelegt und nachvollziehbar bleiben. Insbesondere, da sich immer wieder an denen etwas ändert.

Und das noch verstärkt:

Anstelle der Zellbezeichnung von z.B. "C2" soll jetzt der Zellnamen z.B. "Materialmenge" in der entsprechenden WENN Formel stehen. "Materialmenge" wurde im Beispiel dabei per Namensmanager für die ganze Spalte C manuell festgelegt. Genau so alle anderen
Spalten mit den passenden Begriffen.

Der gleiche Zellnamen gilt also in meinem Fall immer für eine ganze Spalte.



Lösung, die ich mal selbst überlegt habe:

Makro aufzeichnen durch

- Zeile 2 komplett markieren

- Suche und ersetzte in Formeln: "C2" durch Zellnamen "Materialmenge"

- Suche und ersetzte in Formeln: "X2" durch Zellnamen "Höchstbestand"

usw. bis ich alle Spalten habe.

- Zum Schluss die geänderten Formeln automatisch herunter ziehen bis zur letzten Zeile der Tabelle.



Eleganter wäre, wenn das Makro automatisch aus den manuell festgelegten Begriffen im Namensmanager gleich den passenden Ersetzungsbegriff für die Spalte heraus sucht und die Begriffe in den Formeln auf Knopfdruck mit dem dann besser lesbaren Namen aktualisiert.

Dann könnte ich die WENN-Formeln weiter einfach "normal" mit A2, B2... programmieren und zum Schluss auf Knopfdruck A2, B2...in lesbare Namen übersetzen.

Wenn ich mir das so überlege...das wäre dann überhaupt das aller-coolste!