Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

chr(13) in zelle entfernen

chr(13) in zelle entfernen
20.01.2008 21:39:30
holger
Hallo Excel Freunde,
habe eine frage.
In celle B23 lasse ich per code daten einlesen, die daten erscheinen aber mit dem Chr(13) zeichen,
wie kann ich dies weg bekommen?
Hat da jemand eine idee?
Gruß & Dank
Holger

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: chr(13) in zelle entfernen
20.01.2008 21:44:00
Sigi
Hi Holger,
mit der Funktion Wechseln kannst du Zeichen austauschen:
=WECHSELN(A1; ZEICHEN(13); "")
Gruß
Sigi

AW: chr(13) in zelle entfernen
20.01.2008 21:50:00
holger
hi si´gi,
geht das auch irgendwie per vba, eigentlich werden im sheet nur daten eingetragen und anschließend gelöscht, das blatt ist eigentlich nicht sichtbar, nur im ausdruck halt
gruß
holger

AW: chr(13) in zelle entfernen
20.01.2008 21:53:22
Sigi
Hi Holger,
mit einer vergleichbaren VBA-Funktion geht's auch. Hier mal ein Beispiel für markierte Zellen:
Sub Zeichen13Entfernen()
Dim Zelle As Object
For Each Zelle In Selection
Zelle.Value = Zeichen13weg(Zelle.Text)
Next Zelle
End Sub 



Private Function Zeichen13weg(Text As String) As String
Zeichen13weg = WorksheetFunction.Substitute(Text, Chr(13), "")
End Function


Gruß
Sigi

Anzeige
AW: chr(13) in zelle entfernen
20.01.2008 22:01:00
holger
hi
würd es so auch funtzen?
Sub Zeichen13Entfernen()
zelle = Thisworkbook.sheets("DruckVerord").range("B23").select
Zelle.Value = Zeichen13weg(Zelle.Text)
Next Zelle
End Sub 



Private Function Zeichen13weg(Text As String) As String
Zeichen13weg = WorksheetFunction.Substitute(Text, Chr(13), "")
End Function


AW: chr(13) in zelle entfernen
20.01.2008 22:05:30
Sigi
Hi Holger,
so sollte es gehen ...
ThisWorkbook.Sheets("DruckVerord").Range("B23").Value = _
Zeichen13weg(ThisWorkbook.Sheets("DruckVerord").Range("B23").Value)
Gruß
Sigi

Anzeige
SUPI_FUNTZT DANK AN EUCH o.T.
20.01.2008 22:12:15
holger

AW: chr(13) in zelle entfernen
20.01.2008 21:55:00
Daniel
Hi
ergänze den Code um folgende Zeile:

Range("B23").Value = Replace(Range("B23").Value, Chr(13), "")


der Befehl muss eingefügt werden, nachdem die Daten in B23 eingelesen wurden.
Gruß, Daniel

AW: chr(13) in zelle entfernen
20.01.2008 22:09:34
holger
hi daniel,
bei deinem code wird der ganze text gelöscht und noicht nur die platzhalter
wie kommt das?ß
gruß
holger

anstatt leerstep, ein komma
20.01.2008 22:14:36
holger
Hallo ihr,
wisst ihr evtl. auch wie man anstatt ein leerzeichen ein komma hinbekommt?
gruß holger

AW: anstatt leerstep, ein komma
20.01.2008 22:21:53
Sigi
Hi Holger,
im Prinzip wie mit dem Zeichen 13:

Private Function KommaStattBlank(Text As String) As String
KommaStattBlank = WorksheetFunction.Substitute(Text, " ", ",")
End Function


Gruß
Sigi

Anzeige
AUCH DAS KLAPPT! DANKE!!! o.T.
20.01.2008 22:55:28
holger

AW: chr(13) in zelle entfernen
20.01.2008 22:26:00
Daniel
Hi
habs nochmal geprüft, bei meinem Code werden nur die Zeichen mit dem ASCII-Code 13 entfernt, alles andere bleibt stehen.
Sieh selbst:
https://www.herber.de/bbs/user/49224.xls
Was deinen Code angeht, kann ich es leider nicht beurteilen, weil ich weder deinen Code, noch deine Daten kenne.
Gruß, Daniel

308 Forumthreads zu ähnlichen Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
Formate in Zellen per Makro entfernen.
Joachim

Hi,
gibt es in VBA einen Befehl, mit dem man zB Spalte D so bearbeiten kann, dass alle Formateinstellungen rausfliegen, also alles sozusagen auf Standard steht.
Danke
Joachim
25.03.2009 18:56:49
Thread-ID: 1063929
4 Beiträge
Hyperlink entfernen und Zelle einfärben / Wert ?
Selma

Hallo Leute,
was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro() 'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat d...
07.05.2009 15:13:04
Thread-ID: 1073652
17 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Leere Zellen entfernen per Makro
Joachim

Hallo
Ich habe in einem Tabellenblatt einen fest definierten Bereich (A10:K20) Datensätze drin stehen. Also in A10:K10 der erste DS
A11:K11 der zweite DS
...usw
A20:K20 der 20ste DS
Nun werden verschidene DS, die nicht mehr gebraucht werden , gelöscht. Nun zum Problem. Ich...
02.07.2009 16:34:05
Thread-ID: 1086022
4 Beiträge
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Zeilen nach oben verschieben
Josef_T

Hallo zusammen,
habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
benötige.
Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
Danke
Gruß Josef
28.07.2009 19:13:39
Thread-ID: 1092043
9 Beiträge
Wirklich leere Zeilen löschen
Markus

Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
30.09.2009 14:36:43
Thread-ID: 1106327
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
10
3
16
2
4
3
19
8
3
3
9
23
14
5
2
8
12
2
9
8
2
3
5
2