Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Replace von "carriage return" in string?

Forumthread: Replace von "carriage return" in string?

Replace von "carriage return" in string?
26.02.2005 20:48:34
"carriage
Hallo Experts,
wie kann ich denn in einem String (ursprünglich html-text, Einlesen siehe code unten) die Zeilenumbrüche rausschmeißen/ersetzen?
Funktion replace mit "&H0D" funktioniert nicht.
Hans
Set myIE_App = CreateObject("InternetExplorer.Application")
myIE_App.Navigate sURL
Do
Sleep 10
Loop Until myIE_App.Busy = False
strText = myIE_App.Document.documentElement.outerTEXT
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Replace von "carriage return" in string?
"carriage
Hi talljohn,
krieg doch erstmal mit nem Hexeditor raus oder mit Code wie dem:

Sub tt()
'..hier strText einlesen
For n = 1 To 400 ' man muss ja nicht alles checken
z = Asc(Mid(strText, n, 1))
If z < 32 Then MsgBox "Zeichen: " & n & "ist das Steuerzeichen: " & z
Next n
End Sub

heraus, welche Steuerzeichen überhaupt drinstecken und ob sie als 0D bzw 0A einzeln oder zusammen als 0D0A stehen.
Dann poste hier mal den Teil des Codes der ersetzen soll.
Gruß
Reinhard
Anzeige
clean oder substitute ?
bernd
Hallo John
Zeilenumbrüche rausschmeissen könnte auch so gehen:
Public 

Sub weg()
Dim str As String
str = dein string
MsgBox str
str = WorksheetFunction.Clean(str)
MsgBox str
End Sub

erstzen in diesem fall durch "":
Public 

Sub ersetz_durch_nichts()
Dim str As String
str = dein string
MsgBox str
str = WorksheetFunction.Substitute(WorksheetFunction.Substitute(str, Chr(10), ""), Chr(13), "")
MsgBox str
End Sub

bernd
Anzeige
AW: clean oder substitute ?
Ulf
Clean ist der richtige Tipp!
Ulf
;

Forumthreads zu verwandten Themen

VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Per VBA , in . ändern in ersten 7-String-Zeichen
TommiH

Moin,
gibt es eine einfache Möglichkeit (einfacher als per left/mid/instr. oder split) um in den ersten 7 Zeichen einer Zelle die Kommas in Punkte zu ändern? Und das per VBA-Code?
Tommi
04.07.2011 15:34:05
Thread-ID: 1220870
3 Beiträge
VBA ein String vergleichen mit OR Operation
Kai

testString = "e" If testString = "a" Or "e" Or "i" Or "u" Or "o" Then 'Do something... Else 'Do something else... End If Leider bekomme ich immer bei Ausführung einen Type Mismatch Fehler.
Warum? Oder anders gefragt, wie kann ich diesen VBA code richtig schreiben?
Meines Erachtens kan...
24.04.2013 16:12:37
Thread-ID: 1310234
5 Beiträge
Excel VBA erkennt vermeintlichen String immer als
SeamanX

