VBA- Aus mehrere CSV Datein Suchwert finden um dann Ganze Zeile in Excel auszugeben

[Der Steuerfuzzi]

Office XP ist ja sogar noch älter:

Office XP was released to manufacturing on March 5, 2001[8] and was later made available to retail on May 31, 2001.

Quelle: https://en.wikipedia.org/wiki/Microsoft_Office_XP

SCNR

[Der Steuerfuzzi]

also die CSV Datei kann ich nicht hochladen.
Es ist aber nichts anderes als das was ich bisher geschrieben habe.
A1;A2;A3;$A4;;A5;A6;$A7;$A8;A9;A10;A11;A12;A13;A14;$A15;A16;
B1;B2;B3;$B4;;B5;B6;$B7;B8;B9;$B10;B11;$B12;

Nochmal: Ohne die genauen Grundlagen zu kennen mache ich nicht weiter. An Deinen Angaben hier kann ich z. B. nicht erkennen, ob die Zeilen mit CR, CRLF, LF oder gar nicht abgeschlossen werden.

Bei mir fuktioniert es auf jeden Fall mit nach Deinen Vorgaben selbst erstellen csv-Dateien. Damit habe ich schon weit mehr gemacht, als ich eigentlich vor hatte!

[RPP63]

Lulu hat es erst später raubkopiert!  :19:

[Jockel]

Moin!
Zur Vorsicht mal die Nachfrage:
Du verwendest ein 16 Jahre altes Excel?
Professionell, also als Produktiv-System?

Gruß Ralf

Hallo Michael,

erst mal vielen lieben Dank für deine Antwort!
Ich habe mir das angesehen und mich ein wenig mit das Thema  PowerQuery beschäftigt.

....

...

[Rabe]

Hi Jörg,

Du willst also drauf hinweisen, daß Lulu vermutlich doch nicht Excel XP benutzt, sondern eine neuere Version, in der PQ funktioniert?

[RPP63]

Sich mit dat Thema beschäftigen am tun hat nix mit die Version am tuen dran!
Ärntshaft!

[Käpt'n Blaubär]

Hallo Ralf,

laß' es lieber sein.
Dein Kohlenpottanisch ist grausam und zusätzlich auch syntaktisch falsch  :05: :19: :05:

Jürgen von Manger rotiert nun noch Stunden und Aberstunden im Grab :22: .

[Jockel]

Hi Jörg,

Du willst also drauf hinweisen, daß Lulu vermutlich doch nicht Excel XP benutzt, sondern eine neuere Version, in der PQ funktioniert?

Hi Ralf, nein bzw. auch. Hauptsächlich meine ich dass sich "ein wenig mit das Thema (PQ) beschäftigen" nicht reicht, um auch nur ansatzweise etwas Vernünftiges zustande zu bringen ... ... und wenn keine Version zur Hand ist in dem man das umsetzten kann, ist das eh vergebene "Liebesmüh' "

[schauan]

Hallöchen,

Bereits im ursprünglichen Code des TE wurde jeweils nur die Zeile eingelesen, die den Suchbegriff enthält:
If InStr(1, InputData, such) > 0 Then

Wenn das da schon nicht funktioniert hat, fällt mir im Moment erst mal nur ein, dass da kein "richtiger" Zeilenvorschub in den CSV ist. Wenn das komplette File als eine Zeile eingelesen wird, dann kommt auch alles in die Excel-Datei

Ob das so ist, siehst Du eventuell, wenn Du die CSV mit einem Texteditor öffnest und da steht schon alles hinternanderweg …

[Der Steuerfuzzi]

Zitat von Microsoft:

Die Line Input # -Anweisung liest eine Datei Zeichen für Zeichen bis zu einem Wagenrücklauf ( Chr( 13 ) ) oder einer Wagenrücklauf/Zeilenvorschub-Sequenz ( Chr( 13 ) + Chr( 10 ) ). Wagenrücklauf/Zeilenvorschub-Sequenzen werden der Zeichenfolge nicht angefügt, sondern überspungen.

D.h. wenn die Zeile mit Chr(10) beendet wird, wird diese nicht als Zeile wahrgenommen.

Allerdings zeigt z. B. Notepad++ Chr(10) als Zeilenumbruch an, was dazu führt, dass die Datei als unproblematisch gesehen wird. Besser nimmt man hier den Windows Editor, der bei chr(10) keinen Umruch anzeigt (aber auch bei chr(13) keinen anzeigt, obwohl dieser von Line Input als Zeilenende interpretiert wird!). Um ganz sicher zu gehen kann man einen Hex-Editor bemühen, dann ist es ganz deutlich erkennbar.

Wenn man wüsste, woher die csv kommen, könnte man dort evtl. den Zeilenumbruch konfigurieren.

Ohne weitere Informationen ist das aber ein reines Rätselraten.