VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 16:44:08	Rilyntar
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 17:14:39	Gast7777
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 17:45:31	Gast43436
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 19:05:07	xlKing
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 20:31:52	xlKing
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	29.07.2021 10:47:49	Rilyntar

Ansicht des Beitrags:

Von:
Rilyntar

Datum:
28.07.2021 16:44:08

Views:
1033

Rating:

Antwort:

Thema:
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben

Hallo liebe Community,

ich verwende Excel 2016 (Windows) und möchte eine Textdatei mit mehreren Datensätzen in eine Tabelle umwandeln, so dass die Werte untereinander in den jeweiligen Spalten zu lesen sind.

Jeder Datensatz beginnt mit dem Wort Buchungstag und endet mit dem Wort Geä Empf-BIC. Der letzte Datensatz ist ein Summensatz und wird von mir nicht zwingend benötigt, er schadet aber auch nicht, wenn er eingelesen wird.

Im Beispielcode findet ihr die Datei mit 5 Datensätzen und der 1 Summendatensatz.

Ich möchte am Ende gerne jeden Datensatz in einer Zeile stehen haben, wobei die einzelnen Felder und Werte jeweils in einer Spalte stehen. Die Spalten heißen also z.B. Buchungstag; VGA; Betrag; AG Name; AG IBAN uns so weiter.

Ihr seht schon als besondere Herausforderung gibt es keine Trennzeichen und der Wert vom Eintrag Verw.Zweck geht auch mal über mehrere Zeilen.

Bin gespannt, ob das möglich ist. Habt Ihr eine Idee?

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

Buchungstag 12.10.2020   VGA  251000              Betrag                3499,01   EUR AG Name     FirmaA S.A.R.L.
AG IBAN     DE59123456789012345678                AG BIC       HSHNDEHHXXX  Status STATUS 34
Empf Name   Firma C GmbH
Empf IBAN   LU239876543210987654                  Empf BIC     BCEELULLXXX
Verw.Zweck  4660.9347.0538 FirmaA S.A.R.L. TID: 8NZ0HTLRA9U53SGM Invoice 2020100153
BIC Instituts Agent
 
SEPA Ref    59373504     SEPA Datum   09.10.2020  VER.KTO
EndToEnd-ID 31HA07BC8100A14C7302254937D9C9A0      AENDERUNGSBELEG           Kanal 9100
ETOE BankRef                                       Leitweg      LW400001
EndtoEndRef                                        BearbeiTag   09.10.2020
Sammel Datum Ein  09.10.2020  Sammel Ref Ein  591644        AG/Clear Kto 1234567890
Sammel Datum Aus  12.10.2020  Sammel Ref Aus  592421        Summe Sammel              381709,54
KZ EZ/Clear.Post                      Anzahl  5
Entgelt                           0,00
Entgelt fremd                     0,00
Schadenersatz                     0,00
Ultimate Deb  FirmaA S.A.R.L.
Debitor 1     Strasse 1
Debitor 2     LU 6755 Grevenmacher
BATCH BOOKING             EMB_UEBERMITTLUNGSZEIT 0                EMB_STATUS
EMB_RETURNCODE            EMB_RUECKMELDEZEIT     0                EMB_POSTPONED
FEHLER AUFTRAG X          DAT.VORGAENGERPOSTEN
FEHLER POSTEN X          REF.VORGAENGERPOSTEN
 
Geä AG-IBAN                                        Geä AG-BI                 Geä VGA Geä Empf-IBAN                                      Geä Empf-BIC
Buchungstag 09.10.2020   VGA  251000              Betrag               40483,65   EUR AG Name     FirmaA S.A.R.L.
AG IBAN     DE59234567890123456789                AG BIC       HSHNDEHHXXX  Status STATUS 34
Empf Name   Firma B GmbH
Empf IBAN   DE97876543210987654321                Empf BIC     BYLADEM1SKB
Verw.Zweck  4660.9334.3316 FirmaA S.A.R.L. TID: 0J6G8VPMA1STIWXD Invoice 90165996
BIC Instituts Agent
 
SEPA Ref    59373502     SEPA Datum   09.10.2020  VER.KTO      578543670
EndToEnd-ID 31HA07BC8100A14C73024A44229FF8B3      AENDERUNGSBELEG           Kanal 9100
ETOE BankRef                                       Leitweg      LW214002
EndtoEndRef                                        BearbeiTag   09.10.2020
Sammel Datum Ein  09.10.2020  Sammel Ref Ein  591644        AG/Clear Kto 1234567890
Sammel Datum Aus  09.10.2020  Sammel Ref Aus  590315        Summe Sammel              381709,54
KZ EZ/Clear.Post                      Anzahl  5
Entgelt                           0,00
Entgelt fremd                     0,00
Schadenersatz                     0,00
Ultimate Deb  FirmaA S.A.R.L.
Debitor 1     Strasse 1
Debitor 2     LU 6755 Grevenmacher
BATCH BOOKING             EMB_UEBERMITTLUNGSZEIT 0                EMB_STATUS
EMB_RETURNCODE            EMB_RUECKMELDEZEIT     0                EMB_POSTPONED
FEHLER POSTEN             REF.VORGAENGERPOSTEN
 
Geä AG-IBAN                                        Geä AG-BI                 Geä VGA Geä Empf-IBAN                                      Geä Empf-BIC
Buchungstag 12.10.2020   VGA  251000              Betrag               73391,88   EUR AG Name     FirmaA S.A.R.L.
AG IBAN     DE59345678901234567890                AG BIC       HSHNDEHHXXX  Status STATUS 34
Empf Name   Firma D Limited
Empf IBAN   CY30765432109876543210987654          Empf BIC     BCYPCY2NXXX
Verw.Zweck  4660.9325.8500 FirmaA S.A.R.L. TID: D45Z9ZR12PF05XS7 Invoice AUGUST2020 SEPTEMBE
R2020                                                           BIC Instituts Agent
 
SEPA Ref    59373501     SEPA Datum   09.10.2020  VER.KTO
EndToEnd-ID 31HA07BC8100A14C7302203D8AE1B1A4      AENDERUNGSBELEG           Kanal 9100
ETOE BankRef                                       Leitweg      LW400001
EndtoEndRef                                        BearbeiTag   09.10.2020
Sammel Datum Ein  09.10.2020  Sammel Ref Ein  591644        AG/Clear Kto 1234567890
Sammel Datum Aus  12.10.2020  Sammel Ref Aus  592421        Summe Sammel              381709,54
KZ EZ/Clear.Post                      Anzahl  5
Entgelt                           0,00
Entgelt fremd                     0,00
Schadenersatz                     0,00
Ultimate Deb  FirmaA S.A.R.L.
Debitor 1     Strasse  1
Debitor 2     LU 6755 Grevenmacher
BATCH BOOKING             EMB_UEBERMITTLUNGSZEIT 0                EMB_STATUS
EMB_RETURNCODE            EMB_RUECKMELDEZEIT     0                EMB_POSTPONED
FEHLER AUFTRAG X          DAT.VORGAENGERPOSTEN
FEHLER POSTEN X          REF.VORGAENGERPOSTEN
 
Geä AG-IBAN                                        Geä AG-BI                 Geä VGA Geä Empf-IBAN                                      Geä Empf-BIC
Buchungstag 12.10.2020   VGA  251000              Betrag               78015,00   EUR AG Name     FirmaA S.A.R.L.
AG IBAN     DE59456789012345678901                AG BIC       HSHNDEHHXXX  Status STATUS 34
Empf Name   Firma E Ltd
Empf IBAN   LT376543210987654321                  Empf BIC     NEUALT21XXX
Verw.Zweck  4660.9353.0100 FirmaA S.A.R.L. TID: NYGUTN323A1AAY0Y SEPA wires only, SWIFT wire
s will be rejected: Invoice 146 145                             BIC Instituts Agent
 
SEPA Ref    59373505     SEPA Datum   09.10.2020  VER.KTO
EndToEnd-ID 31HA07BC8100A14C7302440EB51FC3EA      AENDERUNGSBELEG           Kanal 9100
ETOE BankRef                                       Leitweg      LW400001
EndtoEndRef                                        BearbeiTag   09.10.2020
Sammel Datum Ein  09.10.2020  Sammel Ref Ein  591644        AG/Clear Kto 1234567890
Sammel Datum Aus  12.10.2020  Sammel Ref Aus  592421        Summe Sammel              381709,54
KZ EZ/Clear.Post                      Anzahl  5
Entgelt                           0,00
Entgelt fremd                     0,00
Schadenersatz                     0,00
Ultimate Deb  FirmaA S.A.R.L.
Debitor 1     Strasse 1
Debitor 2     LU 6755 Grevenmacher
BATCH BOOKING             EMB_UEBERMITTLUNGSZEIT 0                EMB_STATUS
EMB_RETURNCODE            EMB_RUECKMELDEZEIT     0                EMB_POSTPONED
FEHLER AUFTRAG X          DAT.VORGAENGERPOSTEN
FEHLER POSTEN X          REF.VORGAENGERPOSTEN
 
