Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon ChrisWI05 vom 04.03.2020, 12:09 Options
Excel-VBA: Zeilenumbruch/Chr(10) ersetzen
Hallo liebe Community,
ich hoffe ihr könnt mir weiter helfen.
Ich habe eine CSV-Datei, welche in mehreren Zellen/Spalten
eine Zeichenkette enthalten, die wiederum ein Semikolon + Zeilenumbruch enthalten.
Wie kann ich diese Zeichen (";[]") entfernen bzw. durch eine Raute "#" ersetzen?
Ich habe auch schon folgenden VBA-Code gefunden, aber der bewirkt irgendwie nichts!
'VBA-Code:
'Zeilenumbruch Chr(10) durch anderes Zeichen im Bereich ersetzen
Sub ZeilenumbruchImBereichErsetzen()
Dim C As Range
Dim varSuch As Variant
varSuch = "#" & Chr(10)
Dim varErsetz As Variant
'Ersetzung zu Zeichen:
varErsetz = "#"
For Each C In Selection
If C.WrapText = False Then
C.Replace varSuch, varErsetz
End If
Next C
End Sub
' VBA-Code Ende.
Wenn ich nur nach einem Semikolon suche (varSuch = ";") dann klappt das. Daher hatte ich auch schon die Idee: Semikolon durch "#" ersetzen und nachfolgendes Zeichen (bspw. Chr(10)) zu löschen.
Leider fällt mir keine Funktion zum löschen von "nachfolgendes Zeichen" ein.
Wäre sehr dankbar für Ratschläge!
Gruß
Christian
ich hoffe ihr könnt mir weiter helfen.
Ich habe eine CSV-Datei, welche in mehreren Zellen/Spalten
eine Zeichenkette enthalten, die wiederum ein Semikolon + Zeilenumbruch enthalten.
Wie kann ich diese Zeichen (";[]") entfernen bzw. durch eine Raute "#" ersetzen?
Ich habe auch schon folgenden VBA-Code gefunden, aber der bewirkt irgendwie nichts!
'VBA-Code:
'Zeilenumbruch Chr(10) durch anderes Zeichen im Bereich ersetzen
Sub ZeilenumbruchImBereichErsetzen()
Dim C As Range
Dim varSuch As Variant
varSuch = "#" & Chr(10)
Dim varErsetz As Variant
'Ersetzung zu Zeichen:
varErsetz = "#"
For Each C In Selection
If C.WrapText = False Then
C.Replace varSuch, varErsetz
End If
Next C
End Sub
' VBA-Code Ende.
Wenn ich nur nach einem Semikolon suche (varSuch = ";") dann klappt das. Daher hatte ich auch schon die Idee: Semikolon durch "#" ersetzen und nachfolgendes Zeichen (bspw. Chr(10)) zu löschen.
Leider fällt mir keine Funktion zum löschen von "nachfolgendes Zeichen" ein.
Wäre sehr dankbar für Ratschläge!
Gruß
Christian
Antwort 1 von ChrisWI05 vom 04.03.2020, 12:12 Options
Sorry, da ist mir ein Fehler beim abtippen passiert:
Dim varSuch As Variant
varSuch = "#" & Chr(10)
muss richtig heißen:
Dim varSuch As Variant
varSuch = ";" & Chr(10)
Im nicht-funktionierenden Code habe ich letztere Variante.
Habe nur einen Flüchtigkeitsfehler (s.o.) beim abtippen gemacht.
Gruß
Christian
Dim varSuch As Variant
varSuch = "#" & Chr(10)
muss richtig heißen:
Dim varSuch As Variant
varSuch = ";" & Chr(10)
Im nicht-funktionierenden Code habe ich letztere Variante.
Habe nur einen Flüchtigkeitsfehler (s.o.) beim abtippen gemacht.
Gruß
Christian
Antwort 2 von gast123 vom 04.03.2020, 13:10 Options
hi all
ein beispiel
gruss gast123
ein beispiel
gruss gast123
Sub Austauschen()
With ThisWorkbook.ActiveSheet.Range("A1:C10")
.Replace what:=";" & Chr$(10), replacement:="#", searchorder:=xlByColumns, MatchCase:=True
End With
End SubÄhnliche Themen
Zeilenumbruch in einer Zelle
jofischi 23.09.2007 - 271 Hits - 2 Antworten
Typen unverträgliche Laufzeitfehlerehler 13 Sql
Lily 18.12.2007 - 91 Hits - 3 Antworten
Schnellreferenz Excel VBA
Joshuan 23.05.2008 - 219 Hits - 3 Antworten
VBA-Excel
mentosbasi 28.05.2008 - 349 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
