Spalten mittels Makro und weiterer Bedingung ein-/ausblenden (war: Marko hilfe)

[Picknicker]

Hallo und Grüße euch, ich bin neu und habe leider keine Erfahrung mit Makros.
Benötige aber dringend eine Funktion in der Spalten sich ein und ausblenden lassen mittels dined Dropdown-Menü Menü Funktion.

Bspw.

Arbeitsblatt 1
Zelle A3 „ja“

Spalten 10-15 einblenden
Spalten 16 -20 ausblenden


Arbeitsblatt 1
Zelle A3 „nein“
Spalten 10-15 audblenden
Spalten 16 -20 einblenden



Hoffe es war verständlich wie ich das meinte.

[Storax]

Marko, wo bist Du?
Dein Hilfe wird benötigt :19:

PS Den konnte ich mir nicht verkneifen :05:

[Picknicker]

? scheint recht anspruchsvoll zu sein? ???‍♂️

[Käpt'n Blaubär]

Hallo,

Spalten ein- und auszublenden ist eher nicht das Problem. Da fallen mir ohne großartig überlegen zu müssen
mindestens n+1 Möglichkeiten ein.

Aber hier dürfte es gerne 'ne Schippe mehr Info's geben. Gibt es eine Beispieldatei?

Spalten sich ein und ausblenden lassen mittels dined Dropdown-Menü Menü Funktion.

[Kuwer]

Hallo,

folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then
    Range("J:O").EntireColumn.Hidden = Target.Value <> "Ja"
    Range("P:T").EntireColumn.Hidden = Target.Value = "Ja"
  End If
End Sub

Gruß Uwe

[Picknicker]

Okay, also für mein Verständnis, da wie schon beschrieben, keine Vorkenntnisse vorhanden sind.
Kann ich das auch Eingabefeld auch editieren auf eine anderes Arbeitsblatt : So?

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "Arbeitsblatt1!$A$3" Then
   Range("Arbeitsblatt2!J:O").EntireColumn.Hidden = Target.Value <> "Ja"
   Range("Arbeitsblatt2!P:T").EntireColumn.Hidden = Target.Value = "Ja"
 End If
End Sub


war in meiner Beschreibung tatsächlich nicht erwähnt worden, das das Eingabefeld auf einem anderen Arbeitsblatt befinden.

[Kuwer]

Hallo,

was hast Du an meinem Satz in #5 nicht verstanden?

Gruß Uwe