Hey,
wie kann ich meine Combobox (in einer Userform) wieder auf den Standard wert zurücksetzten?
Sprich, dass die Combobox wieder leer ist.
Mit Anführungszeichen wird das nichts. Da liefert er mir einen Fehler.
'Hier tue ich die Listbox füllen und den INGwert bestimmen :-)
Private Sub UserForm_Initialize()
With Sheets(2)
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
'Hier wird die Listbox gefüllt durch den Sub LixboxFuellen und die Range wird bestimmt.
Comboboxfuellen ComboBox1, Blatt2.Range("A2:B" & lngLetzte)
End With
End Sub
Private Sub Comboboxfuellen(DieCombobox As MSForms.Combobox, DerRange As Range)
'Diese Sub dient dazu die Listbox zu füllen
With DieCombobox
.ColumnCount = DerRange.Columns.Count
'Hier Bestimme ich wie lang die Spalten sein sollen
.List = DerRange.Value
.ColumnWidths = "50;0"
' .RowSource = "Blatt1!A2:G2"
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
'Dieser Code funktioniert nicht. Ich hätte gerne das er mir die Combobox leeren tut bzw. es zurücksetzt
If Blatt1.Cells(i + 3, 21) = Empty Then
' Listbox_change.ComboBox1. = ""
End If
|