Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zeichen auf bestimmter Position ersetzen.

VBA: Zeichen auf bestimmter Position ersetzen.
30.03.2005 12:46:14
Horst
Hallo liebe VBA-Erfahrene,
ich möchte ein bestimmtes Zeichen auf einer definierten Position eines Zelleninhaltes ersetzen.
Beispiel: Zellinhalt = A*CD*FG
Nur der rechte Stern soll durch ein anderes Zeichen ersetzt werden. Dabei steht dieser Stern immer an der selben Position (3. von rechts). Mögliche weitere Sterne in dem String sollen erhalten bleiben.
Die Prozedur soll auch für numerische Werte funktionieren.
Hat jemand einen Vorschlag, wie ich das am elegantesten löse?
Herzlichen Dank im Voraus.
Gruß,
Horst

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zeichen auf bestimmter Position ersetzen.
30.03.2005 12:55:05
ANdreas
Hallo Horst,
hier mal ein Beispiel:

Sub ErsetzeStern()
Dim s$, c$
c = "x" ' das Zeichen, das für das * eingesetzt wird
With Range("A4") ' zu prüfende Zelle
s = .Value
If Len(s) >= 3 Then ' mind. 3 Zeichen lang
' Drittletztes Zeichen ein "*" ?
If Mid(s, Len(s) - 2, 1) = "*" Then _
.Value = Left(s, Len(s) - 3) & c & Right(s, 2) ' Ersetzen
End If
End With
End Sub

Hoffe das hilft weiter,
Andreas
AW: VBA: Zeichen auf bestimmter Position ersetzen.
30.03.2005 12:56:36
u_
Hallo,
ganz einfach mit Textfunktionen.
neuerString=left(zellinhalt,len(zellinhalt)-3) &neuesZeichen &right(zellinhalt,2)
Gruß
Anzeige
AW: VBA: Zeichen auf bestimmter Position ersetzen.
30.03.2005 12:59:12
c0bRa
hallo...
wieso VBA?
=LINKS(A1;LÄNGE(A1)-3)&"[zeichen]"&RECHTS(A1;2) sollts auch tun ;)
Rückmeldung nicht vergessen...
c0bRa
AW: VBA: Zeichen auf bestimmter Position ersetzen
30.03.2005 23:14:17
Horst
Hallo liebe "Fragenbeantworter",
leider habe ich noch nicht die Zeit gefunden, alle Eure Vorschläge auszuprobieren. Ich werde in jedem Falle eine Rückmeldung geben.
Vorest vielen Dank für die Unterstützung.
Bis dann,
Horst
AW: VBA: Zeichen auf bestimmter Position ersetzen.
30.03.2005 13:01:22
Fritz
Hallo Horst,
Hier wird das "*" durch ein "+" ersetzt
Cells(x, x) = Left(Cells(x, x), Len(Cells(x, x)) - 3) & Replace(Right(Cells(x, x), 3), "*", "+")
Anzeige

70 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
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
Anzeige
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
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
String mit Sonderzeichen in Strin suchen (VBA)
MikeS

Hallo,
ich möchte einen großen String per VBA mit Zeilenumbrüchen versehen und ausgeben. Der Zeilenumbruch soll immer vor einem bestimmten Muster erstellt werden. Datum und Uhrzeit sind variabel!
Ich erhalte immer 0 als Ergebnis :-(
Private Sub Suche_Text() Dim lStart As Long Dim sT...
02.06.2010 15:21:34
Thread-ID: 1160043
7 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
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
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
14
12
2
7
3
3
6
11
3
1
2
10
4
1
1
6
4
5
6
12
3
6
2
1