Anzeige
Archiv - Navigation
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textbox mit Einträgen aus der TXT-Datei befüllen?

Textbox mit Einträgen aus der TXT-Datei befüllen?
30.07.2018 18:55:22
Sergej
Hallo Leute,
ich habe ein UserForm mit 15 x TextBox. In einer TXT-Datei „d:\daten\befehle.txt“ habe ich zeilenweise Einträge stehen.
Wie kann man bitte per Start von UserForm die Einträge aus der TXT-Datei in die jeweilige TextBox1 bis Textbox15 einlesen?
Besten Dank vorab!
Gruß,
Sergej

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

Betreff
Datum
Anwender
Anzeige
AW: Textbox mit Einträgen aus der TXT-Datei befüllen?
30.07.2018 19:22:08
Oberschlumpf
Hi Sergej,
versuch mal (ungetestet)

Sub sbTxt2Txt()
Dim liTxt As Integer, lstrTxt As String
liTxt = 1
Open "d:\daten\befehle.txt" For Input As #1
Do Until EOF(1)
Line Input #1, lstrTxt
UserForm1.Controls("TextBox" & liTxt).Text = lstrTxt
liTxt = liTxt + 1
Loop
Close
End Sub

Dein Userform muss UserForm1 heißen. Wenn nicht, bitte anpassen.
Hilfts?
Wenn nicht, zeig bitte per Upload eine Bsp-Excel-Datei mit Userform + 15 Textboxen und eine Bsp-Txt-Datei.
Ciao
Thorsten
AW: Textbox mit Einträgen aus der TXT-Datei befüllen?
30.07.2018 23:56:24
Sergej
Hi Thorsten,
vielen Dank. Es funktioniert einwandfrei.
Gruß,
Sergej
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige