daten importieren

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

AW: daten importieren

06.01.2006 13:43:13

Simon
AW: daten importieren

06.01.2006 13:54:03

Conny
AW: daten importieren

06.01.2006 14:42:24

Peter
AW: daten importieren

06.01.2006 15:05:19

volker
AW: daten importieren

06.01.2006 16:08:10

Conny

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.

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.

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)

Forumthread: daten importieren

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread