HERBERS Excel-Forum - die Beispiele

Thema: UserForm mit ComboBoxes durch VBA-Code erstellen

Home

Gruppe

Dialog

Problem

Wie kann ich über VBA-Code eine UserForm mit je einer ComboBox je Tabellenblattspalte erstellen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub NeueUserForm()
   Dim frmNew
   Dim cboBox As MSForms.ComboBox
   Dim cmdWeiter As MSForms.CommandButton
   Dim intCounter As Integer, intTop As Integer, intRow As Integer
   Dim strCode As String
   Application.VBE.MainWindow.Visible = False
   On Error Resume Next
      Set frmNew = ThisWorkbook.VBProject.VBComponents("frmTageslisten")
   If Err = 0 Then GoTo ErrorHandler
   On Error GoTo 0
   Set frmNew = ThisWorkbook.VBProject.VBComponents.Add(3)
   intTop = 5
   For intCounter = 1 To 31
      If intCounter = 17 Then intTop = 5
      Set cboBox = frmNew.designer.Controls.Add("forms.ComboBox.1")
      With cboBox
         If intCounter < 17 Then .Left = 5 Else .Left = 160
         .Top = intTop
         .Width = 150
         .RowSource = Range( _
            Cells(2, intCounter), Cells(10, intCounter)).Address
         .ControlSource = Cells(intCounter, 32)
         .ListIndex = 0
      End With
      intTop = intTop + 20
   Next intCounter
   Set cmdWeiter = frmNew.designer.Controls.Add("forms.CommandButton.1")
   With cmdWeiter
      .Top = intTop + 30
      .Left = 5
      .Width = 305
      .Height = 30
      .Caption = "Weiter"
      .Name = "cmdWeiter"
   End With
   With frmNew
      .properties("Width") = 320
      .properties("Height") = 17 * 20 + 50
      .properties("Caption") = "Tageslisten"
      .properties("Name") = "frmTageslisten"
   End With
   strCode = "Private Sub cmdWeiter_Click" & vbLf
   strCode = strCode & "   Unload Me" & vbLf
   strCode = strCode & "End Sub"
   ThisWorkbook.VBProject.VBComponents("frmTageslisten") _
      .CodeModule.AddFromString strCode
ErrorHandler:
   VBA.UserForms.Add(frmNew.Name).Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und ComboBox

mit combobox sortieren Combobox Zeile in Array übernehmen
UserForm TextBox mit ComboBox Datum vergleichen Dynamische Combobox ?
xlDialogInsertHyperlink.show Zelleneingabe nur per Combobox erlauben
ComboBox Combobox zurücksetzen
ComboBOx ComboBox
sverweis auf combobox FILTER; COMBOBOX
Arbeitmappen über Dialogfeld zusammen fassen Sortierung in ComboBox zweispaltig erfolgt falsch
Combobox, CheckBox, TextBox Formatierung Formatierung Dezimalzahlen bei Combobox-Eingaben
5.0 Dialog Dynamische Comboboxen anpassen
Combobox mit Auswahl Speichern unter Dialog in Word aufrufen inkl. Pfad
ComboBox Überlauf bei Befüllen einer ComboBox
In zwei ComboBox die gleiche Spalte einlesen Druckerdialog
ComboBox Eintragen transponieren mit combobox
Dateityp im "Speichern unter"-Dialog vorgeben combobox mit tabelleninhalt??
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
ComboBox mit Hyperlink Combobox füllen
Klick in definierten Rangebereich startet Dialog in jeder angeklickte Zelle Auswahl durch Combobox
Mehrspaltige Combobox füllen Breite einer Combobox beim öffnen definieren
Daten in Combobox einlesen bzw. andere Ausgabe ComboBox mit CommandButton verknüpfen
Datum ohne Doppelte in ComboBox einlesen mehrere Comboboxen
Verküpfung zwei verschiedener ComboBoxen verknüpfung von zwei verschiedenen ComboBoxen
ComboBox mehrspaltige Combobox
Suche in ListBox-Ausgabe ComboBox Text für ComboBox hinterlegen
2.Eintrag aus ComboBox in aktive Zelle berechnen mit Combobox
Textbox abhängig von Combobox- Bin ich zu dumm? ComboBoxDaten in Abhängigkeit filtern o. Userform