Geä AG-IBAN                                        Geä AG-BI                 Geä VGA Geä Empf-IBAN                                      Geä Empf-BIC
Buchungstag 12.10.2020   VGA  251000              Betrag              186320,00   EUR AG Name     FirmaA S.A.R.L.
AG IBAN     DE59567891012345678901                AG BIC       HSHNDEHHXXX  Status STATUS 34
Empf Name   Firma F GmbH
Empf IBAN   DE34543210987654321098                Empf BIC     COBADEFFXXX
Verw.Zweck  4660.9339.0808 FirmaA S.A.R.L. TID: 7B55Y21SBD0FUSQ7 Invoice 2020-08
BIC Instituts Agent
 
SEPA Ref    59373503     SEPA Datum   09.10.2020  VER.KTO      5804455
EndToEnd-ID 31HA07BC8100A14C73022DD0626585E8      AENDERUNGSBELEG           Kanal 9100
ETOE BankRef                                       Leitweg      LW400001
EndtoEndRef                                        BearbeiTag   09.10.2020
Sammel Datum Ein  09.10.2020  Sammel Ref Ein  591644        AG/Clear Kto 1234567890
Sammel Datum Aus  12.10.2020  Sammel Ref Aus  592421        Summe Sammel              381709,54
KZ EZ/Clear.Post                      Anzahl  5
Entgelt                           0,00
Entgelt fremd                     0,00
Schadenersatz                     0,00
Ultimate Deb  FirmaA S.A.R.L.
Debitor 1     Strasse 1
Debitor 2     LU 6755 Grevenmacher
BATCH BOOKING             EMB_UEBERMITTLUNGSZEIT 0                EMB_STATUS
EMB_RETURNCODE            EMB_RUECKMELDEZEIT     0                EMB_POSTPONED
FEHLER POSTEN             REF.VORGAENGERPOSTEN
 
Geä AG-IBAN                                        Geä AG-BI                 Geä VGA Geä Empf-IBAN                                      Geä Empf-BIC
Buchungstag 09.10.2020   VGA  220100              Betrag              381709,54   EUR AG Name
AG IBAN                                            AG BIC                    Status GEBUCHT Empf Name   FirmaA S.A.R.L.
Empf IBAN   DE59678901234567809012                Empf BIC     HSHNDEHHXXX Verw.Zweck
BIC Instituts Agent
 
SEPA Ref    900000818205 SEPA Datum   09.10.2020  VER.KTO      1001310013
EndToEnd-ID                                        AENDERUNGSBELEG           Kanal 9100
ETOE BankRef                                       Leitweg      LW100000
EndtoEndRef PI-1602234425895                      BearbeiTag   09.10.2020
Sammel Datum Ein  09.10.2020  Sammel Ref Ein  591644        AG/Clear Kto 1234567890
Sammel Datum Aus              Sammel Ref Aus                Summe Sammel              381709,54
KZ EZ/Clear.Post  Summensatz          Anzahl  5
Entgelt                           0,00
Entgelt fremd                     0,00
Schadenersatz                     0,00
BATCH BOOKING             EMB_UEBERMITTLUNGSZEIT 0                EMB_STATUS
EMB_RETURNCODE            EMB_RUECKMELDEZEIT     0                EMB_POSTPONED
FEHLER POSTEN             REF.VORGAENGERPOSTEN
 
Geä AG-IBAN                                        Geä AG-BI                 Geä VGA Geä Empf-IBAN                                      Geä Empf-BIC

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 16:44:08	Rilyntar
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 17:14:39	Gast7777
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 17:45:31	Gast43436
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 19:05:07	xlKing
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	28.07.2021 20:31:52	xlKing
Text Datei einlesen, Variablen identifizieren und in Spalten ausgeben	29.07.2021 10:47:49	Rilyntar