Dropdown-Feld über Txt-Datei/Ini-Datei füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI Till
Voraussetzung:
Die txt-Datei existiert schon
Die Daten in der Datei wurden wie folgt gespeichert
VDe 31-01-A1-MB/Ulmenstraße FR Nord;040468FFAEAB920E\aktuell_linie_2021_25012007\
(wichtig ist das Semikolon als Trennzeichen - anstelle dessen könnte auch z Bsp ein Leerzeichen stehen, dann muss aber der Code angepasst werden)
Versuch es mal so (ungetestet):
(sollten Fehler auftreten, schau dir mal die Hilfe zu den einzelnen Befehlen an - kann sein, dass ich mich vielleicht in der Syntax irrte)


Dim lstrInhalt As String, lstrDummy() As String
With ComboBox2
.ColumnCount = 2
.ColumnWidths = "170pt;0pt"
.HideSelection = False
.AddItem "Auswahl des Straßenquerschnittes"
End With
Open "deinPfad\deineTXTDatei" For Input As #1
Do While Not EOF(1)
Line Input #1, lstrInhalt
lstrDummy = Split(lstrInhalt,";")
ComboBox2.AddItem  lstrDummy(0)
ComboBox2.List(.ListCount - 1, 1) = lstrDummy(1)
Loop
Close

Hilft das?
Ciao
Thorsten

Hallo Leute,
der Fehler kommt jetzt nicht mehr.
Aber leider bleibt jetzt alles hängen.
Und zwar hab ich die Combobox ja auf einer Maske, die automatisch startet (Private Sub UserForm_activate()), wenn ich das Makro aufrufe.
Leider zeigt Excel jetzt ein komplett weißes Feld und der Rechner ackert sich zu Tode.
Vielleicht dauert der Einlesevorgang aus der Txt-Datei zu lange?
Das habe ich (versucht) so zu machen.

    'Combobox2 füllen

    blnAction = False

    With ComboBox2

        .ColumnCount = 2

        .ColumnWidths = "170pt;0pt"

        .HideSelection = False

        .AddItem "Auswahl des Straßenquerschnittes"

    End With

    Open "strassen.txt" For Input As #1

    Do While Not EOF(1)

        Line Input #1, lstrInhalt

        lstrDummy = Split(lstrInhalt, ";")

        ComboBox2.AddItem lstrDummy(0)

        ComboBox2.List(ComboBox2.ListCount - 1, 1) = lstrDummy(1)

    Loop

    Close

    blnAction = True

Ich habe auch schon sämtliche andere Teilmodule überprüft.
Aber bei denen bleibt der Rechner nicht hängen.
Und wenn ich die o.g. Prozedur auskommentiere, öffnet alles wieder ohne Probleme, nur dass die Combobox unausgefüllt bleibt.
Weiß einer Rat?
Gruß Till

Beliebteste Forumthreads (12 Monate)

Dropdown-Feld über Txt-Datei/Ini-Datei füllen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdown-Feld über Txt-Datei/Ini-Datei füllen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread