Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

text-dateien auslesen

text-dateien auslesen
04.05.2006 20:29:02
Bernd
hallo,
ich möchte 2 txt-dateien mit einander vergleichen.
wenn es eine übereinstimmung gibt, soll die zeile in der textdatei in die erste zeile der xls datei geschrieben werden.
usw.
beispiel:
txt-datei 1 hat vollgenden inhalt:
Datensatz ist gar nicht so gross
0202000154 ist keine zahl sondern text
in tx-datei 2 steht:
0202000154;55487621;Gerd;Mai;Schulstrasse 28;22099 Hamburg
0202000155;55487622;Frank;Juni;Gasse 28;22099 Hamburg
0202000156;55487623;Manuell;Juli;Weg 28;22099 Hamburg
0202000157;55487624;Frida;August;Pfad 28;22099 Hamburg
nun soll eine übereinstimmung beider txt-dateien erfolgen und wenn ein textinhalt aus txt 1 in txt 2 gefunden wird, soll die gefundene zeile in tabelle1 oben beginnend eingetragen werden
ich hoffe mich verständlich gemacht zu haben und vilen dank imvorraus.
habe keine ahnung ob das überhaupt geht.
gruss Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: text-dateien auslesen
04.05.2006 20:55:13
Erich
Hallo Bernd,
mein Vorschlag:
Mit Word kann man ganz gut Dateien vergleichen, ganz ohne Programmierung - auch Textdateien.
Die Ergebnisse kannst du dann auch noch in ein Excel-Tabellenblatt kopieren.
Grüße von Erich aus Kamp-Lintfort
AW: text-dateien auslesen
05.05.2006 08:15:34
Heiko
Hallo Bernd,
z.B. so:

Sub Vergleich()
Dim arrDaten1() As String, arrDaten2() As String
Dim strHelp1 As String, strhelp2 As String
Dim lng1 As Long, lng2 As Long, lngZZ As Long
' Pfade für die Textdateien anpassen.
' Datei 1 ist die nur mit den Nummern
Open "C:\Copy\TextDat1.txt" For Binary As #1
strHelp1 = Space(LOF(1))
Get #1, , strHelp1
arrDaten1 = Split(strHelp1, vbCrLf)
Close #1
' Datei 2 ist die mit den weiterren Angaben.
Open "C:\Copy\TextDat2.txt" For Binary As #1
strhelp2 = Space(LOF(1))
Get #1, , strhelp2
arrDaten2 = Split(strhelp2, vbCrLf)
Close #1
lngZZ = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
For lng1 = 0 To UBound(arrDaten1)
For lng2 = 0 To UBound(arrDaten2)
If arrDaten1(lng1) <> "" And arrDaten2(lng2) <> "" Then
If InStr(1, arrDaten2(lng2), arrDaten1(lng1)) > 0 Then
ActiveSheet.Cells(lngZZ, 1) = arrDaten2(lng2)
lngZZ = lngZZ + 1
End If
End If
Next lng2
Next lng1
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige