---

Hallo,

habe folgendes problem:
habe eine txt datei mit tab als trennzeichen.
lese diese wie folgt in excel ein:

Code:

---

Sub txtEinlesen()
  Application.ScreenUpdating = False
  With Workbooks.Open(Filename:=ThisWorkbook.Path & "\test.txt").Sheets(1)
    .Range("A1").CurrentRegion.Copy ThisWorkbook.Worksheets("Tabelle1").Range("A2")
    .Parent.Close False
  End With
  Application.ScreenUpdating = True
End Sub

---

alles soweit gut.

das problem ist, dass an manchen stelle in der textdatei so "komische" zeichen (quadratich) vorhanden sind.
öffne ich es mit einem editor, so sind es enter zeichen.

wie kann ich als erstes diese aus der txt datei entfernen/ersetzen z.b. durch ein leerzeichen?
und dann erst mein code.

danke

gruß

frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
Du kannst im normalen NotePad so ein Zeichen markieren und mit Strg+C in die Zwischenablage kopieren. Dann im NotePade Ersetzen wählen und beim zu suchenden Zeichen das jenige mit Strg+V reinkopieren. Drunter kannst Du dann ein Leerzeichen eingeben und es dadurch ersetzten lassen. Alles verstanden? 

------------------
Viele Grüße Lutz

Glück Auf!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Frank,

versuche es mit diesem Code

Code:

---

Sub zeilenumbruch_loeschen()
    Dim raZelle As Range
    For Each raZelle In ActiveSheet.UsedRange
        raZelle = Replace(raZelle, Chr(10), "")
    Next raZelle
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

das mit copy und paste und ersetzen funktioniert leider nicht.

Code:

---

Sub zeilenumbruch_loeschen()
    Dim raZelle As Range
    For Each raZelle In ActiveSheet.UsedRange
        raZelle = Replace(raZelle, Chr(10), "")
    Next raZelle
End Sub

---

das mit dem code auch nicht.
es ist aber wirklich das enter zeichen, denn ich habe es in txt kopiert (markiert und mit rechten maustaste kopiert) und wenn ich es z.b. hier einfuege
macht er mit einen  umbruch.

bitte um hilfe

mfg

frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Frank,

ich kenne deine Arbeitsmappe nicht, aber bei mir löscht der Code alle Zeilenumbrüche.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

also von a2 bis ah2 die überschriften
ab a3 die daten nur wie gesagt ab r3 kommt dann der umbruch und die restlichen daten werden dann wieder bei a4, a5, a6... eingetragen, durch dieses zeichen in txt datei.

danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank,

Zitat:

---

das mit copy und paste und ersetzen funktioniert leider nicht

---

... ist leider wenig hilfreich .

Was genau tust Du denn (jeden Schritt angeben)? Woran merkst Du, das "es" nicht funktioniert? An welcher Stelle hakt es?

Bitte mach' ein bisschen genauere Angaben, dann fällt die Hilfe leichter .

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

also ich oeffne die txt datei mit notepad (ms editor), markiere das zeichen, strg c
dann strg h beim "suchen nach" strg v aber da tut sich nichts.
die schaltflaeche "ersetzen" bleibt grau ausgeblendet.

danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was bitte ist Notepad ;-)

Probier' mal einen anderen Texteditor: Wordpad, Word, psPad, ..? Vielleicht "erkennt" Notepad Dein Zeichen nicht. Die ASCII-Codes von 1-31 liefern in Excel mit der Funktion ZEICHEN(Zahl) immer Rechtecke. 32 ist dann das Leerzeichen, die 10 (LF=LineFeed) ist - wie oben bereits erwähnt - der Umbruch.

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

habe ich schon versucht. wenn ich es z.b. mit phase5 editor oeffne zeigt (und formatiert) er mit ganz deutlich das "enter zeichen" gespiegeltes -> "P"

aber auch mit dem editor kann ich nicht mit strg c,v arbeiten

danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

jetzt ist mir noch etwas aufgefallen.

ab da wo die "quadratischen" zeichen in der txt datei stehen bricht er ja um.
a4
a5
a6
...
in excel macht er mir komischer weise immmer ein leerzeichen vor dem datensatz. also zelle a4 erst leerzeichen dann der datensatz. also zusaetzlich wird der quadrat aus der txt datei in excel als leerzeichen interpretiert.
ist das vielleicht ein ansatz.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ist das vielleicht was:

