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

Anführungszeichen ersetzen mit VBA

Forumthread: Anführungszeichen ersetzen mit VBA

Anführungszeichen ersetzen mit VBA
05.09.2024 09:48:03
Christian
Hallo, ich muss doch mal eine ganz gang blöde Frage stellen

zu dem Code 

For Each cell In ws.Range("C1:C" & lastRowC)

            If Left(cell.Value, 1) = """" Then

                dictKey = Replace(cell.Value, """", "") & "|" & _

                          IIf(cell.Row > 1, ws.Cells(cell.Row - 1, "C").Value, "") & "|" & _


durch das Replace wird ja das Anführungszeichen gelöscht, aber blöderweise werden auch die Zellformate geändert, z.B. stand da vorher "+1" und jetzt steht da nur noch 1

oder statt vorher "3.14159" steht dann jetzt 3,14159 da

oder statt "4:48" dann jetzt 04:48

kann ich das irgendwie unterbinden, dass der Text abgesehen von den Anführungszeichen so erhalten bleibt, wie er war?

Danke
Christian
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anführungszeichen ersetzen mit VBA
05.09.2024 10:09:16
Ulf
Hi Christian,
dein Code ist nicht voll einzusehen, aber ~
bei
A1 "3.14159"
A2 "+1" 



Sub tt()

    Const anf = "'"

    Dim rg As Range, c As Range

    Dim strTmp As String

    Set rg = ThisWorkbook.Worksheets(1).Range("A1:A2")

    For Each c In rg

        strTmp = anf & Replace(c.Value, Chr(34), "")

        c.Value = strTmp

    Next

End Sub

hth
Ulf
Anzeige
AW: Anführungszeichen ersetzen mit VBA
05.09.2024 10:15:26
Christian
Hallo Ulf,

im moment noch ungetestet, schreibe vom Handy aus.
Ich verstehe richtig, du schreibst einfach ein ' vor den zu ersetzenden Text?

dann müsste doch eigentlich 
dictKey = "'" & Replace(cell.Value, """", "") & "|" & _
schon ausreichen oder sehe ich das falsch?

Danke
Christian
Anzeige
AW: Anführungszeichen ersetzen mit VBA
05.09.2024 10:37:53
Onur
Dein Code löscht Gänsefüsschen aus einer als "Standard" formatierten Zelle.
Dadurch wird alles, was nach Zahl oder Datum aussieht, auch als Zahl bzw Datum erkannt und so angezeigt.
Wenn du willst, dass sie immer noch als Text behandelt werden, solltest du die Zellen vorher als TEXT formatieren.
Anzeige
AW: Anführungszeichen ersetzen mit VBA
05.09.2024 12:56:01
Christian
hat geklappt, danke für den Tipp
Gerne !
06.09.2024 00:15:16
Onur

Forumthreads zu verwandten Themen

Mehrere Funde in string unterschiedlich ersetzen
guitarslinger

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in Text in Zellen, in dem an unterschiedlicher Position bis zu zwei Platzhalter eingefügt sind. Diese sehen so aus: {INSERTANS:77822X8X645}
Nun möchte ich den ersten Fund einer solchen Zeichenkette (Identifikation über die Klammer...
22.04.2009 14:20:08
Thread-ID: 1070362
4 Beiträge
Zeichenfolge im Dateinamen ersetzen
Dirk

Hallo Forumsmitglieder,
ich hoffe jemand hat (mal wieder) Lust mir zu helfen!!!!
Der unten teilweise aufgeführte Code benennt Bilddateien.
Der Code funzt soweit auch super. Leider gibt es Dateien, die haben im Namen Text, der noch mit "" ersetzt werden müsste.
Als Beispiel:
...
11.05.2009 15:54:39
Thread-ID: 1074392
6 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Zeichenfolge in einem String färben
Mandy

Hi,
ich habe eine Spalte mit viele Zellen und Text. Nun möchte ich innerhalb der Spalte alle Zellen durchlaufen und alle Zeichenfolgen "###" rot färben.
Wie kann ich denn das mit einem Makro machen.
Danke
Mandy
15.09.2009 09:59:36
Thread-ID: 1102845
13 Beiträge
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge
Text ab einer bestimmten Stelle löschen +Hyperlink
Werner

Hallo,
ich habe in Excel in einer Spalte (Spalte D) unter einander sehr viele Zeilen nach folgenden Schema
(Hinweis: Ich habe das h am Anfang hier weggelassen, weil der Beitrag sonst immer als Hyperlink dargestellt wird, in meiner Tabelle ist es vorhanden):
ttp://www.ihrname.de*dfg...
05.12.2009 23:35:56
Thread-ID: 1122006
3 Beiträge
Wie lösche ich ein Zeichen in einem String?
hans-Jörg

Hallo,
strTest = "A "
wie kann ich das leerzeichen löschen?
Oder besser:
If Mid(TBTeilStr,2,1) = " " Then ??????Wie geht es wenn ich die letzten 2 Zeichen löschen möchte?
Hans-Jörg
11.04.2002 14:55:49
Thread-ID: 112482
4 Beiträge
Zeichen in Strings zählen/finden, neue Zeilen !
Holger

Hallo,
Au Backe. Alles geschaffz, nun eine komplette andere Anforderung.
Ich hoffe, ihr könnt mir helfen.
Innerhalb eine Zeile kann es so einen .Value, also String geben:
BB8520,BB8520BLUE,BB8520LAV,BB8520WHITE
Ich möchte zählen, wieviel Kommas es gibt und den String danach...
22.06.2010 15:38:56
Thread-ID: 1163465
12 Beiträge
Anzeige
bestimmte zeichen in string zählen
fabz

Einen wunderschönen guten (späten) Morgen zusammen!
- Ich versuche, mich kurz zu fassen, zu diesem Zweck setzte ich auch Pseudocode ein.
- Voneinander unabhängige Fragen werde ich in einzelnen Beiträgen stellen.
- Sollte ich von den Meistern in diesem Forum Hilfe bekommen (davon g...
16.08.2010 12:09:09
Thread-ID: 1172398
4 Beiträge
Textzeichen in einer Zelle ersetzen
Hugo

Hallo zusammen
Ich habe zB folgenden Text in einer Zelle:
Die vorgenannte Email-Adressse$muss zwar bei jeder Nachricht im$Forum angegeben werden, sie wird$aber vom Formular aus nicht$weitergegeben
Die $-Zeichen stellen den Umbruch dar.
Ich möchte nun jedes Zweite $-Zeichen in de...
09.12.2010 20:37:26
Thread-ID: 1190853
12 Beiträge
Zeichenkette in Textdatei suchen & ersetzen
CaseII

Hallo Leute,
habe hier folgenden Code gefunden jedoch müsste es abgeändert werden damit der Text in B2 auch bei Leer- oder Sonderzeichen die Zeichenfolge ersetzt. Wenn z.B. nur Marker15 in B2 steht schreibt das Makro die neue Zeichenfolge in B3 immer wieder dazu und löscht es nicht.
In...
07.03.2011 07:27:57
Thread-ID: 1204528
10 Beiträge
Ersetzen von Zeichen mit VBA
Erich

Wie kann ich Zeichen in Spalten ersetzen? Also z.B. Zeichen 1 und 2 bzw. 4-8 jeweils in einer Spalte bzw. in einer Excel - Tabelle
Danke im voraus!
Erich
14.05.2002 02:39:23
Thread-ID: 120638
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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