Das Archiv des Excel-Forums
Combobox aus Excel Beispiel 161901
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Combobox aus Excel Beispiel 161901
von: Thomas Prangenberg
Geschrieben am: 15.10.2003 12:14:35
Hallo zusammen,
Ich habe da ein kleines Problem, mit dem VBA Program von Hans Nr. 161901
wenn ich die Werte in der Spalte A mit ein benutzerdefiniertes Format
belege z.B.: TT.MM.JJJJ (stehen halt nur Datumswerte drin) bekomme Ich ein
Laufzeitfehler 380 Eigenschaft Listindex kann nicht gesetzt werden, ungültiger
Eigenschaftswert.
Wer weis Rat ?
Gruß Thomas
Betrifft: AW: Combobox aus Excel Beispiel 161901
von: Michael Scheffler
Geschrieben am: 15.10.2003 12:46:32
Hi,
poste doch bitte etwas Code, dann weiß(!) ich vielleicht Rat.
Gruß
Micha
Betrifft: AW: Combobox aus Excel Beispiel 161901
von: Thomas
Geschrieben am: 15.10.2003 13:15:16
Hallo Michael
hier der Code:
Private Sub UserForm_Initialize()
Dim col As New Collection
Dim iRow As Integer
iRow = 2
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 1))
col.Add Cells(iRow, 1), Cells(iRow, 1)
If Err = 0 Then
cboDatum.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
cboDatum.ListIndex = 0
End Sub
Betrifft: AW: Combobox aus Excel Beispiel 161901
von: Michael Scheffler
Geschrieben am: 15.10.2003 14:16:58
Hi,
und wo hält er nun an?
Gruß
Micha
Betrifft: AW: Combobox aus Excel Beispiel 161901
von: Thomas
Geschrieben am: 15.10.2003 14:23:54
Hallo Micha,
Bei cbo.Datum.listindex = 0 kommt der oben genannte Fehler
Zur Info Saplte A hat ca 15000 Datumswerte.
Gruß Thomas
Betrifft: AW: Combobox aus Excel Beispiel 161901
von: Michael Scheffler
Geschrieben am: 15.10.2003 16:36:01
Hi,
und Deine Form enthält eine Combobox namens cbo?
Betrifft: AW: Combobox aus Excel Beispiel 161901
von: Thomas
Geschrieben am: 17.10.2003 07:50:52
Hi,
Die ComboBox hat den Namen cboDatum und ist auf ein Excel Tabellenblatt
aufgesetzt. Du kannst es ja mit dem oben gennanten Programm mal ausbrobieren.
Excel-Beispiele zum Thema " Combobox aus Excel Beispiel 161901"