Office: (Office 2007) VBA: Zeilenumbruch, vbCrLf, vbLf

Hallo,

ich habe ein Problem, es geht darum, dass ich eine txt.-Datei in eine Excel-Datei importiere. Bisher hat es ganz gut geklappt aber jetzt habe ich gesehen das die txt.-Datei zwei unterschiedliche Layouts hat. Kein großartiger Unterschied eigentlich, nur was anders ist, sind die Zeilenumbrüche. Ich habe gesehen, das die erste Datei mit der ich getestet hatte bei Zeilenumbrüchen CrLf stehen hat. Die andere Datei hat aber nur Lf stehen. Dadurch kriege ich in der Excel-Datei einen Laufzeitfehler 1004. Hat da jemand eine Idee ohne den Code erst mal zu sehen?

Beste Grüße
kesici

:)

 

Hi!
CrLf ist Chr(10) & Chr(13)
Lf ist nur Chr(10)

Also .Replace What:=Chr(13), Replacement:="", LookAt:=xlPart

Gruß Ralf

 

Hallo Ralf,

danke für die schnelle Antwort. Also im Code steht für den Bereich vbCrLf. Ich hatte das schon auf vbLf geändert. Nur hat das nichts geändert, komischer Weise wird der Fehler nicht hier angezeigt sondern paar Codezeilen davor.

Ich poste am besten mal den Bereich, der meiner Ansicht nach Probleme macht.

Code:

Der Fehler wird hier angezeigt:
ThisWorkbook.Worksheets("txt.File").Cells(1, 1).Resize( _
UBound(vntArrayWerte) + 1) = Application.Transpose(vntArrayWerte)

 

Moin!
Wie du weist, gibt es zig Möglichkeiten des 1004ers.
Blattschutz?
Genaue Fehlerbeschreibung?
Variablenwerte zur Laufzeit?
Ansonsten gibt das ein Stochern im Nebel.

Gruß Ralf

 

Ja, da hast du Recht. Ich hatte gehofft, dass das vielleicht helfen könnte. Aber egal, dann lad ich mal ne Test-Datei hoch + die txt.-Datei.

Die txt.-Datei sieht folgendermaßen aus:

Performed Errata Analysis:-----------------------------Gescannte Werte:10023: Test Beispiel "möglich" , 10142: TestBeispiel, Werte wurden beeinträchtigt. , 10203: [ABC] So ein Beispiel ist auch möglich , 10208: Genau wie das (0x200) Gescannte Werte:----------------Beeinträchtigt von:10214: Test Beispiel10511: Test Beispiel210876: Test Beispiel2i.Analysierte Fehler:=======================30038: Test: Test-Beispiel für33576: Testpunkt - Punkte42873: Beispiele

Als Ergebnis soll das obere Format in Excel zu folgendem umgewandelt werden:

Performed Errata Analysis:
-----------------------------
Gescannte Werte:
10023: Test Beispiel "möglich" ,
10142: TestBeispiel, Werte wurden beeinträchtigt. ,
10203: [ABC] So ein Beispiel ist auch möglich ,
10208: Genau wie das (0x200)

Gescannte Werte:
----------------
Beeinträchtigt von:
10214: Test Beispiel
10511: Test Beispiel
210876: Test Beispiel2i.

Analysierte Fehler:
=======================
30038: Test: Test-Beispiel für
33576: Testpunkt - Punkte
42873: Beispiele

Wie gesagt, mit der alten txt.-Datei funktionierte das so halbwegs bisher. Aber mit dem Format oben kommt ein Fehler und ab der 2. Überschrift macht er nichts mehr.

 

Sinnvoll wäre es doch, den Fehler/Unterschied gleich in der Textdatei zu bereinigen, um dann geplant und standardisiert in Excel weiterarbeiten zu können.

Auch ohne Code:
- Textdateiinhalt in Stringvariable einlesen
- gezieltes Replace auf den Variableninhalt anwenden
- Variableninhalt in Textdatei zurückschreiben
- eigentliche Excelmaßnahmen

 

Ja, es wäre eigentlich eine bessere Lösung, vor allem für mich. Müsste mir keine Gedanken drüber machen und hier nicht nach Fragen. Aber die Excel-Datei soll leider angepasst werden und nicht die txt.-Datei.