Dropdown Überschrift

[Danny86]

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

[Phi.VBA]

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

[Danny86]

Hallo Phi.VBA,

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

LG
Danny

[Danny86]

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

[Phi.VBA]

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:

[Danny86]

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

[Phi.VBA]

@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.