Clever-Excel-Forum

Guten Tag an alle,

ich hoffe ihr könnt mir weiterhelfen und bitte verzeiht meine Unwissenheit.

Ich müsste für meine Arbeit einen Serviceplan erstellen, dafür würde ich gerne eine Liste erstellen mit Dropdown Überschrift.
Zur Auswahl würde dann z.B. stehen: Service, Inbetriebnahme, Reparatur und Upgrade.
Im Prinzip möchte ich für jede Überschrift eine einzelne Liste erstellen, sobald man sich nun für eine der Überschriften entscheidet kommt dann die entsprechende Liste mit den entsprechenden Inhalten. Allerdings nur als eine Excel Datei.
Da ja die einzutragenden bzw. Abgefragten Aufgaben je nach Art des "Einsatzes" variieren.
Besteht die Möglichkeit, insofern es lösbar ist, mir das Idioten sicher zu erklären?
Ich hoffe mich einigermaßen klar formuliert zu haben und danke euch schon mal fürs lesen : )

LG
Danny

Hallo,

mit VBA ist es möglich, dem zweiten Dropdown dynamisch eine Liste in Abhängigkeit von der Auswahl des ersten Dropdowns zuzuweisen.

Lade bitte eine Beispieldatei hoch, auf Blatt 1 2 dropdowns, auf Blatt 2 die fünf Listen.

mfg

Hallo Phi.VBA,

vielen herzlichen Dank für die schnelle Antwort. Ich erstelle mal fix eine bsp. Liste...

LG
Danny

So...ich habe mal schnell etwas gemacht...ich hoffe ich habe dich richtig verstanden : )
LG

Hallo,

es klappt nicht so, wie ich mir das gedacht habe!

Vielleicht können sich andere das noch einmal ansehen! <<<<<<<<<<<<<<<<<<

Die verbundenen Zellen und Checkboxen werden gelöscht und dabei wird das Drop-down beschädigt. Nach einem Speichern geht es wieder.

Schau mal, ob das in die richtige Richtung geht:

Hallo,
nicht so ganz, aber vielleicht check ich es auch nicht ganz : )
Trotzdem vielen Dank für deine Bemühungen.

@all

wenn man in einem Sheet mit einer Validation-Liste alle Shapes löscht, wird das Workbook bis zum nächsten Speicher "korrupt". Dies kann verhindert werden, wenn man den Typ des Shapes abfragt.

Code:
Attribute VB_Name = "Shapes_Validation"

Sub test()

Dim Shp As Shape

Dim Sht As Worksheet: Set Sht = ActiveSheet

'On Error Resume Next

Sht.Cells.UnMerge

With Sht.Shapes

    Debug.Print .Count

    For i = .Count To 1 Step -1

        Select Case Left(.Item(i).Name, 9)

            Case Is = "Check Box"

                Debug.Print .Item(i).Name, .Item(i).ID, .Item(i).AlternativeText, .Item(i).BottomRightCell.Address

                .Item(i).Delete

            Case Is = "Drop Down"

                Debug.Print .Item(i).Name, .Item(i).ID, .Item(i).AlternativeText

            Case Else

                Debug.Print .Item(i).Name

        End Select

    Next i

End With

End Sub

Damit wird auch in der Beispieldatei jedes Formular geladen.

Danny86

Phi.VBA

Danny86

Danny86

Phi.VBA

Danny86

Phi.VBA