Hallo und ein frohes Neues Jahr,

ich beschäftige mich erstmals mit der Programmierung einer Combobox und habe erstmal 2 Probleme.

1. Wie kann ich erreichen, daß ich den in der Combobox ausgewählten Namen abfrage:

Dim c As Integer
Dim iMax As Integer

Set frm = UserForm11
Kasse = .ComboBox1 ????????????????????

c = Application.WorksheetFunction.Match(Kasse, [preise].Range("1:1"), 0)

End Sub

2.

Wie kann ich mit einer Schleife die Labels ansprechen?

Private Sub UserForm_Initialize()
Dim frm As UserForm, L As Label
Dim i As Integer
Dim iMax As Integer

Set frm = UserForm11
Application.ScreenUpdating = False

With frm.ComboBox1
.Clear
iMax = 253
For i = 4 To iMax
If Len([preise].Cells(1, i)) > 1 Then .AddItem [preise].Cells(1, i)
Next i
End With

With frm
For i = 1 To 13
L = "L" & i '???????????? Es wird hier immer ein Fehler ausgewiesen!
.L.Caption = [preise].Cells(i + 4, 3).Value
Next i
End With

Vielen Dank.

Jochen