Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Replace: mehrere Zeichen auf einmal ersetzen

Replace: mehrere Zeichen auf einmal ersetzen
18.07.2004 18:12:26
Franz
Hallo Forum,
ich setze einen Dateinamen aus mehreren Einzelteilen zusammen, u.a. aus dem Kundennamen. Um nun für einen Dateinamen unzulässige Zeichen auszuschließen, nehme ich diese mit "Replace" raus:
KNName = Replace(KNName, "/", "")
KNName = Replace(KNName, "\", "")
KNName = Replace(KNName, """", "")
usw.
Gibt es die Möglichkeit mehrere Zeichen in einer einzigen Anweisung auf einen Wisch rauszunehmen? Ich hab's wie folgt versucht, geht aber nicht:
KNName = Replace(KNName, ("/","\",""""), "")
Geht das irgendwie?
Vielen Dank im Voraus und Grüße
Franz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Replace: mehrere Zeichen auf einmal ersetzen
18.07.2004 18:36:34
Matthias
Hallo Franz,
durch diese Funktion:

Function Replace2(name As String, s As String, neu As String) As String
Dim a As Long
Dim i As Long
Dim z As String
Dim n As String
n = name
For i = 1 To Len(s)
z = Mid(s, i, 1)
n = Replace(n, z, neu)
Next i
Replace2 = n
End Function

dann z.B.:
KNName = Replace2(KNName, "/\""", "")
Grüße, Matthias
AW: Replace: mehrere Zeichen auf einmal ersetzen
18.07.2004 18:40:02
Franz
Hallo Matthias,
tolle Idee, ganz vielen Dank dafür!!
Grüße
Franz
AW: Replace: mehrere Zeichen auf einmal ersetzen
Boris
Hi Franz,
das kann auch so aussehen:
Option Explicit

Sub Franz()
Dim strArr As Variant
Dim b As Byte
strArr = Array("/", "\", """")
For b = 0 To UBound(strArr)
Range("A1").Replace strArr(b), ""
Next b
End Sub

Grüße Boris
Anzeige
Meister der Arrayformel...
18.07.2004 22:02:57
Franz
Hi Boris,
... denkt auch in VBA gleich ans Array :-))). Danke für deine Lösung, ist harmloser als die von Matthias. Und ich übe Arrays erst noch...;-)
Besten Dank und Grüße
Franz

107 Forumthreads zu ähnlichen Themen

Zeichen in String einfügen
Dieterlem

Hallo Excelfreunde,
ich möchte mit einer Formel Zeichen in einen String einfügen. Der String soll wie folgt umgewandelt werden:
121245f12345 = 121245-F-12345
Es soll also vor und hinter dem Buchstaben ein Bindestrich eingefügt werden. Der Buchstabe soll in ein Großbuchstaben gewande...
12.12.2008 15:08:00
Thread-ID: 1032419
14 Beiträge
Anzeige
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
Anzeige
Mehrere Zeichen ersetzen
Nibio

Sehr geehrte Damen und Herren,
diese Formel hier ersetzt "A" mit "" aus Zelle CX26
=WECHSELN(CX26;"A";"")
Die frage ist, wie lautet die Formel wenn nicht nur "A" in " " ersezt werden muß sondern auch "/" (wenn vorhanden) in " " ohne daß man zwei Formel dafür benutzt?
Vielen Dan...
14.07.2009 15:48:03
Thread-ID: 1088556
2 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
alle Sonderzeichen in String ignorieren
Frank

Guten Abend liebes Forum,
ich erstelle mir derzeit aus einer csv Datei, die ich in Excel importiert habe neue Verzeichnisse. Das heißt ich möchte mein Musikarchiv sortiren auf Grundlage der ID3 Tag Infos. Nur leider ist nicht immer der ID3 Tag sinnvoll und/oder beim Import 4 " - Zeichen vor...
23.09.2009 23:31:36
Thread-ID: 1105092
8 Beiträge
Zeichen in Dateinamen ersetzen
Klaus

Guten Morgen zusammen
Worti hatte mir gestern ein Makro geschrieben, um alle Dateien in einem Verzeichnis zu _ bearbeiten: Sub Alledateien_Bearbeiten() Dim strDatei As String Dim wb As Workbook 'Laufwerk und Pfad anpassen ChDrive "D" ChDir "D:\data\" strDatei = Dir("D:\data\*.xls") Do Whi...
30.10.2009 11:42:24
Thread-ID: 1113292
10 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
13
3
3
5
14
1
12
2
7
9
3
3
6
11
3
11
9
1
2
2
10
3
4
1
3