✔ Combobox + Combobox

[Remmes]

Hallo,

ich habe folgendes Problem in Microsoft Project 2002:

In meiner Ressourcentabelle befinden sich mehrere Ressourcen verschiedener Gruppen.

Beipsiel:

Rohstoff Gruppe
Material 1 A
Material 2 A
Material 3 B
Material 4 B...

Da es sich in meiner Datei um fast 200 Ressourcen und dementsprechend viele Gruppen handelt wollte dich die Auswahl der Materialien über ein UserForm gestalten.

Und zwar über ListBoxen oder Comboxen.

Hierbei sollte zunächst in einer Box die Gruppe ausgewählt werden. Daraufhin sollten in der nächsten Box die zugehörigen Materialen zur Auswahl bereitgestellt werden.

Wie kann ich das Realisieren?

Ich bekomme nicht einmal die ComboBox richtig programmiert um die Gruppen auszuwählen

Vielen Dank

Christian

 

[JensG]

Hallo Christian,

wo genau liegt denn dein Problem ?
Kannst du die Box nicht füllen und wie greifst
du auf die Tabelle zu ?
Ein wenig konkreter musst du schon werden damit
wir dir helfen können.

Jens

 

[Remmes]

ich habe gar keinen plan wie ich die boxen füllen kann. Die Ressourcen befinden sich in einer MSP Tabelle. In der gleichen Datei ist auch mein UserForm (Teil).

Grüsse

Christian

 

[Remmes]

Hab das Problem nun so gelöst:

Private Sub UserForm_Initialize()
    lstGroupCategory.AddItem "Endpunkte"
    lstGroupCategory.AddItem "Grundplatte"
    lstGroupCategory.AddItem "Halter"
    lstGroupCategory.AddItem "Katalysator"
    lstGroupCategory.AddItem "Krümmer"
    lstGroupCategory.AddItem "Rohrverlauf"
    lstGroupCategory.AddItem "Schalldämpfer"
    lstGroupCategory.AddItem "Sonstige Vorrichtungspunkte"
    lstGroupCategory.AddItem "Vermessen"
End Sub


Private Sub lstGroupCategory_Change()
    
    Dim objResource As Resource
    
    Me.lstResourceList.Clear
    For Each objResource In ActiveProject.Resources
        If Not objResource Is Nothing Then
            If UCase(objResource.Group) = UCase(Me.lstGroupCategory.Value) Then
                 Me.lstResourceList.AddItem objResource.Name
            End If
        End If
    Next
    If Me.lstResourceList.ListCount > 0 Then
        Me.lstResourceList.ListIndex = 0
    End If

Vielen Dank für die Hilfen