http://www.digital-inn.de/visual-basic/4630-umbruch-textdatei-verhindern.html

[Diese Nachricht wurde von luj am 07. Mai. 2008 editiert.]

[Diese Nachricht wurde von luj am 07. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von luj:
hallo,

also ich oeffne die txt datei mit notepad (ms editor), markiere das zeichen, strg c
dann strg h beim "suchen nach" strg v aber da tut sich nichts.
die schaltflaeche "ersetzen" bleibt grau ausgeblendet.

danke

---

In den meisten Office Programmen gibt es doch die Möglichkeit mit STRG f für suchen und dann noch den Reiter Ersetzen mit einem Leerzeichen belassen.
Mit dieser Methode kann ich bequem auch Sonderzeichen gegen was anderes ersetzen lassen.

Die STRG V Methode ist die händische Methode, die wie Du schon beschrieben hast in diesem Fall nicht funktioniert.

------------------
Gruss Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

in excel macht er mir komischer weise immmer ein leerzeichen vor dem datensatz

---

Wenn Du in Excel nach dem Einlesen ran willst, guck' mal in die Hilfe: 

Zitat:

---

GLÄTTEN

Löscht Leerzeichen in einem Text, die nicht als jeweils einzelne zwischen Wörtern stehende Trennzeichen dienen. GLÄTTEN können Sie für Texte verwenden, die Sie aus anderen Anwendungsprogrammen übernommen haben und die eventuell unerwünschte Leerzeichen enthalten.

Syntax

GLÄTTEN(Text)

Text  ist der Text, aus dem Sie Leerzeichen entfernen möchten.

Beispiel

GLÄTTEN(" Gewinn  im  ersten  Quartal  ") ergibt "Gewinn im ersten Quartal"

---

Du kannst das ja mal mit 'nem Testtext in einer Zelle testen?!

[Edit: Hast Du schonmal den Import versucht? In Excel Daten-Externe Daten-... /Edit]

------------------
DIN1055.de  |  Lastannahmen für Anwender

[Diese Nachricht wurde von Paulchen am 07. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

ich denke das ziel muss es sein als erstes die txtdatei zu bearbeiten bevor sie eingelesen wird.
denn wenn ich mit einem editor die "enterzeichen" manuell entferne und diese dann einlese klappt alles wunderbar.

danke für die hilfe

gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

mit hilfe eine hex-editors habe ich das ominöse zeichen identifiziert. es hat den wert "13". wie kann ich die txt datei in ein string schreiben und dann das zeichen ersetzen?

danke

gruß

frank

[Diese Nachricht wurde von luj am 11. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Frank, stelle doch mal ein Beispiel ein.

------------------
Gruss Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Denke auch, dass ein Bsp hier sinnvoll ist.

------------------
Viele Grüße Lutz

Glück Auf!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

danke fuer die aufmerksamkeit.

jetzt moechte ich noch bevor ich auf ok klicke und meine main aufrufe, dass die txt datei durchgegangen wird und das hex zeichen 0D durch ein leerzeichen ersetzt wird.

danke

gruß

[Diese Nachricht wurde von luj am 11. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

wie kann ich die txt datei in ein string schreiben und dann das zeichen ersetzen?

---

Suchen und Ersetzen (in einer Unter-Routine), VBA-Function Replace, suche nach: Chr(13)

HTH,
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hm, hilft mir nicht richtig weiter.

Code:

---

Public Function txt_ReadAll(ByVal sFilename As String) _
  As String

  Dim F As Integer
  Dim sInhalt As String

  If Dir$(sFilename, vbNormal) <> "" Then

    F = FreeFile
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close #F
  End If

  txt_ReadAll = sInhalt
End Function

---

danke

gruß

[Diese Nachricht wurde von luj am 11. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tag zusammen,
a) Chr(13) oder eben Chr(10), wie von Beverly gaaanz weit oben schon einmal vorgeschlagen.
b) muß es denn unbedingt sein, dass Du erst die Returns (TABs? Zeilenumbrüche? was war es nochmal?) ersetzt und dann in xl einliest? Warum klappt denn Beverlys Vorschlag nicht?
c) könntest Du vielleicht doch mal so eine txt zur Verfügung stellen? Evtl. Deine xls und Deine txt zusammen als hübsche zip verpackt?
Wir kommen doch so nicht wirklich weiter...
   

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

ich will die tabs nicht ersetzen.
alles soweit eigentlich perfekt.

das hier bezieht sich auf excel da ist es schon zu spaet:

Code:

---

Sub zeilenumbruch_loeschen()
    Dim raZelle As Range
    For Each raZelle In ActiveSheet.UsedRange
        raZelle = Replace(raZelle, Chr(10), "")
    Next raZelle
End Sub

---

ich moechte das nur auf die txt datei bezogen haben. ich moechte direkt in der txt datei die zeichen ersetzen und erste dann in excel einlesen.

danke

gruß

[Diese Nachricht wurde von luj am 09. Mai. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn ich das richtig verstehe, dann willst Du vor dem Einlesen die Zeilenumbrüche konvertieren. Die Zeilenumbrüche (komische Rechtecke) resultieren aus den unterschieden zwischen UNIX, DOS und MAC. Es gibt aber eine einfache Möglichkeit diese zu konvertieren. Schau einfach hier mal nach:
http://ccrma-www.stanford.edu/~craig/utility/flip/

Zitat:

---

The flip command will convert between each of these types of newline formats. Here is the usage statement for the program:

---

Code:

---

Usage: flip [-t|-u|-d|-m] filename[s]
  Converts ASCII files between Unix, MS-DOS/Windows, or Macintosh newline formats

  Options:
      -u  =  convert file(s) to Unix newline format (newline)
      -d  =  convert file(s) to MS-DOS/Windows newline format (linefeed + newline)
      -m  =  convert file(s) to Macintosh newline format (linefeed)
      -t  =  display current file type, no file modifications

---

Das Tool bekommst Du für Windows schon kompiliert und es ist auch nur ein kleines Kommandozeilenwerkzeug. Damit solltest Du das Problem eigentlich in den Griff bekommen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,

ja das geht. ich habe es schon vorher auch mit openoffice neu abspeichern koennen.

ich moechte aber eine vba loesung.

gut, ich werde dann versuchen eine andere loesung zu finden.
danke an alle.

gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Muss es unbedingt in VBA programmiert sein, oder soll es einfach nur aus Deinem VBA-Code heraus passieren ohne dass der Anwender vorher etwas machen muss? Das FLIP-Tool könntest Du doch dann einfach so einbinden:

Code:

---

Call Shell "flip.exe -d " & DeineDatei

---

Damit wird die Datei konvertiert und dann kannst Du sie einfach einlesen und bist sicher, dass sie immer dem gewünschten Zeilenendeformat entspricht.

Einer Implementierung der Konvertierung in VBA würde ich so aus dem Bauch heraus nicht empfehlen. Falls Du das aber doch vor hast kannst Du ebenfalls das FLIP-Tool verwenden. Der Quelltext ist offengelegt und müsste quasi nur nach VBA portiert werden, aber der Algorythmus wäre zumindest schonmal vorhanden.

Falls Du das wirklich erfolgreich portieren konntest, Poste den Code doch mal hier.

Gruß, Alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...ich habe gar keine Lust, mir irgendeine Textdatei mit Steuerzeichen zusammen zubauen & dann eventuell eine (Vba)-Lösung zu erstellen, die zu posten & um dann festzustellen, deine Konstellation/Vorgaben der Textdatei sind so gänzlich anders... >/dev/null

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Thomas Harmening:
...ich habe gar keine Lust, mir irgendeine Textdatei mit Steuerzeichen zusammen zubauen & dann eventuell eine (Vba)-Lösung zu erstellen, die zu posten & um dann festzustellen, deine Konstellation/Vorgaben der Textdatei sind so gänzlich anders... >/dev/null

---

das verlangt auch keiner von dir. das hast du missverstanden.
ich werde schon eine loesung finden und ich bleibe auch so fair und werde diese ganz speziell fuer dich posten.

danke und gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

N'Abend Frank,
hmm, ich denke eher, Du hast da was mißverstanden... ich glaube, nein, ich bin mir sicher ;-) für Thomas brauchste die Lösung nicht zu posten, aber für alle kommenden Hilfesuchenden, die dann hoffentlich über die Suchfunktion in diesen thread stolpern.
Wenn also Deine Lösung erscheint, wirst Du auch ordnungsgemäß mit Dank übeschüttet, aber bis dahin bin ich, und ich denke, auch noch einige andere raus, denn im Dunkeln stochern macht nur in ausgewählten Situationen so richtig Spaß 

Schönes WE 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von runkelruebe:
N'Abend Frank,
hmm, ich denke eher, Du hast da was mißverstanden... ich glaube, nein, ich bin mir sicher ;-) für Thomas brauchste die Lösung nicht zu posten, aber für alle kommenden Hilfesuchenden, die dann hoffentlich über die Suchfunktion in diesen thread stolpern.
Wenn also Deine Lösung erscheint, wirst Du auch ordnungsgemäß mit Dank übeschüttet, aber bis dahin bin ich, und ich denke, auch noch einige andere raus, denn im Dunkeln stochern macht nur in ausgewählten Situationen so richtig Spaß  :D

Schönes WE 

---

hallo runkelruebe,

es tut mir leid, besser kann ich es nicht erklaeren. ich denke, wenn man es verstehen will, dann kann man es auch. die bemerkung von vorhin kann ich beim besten willen nicht nachvollziehen. aber gut, worueber reden wir hier ueberhaupt, das ist schon alles wunderbar.
ich mag foren und natuerlich werde ich mein ergebnis posten.
das basiert darauf.
du bist entspannter 

ich stehe kurz vor dem erfolg und es ist schon eine universelle loesung. ich meine ein zeichen in der txt ersetzen, was gibt es da nicht zu verstehen. und dev null hilft keinem weiter.

gruß an allle.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

addierengehtnicht.xls.txt

Hallo Frank,

Du hast ein Problem und erhoffst Dir hier über das Forum Vorschläge zu bekommen wie das Problem zu erledigen ist.

Wichtig für uns, ist wie sieht das Problem wirklich aus,
eine Beschreibung kann manchmal ausreichend sein,
oftmals aber auch nicht.

Der Thread quält sich nun über mehrere Vorschläge die, mehr oder weniger, anscheinend das Ziel verfehlen.
Stattdessen werden von deiner Seite Codes veröffentlicht die IMHO nichts mit dem eigentlichem Problem zu tun haben.
Die Lösung die alexander.thiel beschrieben hat, sofern sie dein Problem löst, kommt wohl dem Ergebnis am nächsten.
denkbar wäre auch eine lesend/schreibende Vba-Lösung, nur sollte man da den eventuell den genauen Input kennen.

Ein hochgeladenes Text-Fragment deines Textes (einige Zeilen reichen da mitunter aus)
mit den betreffenden Steuerzeichen wäre da viel hilfreicher,
da man dann etwas greifbares hat, mit dem man dann auch arbeiten kann.

Oder anders ausgedrückt,
Ein User hat Probleme, das Excel die Werte aus Zelle A1 (56.75,08 €) und A2 (11.556.176,70€) in Zelle A3 nicht zusammen addiert,
obwohl er in Zelle A3 = A1 + A2 schreibt...
Er bekommt nun einige Antworten, die allesamt sein Problem nicht lösen können.
spätestens dann wäre ein hoch laden des Problems nicht verkehrt, da es manches erleichtert     

& ja, gerne kannst du die Lösung posten, ich freue mich auch und andere die vor solch einem Problem stehen sicherlich auch ;-)

ansonsten bin ich raus  und viel Erfolg noch.

Anhang ohne .txt abspeichern 

PS: Eben und weil ein >/dev/null - keinem von Beiden - weiterhilft,
habe ich bislang auch noch nichts -ist gelogen, nur ich konnte die Konstellation bei mir nicht nachstellen - gemacht,
wer arbeitet schon gerne für den Papierkorb ;-)
und das ist jetzt nicht böse gemeint, aber wenn man schon seit zig Jahren in Brettern unterwegs ist,
hat man schon einige Male für den Papierkorb gearbeitet  - Und das wiederum ist unheimlich aufbauend 

Auf das nicht reagieren von Aufrufen, doch mal ein Beispiel hochzuladen, werfe ich mal dein
'was gibt es da nicht zu verstehen' einfach mal zurück 

Code:

---

Sub kill() 'm all() 'nur mal als Lösungsansatz?
For Each c In ActiveCell.CurrentRegion.Cells
c.Value = Application.WorksheetFunction.Substitute(c, "It is a mystery to us", ">/dev/null")
Next
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP