Zeilen automatisch ausblenden wenn Bedingung....

[Baume96]

Servus Community,

ich habe ein Problem und bitte Euch um Eure Hilfe.......

Es geht um einen Wochenspeiseplan einer Metzgerei  wo es teilweise 2 - 5 Mittagsmenüs gibt.
Die Menüs werden über Dropdown aus einem anderen Blatt ausgewählt, die Menüs werden in
ein gesperrtes Druckformular übernommen. Wenn z.B. nur 2 Menüs an einem Tag angeboten werden,
soll der Benutzer Menü 3-5 im Dropdownmenü mit "*****" auswählen (***** Von mir einfach so festgelegt -
Bedeutet letztendlich kein Menü). Da ja jetzt in dem Druckformular bei dem gen. Beispiel 3 Leerzeilen enthalten
sind, verfolge ich folgende Lösung:
Wenn Menü "*****" ausgewählt ist, dann diese Zeile ausblenden. Alternativ diese Zeile nicht drucken.
Ich habe schon einiges versucht, mit Filter usw. Das klappt auch, jedoch hätte ich gerne eine vollautomatische
Lösung (Filter muss ja immer manuell angestoßen werden), wenn möglich ohne Makros/VBA.

Kurz zu mir: Ich kenne mich grundlegend mit Excel aus, habe jedoch noch nie Makros erstellt, noch nie mit
VBA gearbeitet. Nach etwas Einarbeitung habe ich jetzt erlernt, wie man zumindets mal VBA öffnet, für was ich
VBA/Makros generell brauche und für was sie sinnvoll sind.

Den Speiseplan findet Ihr als Anhang. Über jede Hilfestellung freue ich mich sehr und bin dankbar.

Grüße Baume96

[Basisa]

Hallo, also mir ist nicht bekannt, dass ich mittels Formel Zeilen ausblenden kann.
Aber da du nicht zwingend VBA nutzen magst, würde es nicht reichen das die Zeilen, die ***** enthalten dann einfach komplett leer sind?

Also wenn **** dann leer?

Grüße vom Handy aus ;)

[Kuwer]

Hallo,

folgender Code kommt in das schon vorhandene VBA-Modul des Tabellenblatts "Drucken Wochenplan" (Rechtsklick auf den Reiter -> Code anzeigen):

Private Sub Worksheet_Activate()
  Const Ausblendkriterium As String = "*****"
  Dim rngTemp As Range
  Application.ScreenUpdating = False
  For Each rngTemp In Me.UsedRange.Columns(2).Cells
    rngTemp.EntireRow.Hidden = (rngTemp.Cells(1).Value = Ausblendkriterium)
  Next rngTemp
  Application.ScreenUpdating = True
End Sub

Gruß Uwe

[Basisa]

Hallo Uwe,
wenn ich das richtig lese, blendet er aber keine spalten wenn nötig wieder ein oder?

[Kuwer]

Hallo Basisa,

das ist korrekt, dass Spalten nicht eingeblendet (aber auch nicht ausgeblendet) werden.

Gruß Uwe

[Baume96]

Lieber Uwe,

vielen Dank, Deine Hilfestellung funktioniert einwandfrei.
Natürlich wäre mir eine Lösung ohne Makro lieber gewesen, aber auch so bin ich zufrieden.

DANKE und noch nen schönen Tag

:35: