Clever-Excel-Forum

Normale Version: Spalten mittels Makro und weiterer Bedingung ein-/ausblenden (war: Marko hilfe)
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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.
Marko, wo bist Du?
Dein Hilfe wird benötigt :19:

PS Den konnte ich mir nicht verkneifen :05:
? scheint recht anspruchsvoll zu sein? ???‍♂️
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?

Zitat:Spalten sich ein und ausblenden lassen mittels dined Dropdown-Menü Menü Funktion.
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
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.
Hallo,

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

Gruß Uwe