Combobox aus Excel Beispiel 161901

• Combobox aus Excel Beispiel 161901 von Thomas Prangenberg vom 15.10.2003 12:14:35
  • AW: Combobox aus Excel Beispiel 161901 - von Michael Scheffler am 15.10.2003 12:46:32
    • AW: Combobox aus Excel Beispiel 161901 - von Thomas am 15.10.2003 13:15:16
      • AW: Combobox aus Excel Beispiel 161901 - von Michael Scheffler am 15.10.2003 14:16:58
        • AW: Combobox aus Excel Beispiel 161901 - von Thomas am 15.10.2003 14:23:54
          • AW: Combobox aus Excel Beispiel 161901 - von Michael Scheffler am 15.10.2003 16:36:01
            • AW: Combobox aus Excel Beispiel 161901 - von Thomas am 17.10.2003 07:50:52

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"

ComboBox als Symbol		Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen		ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen		Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken		Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen		Neues Element in ComboBox
Werteübernahme gem. Auswahl in ComboBox - ohne VBA		Blätter in ComboBox-Feld einlesen und auswählen
Wert in einer CommandBarComboBox verändern		ComboBox-Felder in UserForm aufklappen
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen		Wert aus 2. UserForm-ComboBox-Spalte berechnen
In einer ComboBox selektiertes Arbeitsblatt auswählen		ComboBox in Abhängigkeit von einer CheckBox anzeigen
Adressfeld aus UserForm-ComboBox füllen		Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen
UserForm mit ComboBoxes durch VBA-Code erstellen		ComboBoxes per VBA-Code in Tabellenblatt erzeugen
ComboBox für Monatsblattauswahl in Menüleiste einfügen		Wert aus ComboBox in Tabelle eintragen
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen		Symbolleiste mit ComboBox erstellen
Werte in UserForm-ComboBox einlesen und ausgeben		Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes
Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen		Werte aus UserForm-ComboBox suchen und Fundstelle kopieren
Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert		UserForm-ComboBoxes als Collection-Objekte ansprechen
Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle		Zweidimensionales Array an UserForm-ComboBox übergeben
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen		Wert aus ComboBox in TextBox, dann in Tabelle suchen
Summe aller Werte gem. ComboBox-Eintrag		Geöffete Arbeitsmappen in Menü-ComboBox listen
Tabelle nach ComboBox-Auswahl durchsuchen		Blattauswahl über eine UserForm-ComboBox
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen		Doppelt vorkommende Werte in einer UserForm-Combobox listen
Selektieren von über ComboBox-Felder ausgewählten Werten		Nach Artikelauswahl in ComboBox Preis ermitteln
Wert in ComboBox einlesen, suchen, editieren, ausgeben		Liste ohne Doppelte Werte in ComboBox einlesen
ComboBox-Breiten während der Laufzeit festlegen		Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen		Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen
SVERWEIS-, WVERWEIS- und Matrixformel-Beispiele		Beispiel für die Anwendung der SUMMEWENN-FORMEL
Rundungsbeispiele		Beispiel für Zielwertsuche
Beispiele zum Einsatz der ZÄHLENWENN-Funktion		Beispiele für die Zeitberechnung in Excel
Eine Reihe von Beispielen zum Feature "Bedingte Formatierung"		Beispiele zum Handling des Zell-Kontextmenüs
Beispiele zum Einsatz des SelectionChange-Ereignisses		Beispiele zum Einsatz der ZELLE-Funktion
Beispiele für den Einsatz der Funktion SVERWEIS		Beispiele zum Einsatz der InputBox
Beispiele für den Einsatz von Namen		Beispiele zum Thema Sortieren