Supportnet / Forum / Tabellenkalkulation
Datenimport in Excel aus txt Datei
Frage
Hi zusammen
Habe folgendes Problem und hoffe mir kann jemand von euch helfen
Ich habe mehrere Txt Dateien mit e-Mail Adressen, die durch Semikolons getrennt sind. Diese Mail Adressen möchte ich nun in Excel importieren, so dass alle in einer Spalte untereinander stehen.
Wie stelle ich das an?
Vielen Dank im Voraus ;)
Antwort 1 von Beverly
Hi,
öffne die Textdatei, markiere alles mit Strg+a und füge es in der Exceltabelle in A1 ein. Anschließend gehst du auf Daten -> Text in Spalten -> Getrennt -> Weiter -> und als Trennzeichen machst du bei ";" einen Haken rein und OK. Damit stehen alle in je einer Spalte in Zeile 1. Dann markierst du den Bereich mit den Werten -> Kopieren, gehst dann in A2 und -> Bearbeiten -> Inhalte einfügen -> Transponieren. Das funktioniert aber nur, wenn es nicht mehr als 255 Werte sind, da es nur 256 Spalten gibt.
Bis später,
Karin
öffne die Textdatei, markiere alles mit Strg+a und füge es in der Exceltabelle in A1 ein. Anschließend gehst du auf Daten -> Text in Spalten -> Getrennt -> Weiter -> und als Trennzeichen machst du bei ";" einen Haken rein und OK. Damit stehen alle in je einer Spalte in Zeile 1. Dann markierst du den Bereich mit den Werten -> Kopieren, gehst dann in A2 und -> Bearbeiten -> Inhalte einfügen -> Transponieren. Das funktioniert aber nur, wenn es nicht mehr als 255 Werte sind, da es nur 256 Spalten gibt.
Bis später,
Karin
Antwort 2 von Smoere
Erstmal vielen Dank Karin
Leider ist es so das es ungefähr 3000 Mail Adressen sind und da hab ich mit den 255 Spalten ein Problem. Daher such ich ja ne Lösung das er die nach Zeilen auflistet und nicht in Spalten. :-(
Fällt dir vielleicht och was ein?
Leider ist es so das es ungefähr 3000 Mail Adressen sind und da hab ich mit den 255 Spalten ein Problem. Daher such ich ja ne Lösung das er die nach Zeilen auflistet und nicht in Spalten. :-(
Fällt dir vielleicht och was ein?
Antwort 3 von Beverly
Hi,
da ich deine Text-Datei nicht kenne, nehme ich jetzt mal einfach an, dass es keinen Zeilenumbruch darin gibt.
In Tabelle1 Zelle B1 steht der Name der Txt-Datei einschließlich Pfad. Ich habe es aber nicht mit 3000 Werten testen können, weshalb ich nicht weiß, ob der Code dann auch noch funktioniert.
Bis später,
Karin
da ich deine Text-Datei nicht kenne, nehme ich jetzt mal einfach an, dass es keinen Zeilenumbruch darin gibt.
Sub textdatei_einlesen()
Dim strAusgang As String, strTeil As String, strDatei As String
Dim loZähler As Long
loZähler = 1
strDatei = Worksheets("Tabelle1").Range("B1")
Open strDatei For Input As #1
Input #1, strAusgang
Close
With Worksheets("Tabelle1")
Do
strTeil = Left(strAusgang, InStr(strAusgang, ";") - 1)
.Cells(loZähler, 1) = strTeil
strAusgang = Right(strAusgang, Len(strAusgang) - InStr(strAusgang, ";"))
loZähler = loZähler + 1
Loop While InStr(strAusgang, ";") <> 0
End With
End Sub
In Tabelle1 Zelle B1 steht der Name der Txt-Datei einschließlich Pfad. Ich habe es aber nicht mit 3000 Werten testen können, weshalb ich nicht weiß, ob der Code dann auch noch funktioniert.
Bis später,
Karin
Antwort 4 von Smoere
Vielen Dank Karin,
mit deinem Code klappts!
Super danke
LG Marcel
mit deinem Code klappts!
Super danke
LG Marcel