Office: Combobox generieren und Change Event bearbeiten

Hi Ihr Lieben,

ich hänge mal wieder an einem Problem, bei dem ich mit 2 Stunden Webrecherchen keinen Schritt nach vorn gekommen bin. *frown.gif*

Ich habe ein Userform, über das die Benutzerdatenbank einer Excelanwendung bearbeitet werden kann. Dabei sollte ein Steuerelement flexibel angelegt werden. Wenn ein Benutzer neu angelegt werden soll, dann sollte der Benutzername eine Textbox sein und wenn ein Datensatz bearbeitet werden soll, dann soll es eine Combobox mit einer Auswahlliste sein, bei der das Change Event ein Update der weiteren Steuerelemente auslöst.

Folgender Code wird on Initialize ausgeführt:

PHP:

         Private Sub UserForm_Initialize()

Dim cbo As MSForms.ComboBox
Dim tbo As MSForms.TextBox

If Benutzerverwaltung_Typ = "bearbeiten" Then

Set cbo = Me.Controls.Add("Forms.Combobox.1", "CB_Benutzernamen")
With cbo
.Height = 18
.Width = 100
.Top = 37
.Left = 100
.MatchEntry = fmMatchEntryNone
End With
cbo.RowSource = "Benutzerliste"
Me.CB_Rollen.RowSource = "Rollenliste"

ElseIf Benutzerverwaltung_Typ = "neu" Then

Set tbo = Me.Controls.Add("Forms.Textbox.1", "TB_Benutzernamen")
With tbo
.Height = 18
.Width = 100
.Top = 37
.Left = 100
End With
Me.CB_Rollen.RowSource = "Rollenliste"

Else

MsgBox "Die Übergabevariable 'Benutzerverwaltung_Typ' ist nicht übergeben worden!", vbCritical

End If

End Sub


:)

 

während der Laufzeit erzeugte Steuerelemente müssen über Klassen abgefangen werden. Die Klassen habe ich in Deinem Code wohl übersehen.
Ich bin da nicht der Fachmann, dieser Sachverhalt ist mir aber bekannt.

 

Danke für die Antwort Hajo.

Dann übersteigt das meine Kenntnisse. Hat jemand eine Idee oder einen Denkanstoss, wie ich das in diesem Fall lösen müsste?

Grüße
Chandiris

 

So funktioniert es einwandfrei! *wink.gif*

Danke für deinen Denkanstoss Hajo...

Code:

 

Guten Morgen Ihr Lieben,

es ist leider doch noch eine Frage offen geblieben. Mein Ansatz generiert für ein Object eine eigene Klasse, wenn ich das richtig verstanden habe. Ich kann innerhalb der Klasse zwar mehrere Objekte anlegen, beim Eventhandler aber nicht separiert behandeln...

Hat jemand einen Vorschlag, wie ich den oben gegebenen Code anpassen muss, um mehrere Steuerelemente der gleichen Klasse zuzuordnen, sie dabei aber separiert beim Eventhandler behandeln kann?

Danke!

Liebe Grüße
Chandiris

 

Hi Chandiris,

Du benötigst noch ein Array zur Aufnahme der Objekte Deiner Klasse. In der Klasse muss der Eventhandler natürlich erstellt werden.
Wie das geht, das kannst Du Dir hier exemplarisch ansehen.
Noch eine Überlegung: Wozu jedesmal eine neue Combobox? Warum nicht die vorhandene entsprechend bearbeiten?

 

Hi Ralf,

danke für Dein Feedback.

Es ist in einem Falle eine Combobox und im anderen Falle eine Textbox. Der Punkt ist das man eine Auswahl Benutzer angeboten bekommt, wenn man Benutzerdaten ändern möchte und ein freies Feld angeboten bekommt, wenn man einen neuen Benutzer generieren möchte. Diese Funktion steht nur den obersten Rollen "Admin" und "Leitung" zur verfügung. Da alle weiteren Felder im Formular identisch sind, dachte ich es bietet sich an für beide Fälle das gleiche Formular zu benutzen und nur das eine Steuerelement dynamisch zu generieren und beim aufrufen des Formulars eine variable zu generieren, die mir sagt, ob das Formular über "Benutzer ändern" oder über "Benutzer anlegen" aufgerufen wurde.

Ist das sub optimal gedacht?

Was die Beispieldatei angeht... So völlig ohne Kommentare ist die für mich leider sehr schwer inhaltlich zu erfassen. Mir ist überhaupt nicht klar, was du da machst und warum... *wink.gif*
Klassen definieren ist für mich gerade der nächste Schritt, um mein VBA-Wissen zu erweitern. Ich stehe dort aber noch ganz am Anfang... Mein geposteter Quelltext steht komplett im Userform, muss ich da so ein Klassenmodul im Editor anlegen?

Liebe Grüße
Chandiris

 

...im Nebel zu stochern führt selten zum gewünschten Erfolg. Ich fasse mal zusammen, wie ich das verstanden habe:
1. Du willst in einem Formular Benutzerdaten entweder a) bearbeiten oder b) neu anlegen.
Bei Neuanlage soll der Name in eine TextBox geschrieben werden
Bei Bearbeitung soll Auswahl über eine Combobox möglich sein.

Und jetzt beginnen meine Vermutungen...
Ich gehe davon aus, dass Du auf irgendeine Art und Weise (Checkbox, Optionsbuttons oder normale Buttons) festlegst, ob Neuanlage oder Bearbeitung.
Falls das so ist, warum veränderst Du die Visible Eigenschaft der Text- bzw. Combobox nicht entsprechend?
Bei Neuanlage wird der Name in die Textbox geschrieben und nach Bestätigung wird sie mit Textboxname.Visible = false gesetzt, der Name zur Combobox hinzugefügt und deren Visibleeigenschaft auf true gesetzt und als Texteigenschaft gleich den neuen Nutzernamen festlegen. Von da aus kannst Du ja den neuen Nutzer dann wie gewohnt bearbeiten.
Weshalb Du jedesmal neue Text- und Comboboxen brauchst ist mir offen gestanden schleierhaft.
Zu Deiner letzten Frage, wenn Du die IntelliSense für die Klasse nutzen willst, dann muss diese Klasse zwingend in einem neuen Klassenmodul erstellt werden. Aber wie gesagt, ich sehe keinen Anlass, das auch tun zu müssen...
....im Anhang findest Du mal ein Beispiel, wie Du es auch ohne Klassen umsetzen könntest...

 

Hi Ralf,

danke für dein sehr anschauliches Beispiel und ich denke Du hast an dieser Stelle recht. Deine Lösung ist einfach effizienter/simpler... *wink.gif*

Liebe Grüße
Chandiris