Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

EDI (Txt) Datei mit Excel einlesen

EDI (Txt) Datei mit Excel einlesen
01.08.2013 10:24:05
Dirk
Hallo @all,
habe wieder mal ein Problem und hoffe wie so oft, hier eine Lösung bzw. Lösungsansatz zubekommen. Im Moment bekomme ich per FAX eine Sendungsaufstellung ca. 30-70 Positionen, die ich dann in ein Excel Datei (Lieferschein) Sendung für Sendung eingebe und ausdrucke. Jetzt habe ich dem Absender gefragt ob es nicht möglich wäre mir eine Excel bzw. TXT-Datei zu schicken, statt dem FAX. Gesagt ....getan. Nun bekomme ich eine EDI Txt-Datei und habe gehofft, dass diese durch TAB oder ; getrennt wäre! Leider ist es nicht der Fall. Meine Frage kann Excel eine EDI Datei einlesen?
https://www.herber.de/bbs/user/86665.txt und habe noch eine Art Anleitung bekommen?!
https://www.herber.de/bbs/user/86666.xlsx
Vielen Dank
DIRK

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: EDI (Txt) Datei mit Excel einlesen
01.08.2013 11:27:06
UweD
Hallo Rolf
Ich habe die WB Spalte mit zu den Namen reingenommen...
Erfassung
 GHIJK
1  
2  So soll es seinAusgabe NameAusgabe Anzahl 
3    Hecker, Berta WB EG2 
4    Müller, Erna WB 12 
5    Hecker, Berta WB 23 
6    Schmitt, Petra WB 31 
7    Schmitt, Angela WB 41 

verbundene Zellen
G1:K1

verwendete Formeln
Zelle Formel Bereich
I3 =A3&" "&B3 
J3 =SUMMENPRODUKT((A:A&" "&B:B=I3)*1) 
I4 {=INDEX(A$3:A$99&" "&B$3:B$99;VERGLEICH(1;(ZÄHLENWENN(I$3:I3;A$3:A$99&" "&B$3:B$99)=0)*(A$3:A$99&" "&B$3:B$99<>"");0))} $I$4
{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!


Tabellendarstellung in Foren Version 5.49


Gruß UweD

Anzeige
falscher Fred!!!!! owT
01.08.2013 12:00:03
Rudi

ups.. Falscher Beitrag
01.08.2013 12:11:01
UweD
Danke für den Hinweis...

AW: EDI (Txt) Datei mit Excel einlesen
01.08.2013 13:02:26
Rolf
Hallo UweD,
Danke für den Versuch. Das geht bei mir aber nur für den Moment.
Habe deine Formeln eingetragen und in den Zeilen nach unten kopiert. Wenn ich nun weitere Namen eintrage, werden diese nicht aufsummiert sondern einzeln in den Spalten I und J ausgegeben.
In deiner Formelerklärung steht auch noch ein Eintrag in "Bereich" den ich nicht gang lesne kann. Dort steht nur I4
Gruß Rolf

was soll der Scheiß?
01.08.2013 13:19:14
Rudi
Hallo,
warum kaperst du einen fremden Thread? Bleib gefälligst in deinem eigenen!
Wenn Uwe sich schon vertan hat, musst du das ja nicht noch verschlimmern (so wie ich jetzt auch).
Gruß
Rudi

Anzeige
AW: was soll der Scheiß?
01.08.2013 13:23:33
Rolf
Tut mir leid Rudi,
Wenn jemand löschen kann möge er es tun. ich kann`s nicht :-(
War keine Absicht.
Gruß Rolf

AW: EDI (Txt) Datei mit Excel einlesen
01.08.2013 12:10:10
Rudi
Hallo,
in ein Modul:
Option Explicit
Sub ReadEDI()
Dim sFile As String, arrFile, i As Long, arrDaten(), iCounter As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
If .Show = -1 Then
sFile = .SelectedItems(1)
End If
End With
If sFile  "" Then
Open sFile For Input As #1
arrFile = Split(Input(LOF(1), 1), vbCrLf)
Close #1
ReDim arrDaten(UBound(arrFile))
For i = 0 To UBound(arrFile)
Select Case Left(arrFile(i), 2)
Case "R0"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 5, 7, 10, 15, 23, 58), _
Array(2, 2, 3, 5, 8, 35, 30))
Case "R1"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 7, 13, 19, 25, 31, 56, 81, 84, 114, 117, 148, 154, 165, 177, 186, 199), _
Array(4, 6, 6, 6, 6, 25, 25, 3, 30, 3, 31, 6, 11, 12, 9, 13, 3))
Case "R2"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 6, 56, 69), _
Array(3, 50, 13, 3))
Case "R3"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 33, 38, 41, 71, 116), _
Array(30, 5, 3, 30, 45, 11))
Case "R4"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3), _
Array(75))
Case "R6"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 4, 39, 74, 109, 144, 153, 179, 181), _
Array(1, 35, 35, 35, 35, 9, 26, 2, 3))
Case "RT"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 6, 12), _
Array(3, 6, 11))
End Select
Next
End If
With Worksheets.Add
For i = 0 To UBound(arrDaten)
If IsArray(arrDaten(i)) Then
.Cells(i + 1, 1).Resize(, UBound(arrDaten(i)) + 1) = arrDaten(i)
End If
Next
.Columns.AutoFit
End With
End Sub
Function fncEDI(ByVal strTmp As String, arr1, arr2)
Dim arrTmp(), i As Integer
ReDim arrTmp(UBound(arr1))
For i = 0 To UBound(arr1)
arrTmp(i) = Trim(Mid(strTmp, arr1(i), arr2(i)))
Next
fncEDI = arrTmp
End Function

Gruß
Rudi

Anzeige
AW: EDI (Txt) Datei mit Excel einlesen
01.08.2013 13:23:25
Dirk
Hall Rudi,
bekomme leider immer ein Debuggen-Fehler, wenn ich diese txt-Datei einlesen will:
https://www.herber.de/bbs/user/86669.txt
Fehler der Gelb markiert wird:
With Worksheets.Add
For i = 0 To UBound(arrDaten)
If IsArray(arrDaten(i)) Then
.Cells(i + 1, 1).Resize(, UBound(arrDaten(i)) + 1) = arrDaten(i)
End If
Next
.Columns.AutoFit
End With
'
End Sub

AW: EDI (Txt) Datei mit Excel einlesen
01.08.2013 13:43:43
Rudi
Hallo,
ändere
   With Worksheets.Add
.Columns("A:T").NumberFormat = "@"
For i = 0 To UBound(arrDaten)
If IsArray(arrDaten(i)) Then
.Cells(i + 1, 1).Resize(, UBound(arrDaten(i)) + 1) = arrDaten(i)
End If
Next
.Columns.AutoFit
End With

Gruß
Rudi

Anzeige
AW: EDI (Txt) Datei mit Excel einlesen
01.08.2013 22:12:01
rolfwagner@t-online.de
Hallo Dirk,
ich glaube du hast den falschen Adressaten
Gruß Rolf

in wiefern? owT
02.08.2013 09:12:16
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen