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

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

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

txt to Excel
Sascha

Hallo Forum
Hier nun mal eine frage ob sowas möglich ist.
Ich habe eine CF Karte auf der befinden sich mehrer txt Dateien. Ich möchte denn Inhalt der txt datei in Excel einfügen und das in getrennte Spalten.
Ein Beispiel von der txt datei 202.txt

01326202000013520000146500...
28.02.2010 17:45:36
Thread-ID: 1142148
21 Beiträge
Anzeige
txt to Excel 2
Sascha

Hallo Forum
Also ich habe eine Excel Liste und eine TxT Datei in der txt Datei stehen Zahlen und Buchstaben.
Mit dem Makro vom Sepp kann ich Zahlen von der TxT in die Excel übernehmen das Funktioniert aber leider nur wenn in der Zahlenkette kein Buchstabe steht. Wenn ein Buchstabe vor...
05.03.2010 07:13:15
Thread-ID: 1143519
2 Beiträge
TXT to Excel und Makro automatisch
Sascha

Hallo zusammen
Mal eine kleien frage ich habe ein Excel Blatt dort sind 2 Buttons die mit dennen ich Textdateien einlesen kann in Excel.
1. Kann ich dem Makro auch einen festen Pfad geben wo er die TXT findet?
2. Kann ich die Maros verbinden das ich nur auf Import klicken muss und b...
07.03.2010 12:38:49
Thread-ID: 1144088
5 Beiträge
txt to Excel Pfad dem Makro zuweisen
Sascha

Hallo Forum
Ich habe in Excel 2 Makros die einen festen Pfad haben zu TXT Dateien. Ist es möglich den Pfad aus dem Makro zu nehmen und in ein Blatt zu geben.
Also das in Tabelle 3 der Pfad steht von der txt Datei und das Makro dort sich denn Pfad holt und die TXT Datei in Excel einfügt....
08.03.2010 08:01:41
Thread-ID: 1144211
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Textboxen in Excel UserForm mit TXT-Datei befüllen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues UserForm:

    • Gehe in den VBA-Editor (ALT + F11).
    • Klicke mit der rechten Maustaste auf dein Projekt und wähle „Einfügen“ > „UserForm“.

  2. Füge 15 TextBoxen hinzu:

    • Ziehe 15 TextBoxen aus der Toolbox in dein UserForm.

  3. Füge einen Button hinzu:

    • Ziehe einen Button auf das UserForm, um das Einlesen der Daten zu starten.

  4. Füge den VBA-Code hinzu:

    • Klicke doppelt auf den Button, um das Codefenster zu öffnen.
    • Füge den folgenden Code ein:
    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

  5. Starte das UserForm:

    • Klicke im VBA-Editor auf „Run“ oder drücke F5, um dein UserForm zu testen.

Häufige Fehler und Lösungen

  • Fehler: „Datei nicht gefunden“

    • Überprüfe den Pfad zur TXT-Datei. Stelle sicher, dass die Datei tatsächlich im angegebenen Verzeichnis vorhanden ist.

  • Fehler: „UserForm nicht gefunden“

    • Achte darauf, dass das UserForm als „UserForm1“ benannt ist. Andernfalls passe den Code entsprechend an.

  • Fehler: „Nicht genügend TextBoxen“

    • Stelle sicher, dass du 15 TextBoxen auf dem UserForm hast.

Alternative Methoden

  • Daten direkt in eine Excel-Tabelle importieren:

    • Anstatt die Daten in ein UserForm zu laden, kannst du die TXT-Datei direkt in eine Excel-Tabelle importieren. Verwende dazu die Funktion „Daten aus Text/CSV“.

  • Verwendung von Arrays:

    • Wenn du eine größere Anzahl von TextBoxen hast, kannst du die Daten in ein Array laden und dann die TextBoxen mit einer Schleife befüllen.

Praktische Beispiele

  • Beispiel TXT-Datei „befehle.txt“:

    Befehl1
Befehl2
Befehl3
Befehl4
Befehl5
Befehl6
Befehl7
Befehl8
Befehl9
Befehl10
Befehl11
Befehl12
Befehl13
Befehl14
Befehl15

  • Verwendung des Codes in einer Excel-Version:

    • Der oben angegebene Code funktioniert in Excel 2010 und neueren Versionen.

Tipps für Profis

  • Fehlerbehandlung einfügen:

    • Füge On Error Resume Next am Anfang deines Codes hinzu, um Laufzeitfehler zu vermeiden. Dies kann dir helfen, das UserForm robuster zu gestalten.

  • Datenvalidierung:

    • Überprüfe die Anzahl der Zeilen in deiner TXT-Datei, bevor du versuchst, sie in die TextBoxen zu laden, um sicherzustellen, dass du keine leeren TextBoxen hast.

FAQ: Häufige Fragen

1. Wie kann ich den Pfad zur TXT-Datei dynamisch setzen?
Du kannst einen Dialog zur Dateiauswahl einfügen, um den Benutzer den Pfad auswählen zu lassen. Verwende dazu Application.GetOpenFilename.

2. Was passiert, wenn die TXT-Datei weniger als 15 Zeilen hat?
In diesem Fall werden die verbleibenden TextBoxen leer bleiben. Du kannst dies durch zusätzliche Logik im Code anpassen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige