Initialisierung eines Kombinationsfeldes nachStart
17.07.2015 11:54:31
Feliks
ich sitze schon seit einiger Zeit über folgendem Problem:
Ich habe eine UserForm mit einem Kombinationsfeld.
Ich möchte, dass in dieses Kombinationsfeld, unmittelbar nach dem Öffnen der xls Datei, werte in dieser Box stehen haben. Die Werte sind Inhalte des excelsheets und stehen in einer Spalte.
Public Sub Workbook_Open()
UserForm1.Show vbModeless
Dim carlineInComboBox As String
Dim X_Car As Worksheet
Set X_Car = Worksheets("test")
startNetwork = X_Car.Range("A1:ZZ1").Find("Message Name", LookIn:=xlValues).Column + 1
endNetwork = X_Car.Range("A2:ZZ2").Find("AAM", LookIn:=xlValues).Column - 1
For loopCombo = startNetwork To endNetwork
carlineInComboBox = X_Car.Cells(2, loopCombo).Value
With ComboBox1
.AddItem carlineInComboBox
End With
Next loopCombo
End Sub
Ich würde mich sehr über Hilfe freuen
Liebe Grüße
Feliks