Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Auswahl Combobox nach Hinzufügen von Daten in Spal

Auswahl Combobox nach Hinzufügen von Daten in Spal
28.08.2013 15:04:47
Daten
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahl Combobox nach Hinzufügen von Daten in Spal
29.08.2013 10:00:41
Daten
Hab's inzwischen selbst hingekriegt, trotzdem danke !

AW: Auswahl Combobox nach Hinzufügen von Daten in Spal
29.08.2013 10:12:33
Daten
Hallo Dirk,
anhand des Quelltextes lässt sich nicht allzu viel sagen. Vielleicht stellst du mal eine etwas abgespeckte Datei zur Verfügung. Interessant ist der Aufbau des Sheets"Status".
Was aber auch eine Möglichkeit sein kann ist der Befehl "...UsedRange...". Ich habe mit diesem Befehl in früheren Jahren auch sehr oft gearbeitet und immer wieder Probleme gehabt. Dafür am besten die entsprechende Zeile oder Spalte direkt ansprechen.
Hier für den Fall Jeep:

If CBC.Value = "Jeep" Then
With frm.CBV
.Clear
imax = ActiveSheet.Cells(Cells.Rows.Count, 8).End(xlUp).Row
For i = 1 To imax
.AddItem ActiveSheet.Cells(i, 8)
Next i
End With
End If

Gruß Balder
http://www.youtube.com/BaldersWelt
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige