Office: (Office 2013) Makro: Je nach Dropdown Spalten aus- bzw. einblenden

Hallo liebe Excel Spezialisten,

ich sitze seit gestern an einem kleinen Problem und ich muss mir so langsam eingestehen, dass ich es selbst nicht lösen kann. Es ist auch das erste Mal, dass ich mich an Makros versuche...

Ich habe ein Dropdown Menü erstellt, wo man aus folgenden Werten auswählen kann: AA, AB, AC, BA, BB, BC, CA, CB, CC, DA, DB, DC, DD, DE

Je nachdem welchen dieser Werte ich dort auswähle möchte ich gerne eine entsprechende Spalte einblenden lassen (bzw. die anderen Spalten ausblenden).

Ich habe dazu mal ein kurzes Beispielfile angelegt. Wenn man ins file schaut wäre die Idee, dass man immer nur die Spalte sieht, wo das steht, was man ausgewählt hat.

Beispiel: ich wähle "BB" aus. D.h. die Spalten C bis F sowie die Spalten H bis P werden ausgeblendet (so dass nur noch G da ist).


----------------------------------------------

in meinen eigenen Versuchen das ganze per Makro zu bewerkstelligen hatte ich folgenden Text, den ich versucht habe an meine Bedürfnisse anzupassen. Leider habe ich es nicht fertig gebracht...

Dim varAusblend As Range
Dim varSchalter As Range

Set varAusblend = ActiveSheet.Columns("G")
Set varSchalter = ActiveSheet.Cells(3, 1)

If varSchalter.Value = "BB" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value "BB" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If

Kann mir jemand helfen?

Vielen Dank,

DMK

:)

 

Hallo

in deiner Datei habe ich kein "Dropdownmenü" gefunden
daher habe ich im Tabellenblatt Lookup eine Combobox erstellt
und dieser dann das folgende Change-Ereignis zugewiesen

Code:

MfG Tom

 

Hi Tom,

zunächst einmal vielen Dank für deine Hilfe! Ich bin ein bisschen durcheinander, dass du das Dropdown Menü nicht gesehen hast. Bei mir ist es in der Zelle A3 auf dem 1. Sheet...

Deinen Code hab ich jetzt einfach mal so wie er war in Visual Basic eingetragen. Da passiert aber so leider nichts und ich weiss auch nicht, was eine Combobox ist.

Könntest du vielleicht noch ein klein bisschen erklären, wie du dir das gedacht hattest?

Vielen Dank,

DMK

 

Hallo

wenn du das in Tabellenblatt Lookup meinst
das ist kein Dropdown sondern eine Liste mit Filter

schau mal in der Datei wie ich es gemacht habe

MfG Tom

 

Ah, nein, das Dropdown war auf dem Tabellenblatt Makrotest in der Zelle A3.

Aber ja, das ist genau, die Funktionalität, die ich brauche.

Auf den ersten Blick verstehe ich den Code aber leider nicht ausreichend, um ihn dann an meine genauen Bedürfnisse anpassen zu können. (ich will ja nicht wirklich AA usw. eingeben, sondern andere Werte).

Könntest du vielleicht in ganz kurzen Worten beschreiben, was das Makro macht? Dann verstehe ich es bestimmt viel leichter, wenn ich es mir anschaue.

Wenn nicht ist aber auch kein Problem. Ich bin so schon total dankbar, dass du geholfen hast.

Vielen vielen Dank,

DMK

 

Hallo

die Combobox enthält die Strings aus Tabellenblatt Lookup
aus den Zellen A2 bis A15
wenn du einen String auswählst werden erst alle Spalten eingeblendet
da die Find-Methode sonst nichts findet
dann wird in der ersten Zeile (Rows(1)) nach dem String der Combo gesucht
die Fundstelle wird in der Variablen c gespeichert
dann werden wieder alle Spalten ausgeblendet
und nur die Spalte der Fundstelle Columns(c.Column) wieder eingeblendet
was du für Werte in der Combo hast spielt keine Rolle
sie sollten halt nur in der ersten Zeile von Blatt Makrotest vorhanden sein

MfG Tom

 

spitze. Vielen Dank. Das werde ich mir am Dienstag alles mal genau zu Gemüte führen.

Vielen vielen Dank!