Thema Datum  Von Nutzer Rating
Antwort
09.05.2015 13:30:20 Uhuuu
Solved
09.05.2015 13:31:39 Gast46810
NotSolved
Rot Anzeigen von "x" Comboboxen
 09.05.2015 14:59:45 Gast70660
Solved
09.05.2015 15:15:59 Uhuuu
NotSolved
09.05.2015 21:14:13 Gast62203
NotSolved

Ansicht des Beitrags:
Von:
Gast70660		 Datum:
09.05.2015 14:59:45		 Views:
850		 Rating:
     
Antwort:
 Nein
Thema:
Anzeigen von "x" Comboboxen		 
'UserForm: UserForm1
Option Explicit

Private Sub UserForm_Click()
   
  Const LEFT_START  As Single = 15 
  Const TOP_START   As Single = 10 
  Const MARGIN      As Single = 5  'Abstand zwischen den einzelnen STE
  
  Static blnFlag As Boolean
  
  If blnFlag Then
    Call MsgBox("Die Steuerelemente wurden bereits erstellt.", vbExclamation)
    Exit Sub
  End If
  blnFlag = True
  
  Dim ctl As MSForms.Control
  Dim i As Long
  
  'Beispiel: 5 STE erstellen & positionieren
  For i = 1 To 5
    
    'Steuerelement (hier ComboBox) erstellen
    Set ctl = Controls.Add( _
                "Forms.ComboBox.1", _
                Name:="ComboMaterial" & i, _
                Visible:=True)
    
    'positionieren
    ctl.Left = LEFT_START
    ctl.Top = TOP_START + (i - 1) * (MARGIN + ctl.Height)
    ctl.Width = 100
    
  Next
  
End Sub

Ausführen und auf die UserForm klicken. Es werden dann 5 Kombinationsfelder erstellt.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.05.2015 13:30:20 Uhuuu
Solved
09.05.2015 13:31:39 Gast46810
NotSolved
Rot Anzeigen von "x" Comboboxen
 09.05.2015 14:59:45 Gast70660
Solved
09.05.2015 15:15:59 Uhuuu
NotSolved
09.05.2015 21:14:13 Gast62203
NotSolved