Private Sub UserForm_Initialize()
With Sheets(2)
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Comboboxfuellen ComboBox1, Blatt2.Range("A2:B" & lngLetzte)
End With
End Sub
Private Sub Comboboxfuellen(DieCombobox As MSForms.Combobox, DerRange As Range)
With DieCombobox
.ColumnCount = DerRange.Columns.Count
.List = DerRange.Value
.ColumnWidths = "50;0"
End With
End Sub
Private Sub ComboBox1_Change()
Dim lngWert As Double
With ComboBox1
lngWert = .List(.ListIndex, 1)
Listbox_change.Faktor = lngWert
End With
MsgBox lngWert
End Sub
If Blatt1.Cells(i + 3, 21) = Empty Then
End If