Microsoft Excel

Herbers Excel/VBA-Archiv

Bein UF start in der cbo den 1, Wert ausgeben | Herbers Excel-Forum


Betrifft: Bein UF start in der cbo den 1, Wert ausgeben von: chandler
Geschrieben am: 24.01.2012 09:02:45

Hallo,

wie erreiche ich es, das beim öffnen der UserForm in der ComboBox sofort (leer) ausgegeben wird?
Warum ist die ComboBox vorerst immer ohne Wert?

Private Sub UserForm_Initialize()
Dim strList(4) As String, intIndex As Integer
strList(0) = "(leer)"
strList(1) = "N"
strList(2) = "S"
strList(3) = "W"
strList(4) = "O"
For intIndex = 1 To 36
Me.Controls("cbo" & intIndex).List = strList
Next
End Sub

Vorab vielen Dank. Grüße

  

Betrifft: AW: Bein UF start in der cbo den 1, Wert ausgeben von: Josef Ehrensberger
Geschrieben am: 24.01.2012 09:17:27


Hallo chandler,

Private Sub UserForm_Initialize()
  Dim strList(4) As String, intIndex As Integer
  strList(0) = "(leer)"
  strList(1) = "N"
  strList(2) = "S"
  strList(3) = "W"
  strList(4) = "O"
  For intIndex = 1 To 36
    With Me.Controls("cbo" & intIndex)
      .List = strList
      .ListIndex = 0
    End With
  Next
End Sub






« Gruß Sepp »



  

Betrifft: AW: Vielen Dank von: chandler
Geschrieben am: 24.01.2012 09:48:02

Hallo Sepp,

vielen, vielen Dank. Grüße chandler


Beiträge aus den Excel-Beispielen zum Thema "Bein UF start in der cbo den 1, Wert ausgeben"