Auswahl Combobox nach Hinzufügen von Daten in Spal
28.08.2013 15:04:47
Daten
ich habe eine Combobox in einer UF in die Daten aus einer externen Tabelle eingelesen werden. Funzte bis jetzt ohne Probleme - bis ich in die Spalten dieser externen Tabelle Daten hinzufügte. Es werden in der Combobox nur die Daten in der ursprünglichen Anzahl der Zeilen angezeigt, der Rest wird "verschluckt".
Zum besseren Verständnis füge ich mal den Code hinzu :
Private Sub CBC_Change()
Dim Pfad As String
Dim i As Integer
Dim frm As UserForm
Set frm = DatensatzAnlegen
Pfad = "C:\Omni_KFZ\"
'Workbooks.Open Pfad & "Fahrzeuge_Neuwagen.xlsm"
Sheets("Status").Activate
Application.ScreenUpdating = True
If CBC.Value = "Alfa Romeo" Then
With frm.CBV
.Clear
imax = ActiveSheet.UsedRange.Rows.Count
For i = 1 To imax
.AddItem Worksheets("Status").Cells(i, 5)
Next i
End With
End If
If CBC.Value = "Fiat" Then
With frm.CBV
.Clear
imax = ActiveSheet.UsedRange.Rows.Count
For i = 1 To imax
.AddItem Worksheets("Status").Cells(i, 6)
Next i
End With
End If
If CBC.Value = "Fiat Professional" Then
With frm.CBV
.Clear
imax = ActiveSheet.UsedRange.Rows.Count
For i = 1 To imax
.AddItem Worksheets("Status").Cells(i, 7)
Next i
End With
End If
If CBC.Value = "Jeep" Then
With frm.CBV
.Clear
imax = ActiveSheet.UsedRange.Rows.Count
For i = 1 To imax
.AddItem Worksheets("Status").Cells(i, 8)
Next i
End With
End If
End Sub
Für eine rasche Antwort wäre sehr dankbar.
Vielen Dank im Voraus.
MFG Dirk