Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

daten importieren

daten importieren
06.01.2006 13:32:04
Conny
Habe Daten im Txt-Format so
Name.......: Otto
Vorname. .: Frierich
Strasse....: Schillerstr. 3
Name.......: Meier
Vorname....: Carolin
Strasse....: Geothestr. 10
Name.......: und so weiter
und möchte diese Daten in eine Excel-Tabelle für einen Serienbrief.
Gibt es da eine Lösung?
Gruß Conny

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: daten importieren
06.01.2006 13:43:13
Simon
Hallo,
was hälst du von folgender Idee:
mit Word (oder ähnliches) öffnen,
alle Zeilenumbrüche (ist glaube ich "^a") durch nichts ersetzen
Alle "Name.......:" durch einen Zeilenumbruch ersetzen
Alle "Vorname.......:" durch ";" ersetezn (oder ähnliches Symbol
Alles "Str... " durch ";" ersetezn (oder ähnliches Symbol
Als Text speichern und in Excel importieren
AW: daten importieren
06.01.2006 13:54:03
Conny
Ja ich habe so was habe ich in php programmiert.
Ich dachte es gibt eine Excel-Lösung
AW: daten importieren
06.01.2006 14:42:24
Peter
Hallo Conny,
schau die beigefügte Excel-Mappe, die löst dein 'Problem', muss ggf. noch um Pstlz und Ort ergänzt werden.
https://www.herber.de/bbs/user/29789.xls
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: daten importieren
06.01.2006 15:05:19
volker
hallo
du könntest aber auch die datei gleich im makro lesen und nur die werte übernehmen di für dich relevant sin . zB. so:

Sub import()
zeile = 1
Open "c:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, textzeile
If InStr(textzeile, "Name") Then Cells(zeile, 1) = Mid(textzeile, InStr(textzeile, ":") + 1, Len(textzeile))
If InStr(textzeile, "Vorname") Then Cells(zeile, 2) = Mid(textzeile, InStr(textzeile, ":") + 1, Len(textzeile))
If InStr(textzeile, "Straße") Then Cells(zeile, 3) = Mid(textzeile, InStr(textzeile, ":") + 1, Len(textzeile))
If textzeile = "" Then zeile = zeile + 1
Loop
Close #1
End Sub

Dateiname test.txt mußt du natürlich ändern.
gruß volker.
Anzeige
AW: daten importieren
06.01.2006 16:08:10
Conny
Das klappt ja prima.
Vielen Dank an Alle für die schnelle Antwort.
Und allen ein schönes Wochenende. Gruß Conny

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige