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

Daten in TXT File vergleichen

Forumthread: Daten in TXT File vergleichen

Daten in TXT File vergleichen
16.01.2019 20:20:45
Andre´
Hallo alle zusammen,
Der Aufbau der TEXT Datei sieht wie folgt aus (Trennzeichen ist ein Doppelpunkt):
3334445556:N-....wwweeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
A10A:Test1:1
B10B:Test2:2
C10C:Test3:3
A10A:Test1:1
A10A:Test3:3
C10C:Test3:3
Gibt es eine VBA Möglichkeit, die Daten bis zum 2. Doppelpunkt zu vergleichen und die Werte nach dem 2. Doppelpunkt zu summieren?
Die erste Zeile muss nicht wieder gegeben werden.
So wie nachfolgend dargestellt soll es dann aussehen, wobei die Daten bis zum ersten Trennzeichen in SpalteA stehen sollen,
nach dem 1. Trennzeichen in SpalteD und nach dem 2. Trennzeichen in SpalteF.
Userbild
Hier die TXT Datei https://www.herber.de/bbs/user/126830.txt
Und hier die Exceldatei https://www.herber.de/bbs/user/126832.xls
Ich hoffe mir kann jemand helfen!
Vielen Dank im Voraus!
MFG Andre
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten in TXT File vergleichen
16.01.2019 21:41:16
Sepp
Hallo Andre,
eine Möglichkeit.
Modul Modul1 
Option Explicit 
 
Sub SumText() 
  Dim strFile As String, strTemp As String 
  Dim varIn As Variant, varOut As Variant, varTemp As Variant 
  Dim lngI As Long, lngJ As Long, varRet1 As Variant, varRet2 As Variant, varRet3 As Variant 
   
  strFile = "D:\Downloads\forum\126830.txt" 
   
  strTemp = TextReadAll(strFile) 
   
  If Len(strTemp) Then 
    varTemp = Split(strTemp, vbLf) 
    If Ubound(varTemp) > 0 Then 
      Redim varIn(Ubound(varTemp) - 1) 
      For lngI = 1 To Ubound(varTemp) 
        If Len(varTemp(lngI)) Then varIn(lngI - 1) = Split(varTemp(lngI), ":") 
      Next 
    End If 
    Redim varOut(1 To Ubound(varIn, 1) + 1, 1 To 7) 
    For lngI = 0 To Ubound(varIn, 1) 
      If IsArray(varIn(lngI)) Then 
        varRet1 = Application.VLookup(varIn(lngI)(0), varOut, 1, 0) 
        varRet2 = Application.VLookup(varIn(lngI)(0), varOut, 4, 0) 
        varRet3 = Application.VLookup(varIn(lngI)(0), varOut, 7, 0) 
        If CStr(varRet1) = varIn(lngI)(0) And CStr(varRet2) = varIn(lngI)(1) Then 
          varOut(varRet3, 6) = varOut(varRet3, 6) + CLng(varIn(lngI)(2)) 
        Else 
          lngJ = lngJ + 1 
          varOut(lngJ, 1) = varIn(lngI)(0) 
          varOut(lngJ, 4) = varIn(lngI)(1) 
          varOut(lngJ, 6) = CLng(varIn(lngI)(2)) 
          varOut(lngJ, 7) = lngJ 
        End If 
      End If 
    Next 
    Redim Preserve varOut(1 To Ubound(varOut), 1 To 6) 
    Range("A1").Resize(Ubound(varOut, 1), 6) = varOut 
  End If 
 
End Sub 
 
Private Function TextReadAll(ByVal FileName As String, Optional ByVal MaxLength As Long = 0) As String 
  Dim FF As Integer, strText As String 
 
  On Error Resume Next 
 
  If Dir(FileName, vbNormal) <> "" Then 
    FF = FreeFile 
    Open FileName For Binary As #FF 
    If MaxLength <= 0 Then MaxLength = LOF(FF) 
    If MaxLength > LOF(FF) Then MaxLength = LOF(FF) 
    strText = Space$(MaxLength) 
    Get #FF, , strText 
    Close #FF 
    TextReadAll = strText 
  End If 
 
  On Error GoTo 0 
  Err.Clear 
End Function 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Daten in TXT File vergleichen
16.01.2019 22:09:50
Andre´
Hallo Sepp,
vielen Dank für deine Lösung, die für mein Bsp. auch funktioniert.
Allerdings wenn noch mehr Daten im TXT-File sind so wird nicht richtig summiert :-(
Habe einfach noch paar Daten angefügt: https://www.herber.de/bbs/user/126836.txt
Mit dem Makro wird A10A,Test3 nicht summiert.
Ich hoffe hier gibt es noch eine Lösung.
MFG Andre
Anzeige
AW: Daten in TXT File vergleichen
16.01.2019 22:56:34
Sepp
Hallo Andre,
stimmt, habe ich korrigiert.
Modul Modul1 
Option Explicit 
 
Sub SumText() 
  Dim strFile As String, strTemp As String 
  Dim varIn As Variant, varOut As Variant, varTemp As Variant 
  Dim lngI As Long, lngJ As Long, varRet1 As Variant, varRet2 As Variant 
    
  strFile = "D:\Downloads\forum\126836.txt" 
    
  strTemp = TextReadAll(strFile) 
    
  If Len(strTemp) Then 
    varTemp = Split(strTemp, vbLf) 
    If Ubound(varTemp) > 0 Then 
      Redim varIn(Ubound(varTemp) - 1) 
      For lngI = 1 To Ubound(varTemp) 
        If Len(varTemp(lngI)) Then varIn(lngI - 1) = Split(varTemp(lngI), ":") 
      Next 
    End If 
    Redim varTemp(1 To Ubound(varIn, 1), 1 To 3) 
    For lngI = 0 To Ubound(varIn, 1) 
      If IsArray(varIn(lngI)) Then 
        varRet1 = Application.VLookup(varIn(lngI)(0) & ":" & varIn(lngI)(1), varTemp, 1, 0) 
        varRet2 = Application.VLookup(varIn(lngI)(0) & ":" & varIn(lngI)(1), varTemp, 3, 0) 
        If CStr(varRet1) = varIn(lngI)(0) & ":" & varIn(lngI)(1) Then 
          varTemp(varRet2, 2) = varTemp(varRet2, 2) + CLng(varIn(lngI)(2)) 
        Else 
          lngJ = lngJ + 1 
          varTemp(lngJ, 1) = varIn(lngI)(0) & ":" & varIn(lngI)(1) 
          varTemp(lngJ, 2) = CLng(varIn(lngI)(2)) 
          varTemp(lngJ, 3) = lngJ 
        End If 
      End If 
    Next 
    Redim varOut(1 To Ubound(varTemp), 1 To 6) 
    For lngI = 1 To Ubound(varTemp, 1) 
      If Len(varTemp(lngI, 1)) Then 
        varOut(lngI, 1) = Split(varTemp(lngI, 1), ":")(0) 
        varOut(lngI, 4) = Split(varTemp(lngI, 1), ":")(1) 
        varOut(lngI, 6) = varTemp(lngI, 2) 
      End If 
    Next 
    Range("A1").Resize(Ubound(varOut, 1), 6) = varOut 
  End If 
  
End Sub 
 
Private Function TextReadAll(ByVal FileName As String, Optional ByVal MaxLength As Long = 0) As String 
  Dim FF As Integer, strText As String 
 
  On Error Resume Next 
 
  If Dir(FileName, vbNormal) <> "" Then 
    FF = FreeFile 
    Open FileName For Binary As #FF 
    If MaxLength <= 0 Then MaxLength = LOF(FF) 
    If MaxLength > LOF(FF) Then MaxLength = LOF(FF) 
    strText = Space$(MaxLength) 
    Get #FF, , strText 
    Close #FF 
    TextReadAll = strText 
  End If 
 
  On Error GoTo 0 
  Err.Clear 
End Function 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Daten in TXT File vergleichen
17.01.2019 17:18:44
Andre´
Hallo Sepp,
vielen Dank für die Lösung .... jetzt funktioniert es wie gewünscht :-)
MFG Andre
AW: Daten in TXT File vergleichen
16.01.2019 22:27:25
Günther
Moin,
mit Stichwort: Power Query (2010/13) aka Daten | Abrufen und transformieren (2016/365) sind das ein paar Mausklicks über Gruppieren ...
Gruß
Günther
;

Forumthreads zu verwandten Themen

Gefilterte Dateien in txt exportieren
Gerhard

Namd zusammen
Gibt es eine Möglichkeit ausschliesslich gefilterte Dateien in eine txt Datei zu speichern?
Habe eine grosse Tabelle aus der ich nur einzelne Spalten (andere Spalten sind via VBA ausgeblendet) benötige und aus diesen noch sichtbaren Spalten via Autofilter nochmals eingren...
18.08.2008 21:35:19
Thread-ID: 1002746
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Anzeige
Userdaten in Txt-File
gatewax

Hallo an alle Excelperten,
ich möchte aus einer im Netzwerk befindlichen Exceldatei, die schreibgeschützt geöffnet wird, gerne die userdaten wie name, datum, uhrzeit in eine textdatei schreiben lassen.
ist das möglich?
danke im voraus
gruß gatewax
30.10.2008 11:12:00
Thread-ID: 1020529
3 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Excel-Daten in TXT umwandeln
dani

Hallo zusammen
ich bins nochmal.
Ich muss aus einer Excel-Tabelle mit Daten in verschiedenen Spalten ein txt-file generieren können.
Das klappt auch bestens, aber die Daten in einer Zeile sollten ohne Abstände dargestellt werden.
Jetzt sieht das im txt-file so aus:
Satz_ID...
20.02.2009 13:29:00
Thread-ID: 1052429
7 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Anzeige
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge
Datumsformat in Zahl umwandeln
Karsten

Hallo,
in meiner Zelle steht z.B. 8. im Datumsformat T"." .
Läßt diese 8. auf irgendweise umwandeln in eine Zahl 8. umwandeln?
Mit copy und paste spezial... komme ich nicht weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.07.2009 14:18:15
Thread-ID: 1087869
17 Beiträge
Bei Export in .txt Datum umwandeln
Daniel

Hallo Zusammen,
ich habe in Spalte B ein Datum mit Uhrzeit in "deutschem Format" stehen.
Nun exportiere ich einen Bereich in eine Textdatei, dort brauche ich das Datum
aber als "TTMMJJJJ hh:mm". Was muss ich in meinem Makro ändern, damit ich
dieses Ergebnis bekomme?
Sub sav...
15.07.2009 11:07:46
Thread-ID: 1088769
8 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Anzeige
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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