Hallo,
versuche aus einer Excel-Datei einen String auszulesen, der leider immer als Zahl interpretiert wird.
Code: Sub auslesen() Workbooks.Open Filename:="C:\...\test.xls" Debug.Print Format(ActiveWorkbook.Worksheets(1).Cells(1, 1).Value, "&") Debug.Print CStr(ActiveWorkbook.Works...
11.01.2016 14:09:50
Thread-ID: 1468182
8 Beiträge
VBA Zeichen in String
Lukas

Hallo!
Mit InStr() prüfe ich ob mein Text in der Zelle enthalten ist. Wenn ja, möchte ich das Zeichen vor und die beiden Zeichen nach dem Text wissen!
Vielen Dank für eure Hilfe schon im Voraus!
25.06.2016 17:21:48
Thread-ID: 1500958
7 Beiträge
String finden, Zeilen kopieren VBA
Robert

Hallo Leute,
ich habe folgende Problem (siehe https://www.herber.de/bbs/user/118819.xlsm)
Ich habe zwei Reiter in einer Excel. Der zweite ("MA") beinhaltet Daten über Mitarbeiter (Spalten A:L).
Im zweiten Reiter "Übersicht" soll man in Zelle B1 ein Stichwort eingetragen können und...
09.01.2018 18:04:22
Thread-ID: 1601170
2 Beiträge
6-Stellige Zahl in String finden VBA
Hendrik

Hallo zusammen,
leider habe ich im Web nichts passendes gefunden, daher stell ich die Frage mal hier rein.
Ich suche nach einer VBA-Lösung, welche die Spalte A-F nach 6-stelligen Zahlen durchsucht und diese in einer Zelle ausgibt.
Beispiel: String = "test 123 test 56 test 123456...
12.10.2018 11:15:01
Thread-ID: 1650910
9 Beiträge
VBA ReplaceLine nur in aktiver Prozedur
Andreas

Hallo Herber Fans,
ich habe mir heute einen kleinen AutoFilter Code geschrieben, welcher mich im schnellen Filtern in verschiedenen und / oder Kombinationen in der aktuellen ListColumn eines ListObjects unterstützt. Nach einigem Arbeiten damit dachte ich mir, dass es nicht schlecht wäre, di...
20.07.2019 16:02:43
Thread-ID: 1703346
4 Beiträge
VBA: Range.Replace-Methode in Excel 2007 und 2019
Peter

Hallo,
die Range.Replace-Methode verhält sich in VBA bei Excel 2007 anders als bei Excel 2019.
Beispiel:
A1 Format: Text, Wert: @abc:123@
A2 Format: Text, Wert: @abc:123@
A3 Format: Text, Wert: @abc:123@
Sub Test() Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet ws...
02.08.2019 16:07:27
Thread-ID: 1705608
8 Beiträge
teilstring in vba
Susan
Hallo,

da ich mich noch nicht so sehr mit vba auskenne, brauche ich nun mal Hilfe.
In meinem Programm wird durch eine Inputbox die Variable strMitarbeitername in der Form "Name, Vorname" vom benutzer festgelegt.
Die Tabellenblätter des Workbooks sind nach Nachnamen benannt, und ich möc...
10.11.2003 14:23:11
Thread-ID: 335880
4 Beiträge
Anzeige
Zahl zu String in VBA
HERMOS

Hallo
kann mir jemand helfen.
Bekomme Meldung Typen unverträglich (vorletzte Zeile).
Wie kann ich die Variable wert in einen String wandeln?
Dim letzteZeile, wert, Text2 As Variant
Selection.SpecialCells(xlCellTypeLastCell).Select
letzteZeile = ActiveCell.Row
For wert...
17.06.2004 17:24:18
Thread-ID: 442671
3 Beiträge
Probleme mit SQL-String in VBA
rolfi

Hallo,
Habe folgendes Problem:
Ich baue mir für eine odbc-Abfrage den SQL-String in einer Variablen (strSqlCmd) zusammen.
Die Abfrage wird dann folgendermassen ausgeführt:
With Selection.QueryTable
.Connection = "ODBC;DSN=XXXXXXX;"
.CommandText = Array(st...
19.05.2005 11:00:06
Thread-ID: 613420
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Carriage Returns in Excel-Strings Entfernen und Ersetzen

Schritt-für-Schritt-Anleitung

Um Carriage Returns (CR) in einem Excel-String zu entfernen oder zu ersetzen, kannst Du die folgenden Schritte befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke auf Einfügen und dann auf Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub RemoveCarriageReturns()
    Dim str As String
    str = "Hier steht dein Text mit CR" & vbCrLf & "und weiteren Zeilen."

    ' Entfernen von Carriage Returns
    str = Replace(str, vbCr, "")
    str = Replace(str, vbLf, "")

    MsgBox str ' Zeigt das Ergebnis an
End Sub

  4. Führe das Skript aus: Klicke auf Ausführen oder drücke F5.

  5. Überprüfe das Ergebnis: Ein Meldungsfenster zeigt den bereinigten String ohne Carriage Returns.

Häufige Fehler und Lösungen

  • Fehler: Der Code entfernt nicht alle Zeilenumbrüche.

    • Lösung: Stelle sicher, dass Du sowohl vbCr (Carriage Return) als auch vbLf (Line Feed) ersetzt. Verwende den Code Replace(str, vbCr, "") und Replace(str, vbLf, "").

  • Fehler: Der Code funktioniert nicht in Excel.

    • Lösung: Vergewissere Dich, dass Du im VBA-Editor bist und die Makros aktiviert sind.

Alternative Methoden

Neben dem VBA-Ansatz kannst Du auch die Excel-Funktionen verwenden:

  1. CLEAN-Funktion: Diese Funktion entfernt nicht druckbare Zeichen, einschließlich der Carriage Returns.

    =CLEAN(A1)

  2. SUBSTITUTE-Funktion: Um CRs durch nichts zu ersetzen, kannst Du die folgende Formel verwenden:

    =SUBSTITUTE(SUBSTITUTE(A1, CHAR(10), ""), CHAR(13), "")

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du Carriage Returns in Strings ersetzen kannst:

  1. Ersetzen in einem String:

    Sub ReplaceCarriageReturns()
   Dim str As String
   str = "Text mit" & vbCrLf & "Carriage Return"
   str = Replace(str, vbCrLf, " ") ' Ersetzt CRLF durch ein Leerzeichen
   MsgBox str
End Sub

  2. Verwenden von Excel-Funktionen: Wenn Du einen Text in Zelle A1 hast:

    =SUBSTITUTE(A1, CHAR(10), "") ' Entfernt nur Line Feeds

Tipps für Profis

  • Hex-Editor: Verwende einen Hex-Editor, um herauszufinden, welche Steuerzeichen in Deinem String enthalten sind. So kannst Du gezielt die richtigen Zeichen ersetzen.
  • Kombination von Funktionen: Du kannst CLEAN und SUBSTITUTE kombinieren, um alle nicht druckbaren Zeichen effektiv zu entfernen.
  • Regelmäßige Ausdrücke: Wenn Du mit komplexen Mustern arbeitest, erwäge die Verwendung von regulären Ausdrücken in VBA.

FAQ: Häufige Fragen

1. Wie kann ich auch andere nicht druckbare Zeichen entfernen? Du kannst die CLEAN-Funktion verwenden, die alle nicht druckbaren Zeichen entfernt.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, die beschriebenen VBA-Methoden und Excel-Funktionen funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und später.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige