Ersetzen von Zeichen an bestimmter Stelle

[Quantum]

Hallo,
habe mal eine kleine Frage an euch.

Code:
Dim  zK$
zK = String(100, "a")

Mit obiger Anweisung erzeuge ich eine Zeichenkette zk die aus 100 a's besteht, also

zk = "aaaaa....... "

Wenn ich jetzt z.B. an der 15. Stelle dieser Zeichenkette, dass a durch ein b ersetzen will, wie mache ich das am schnellsten?

[lupo1]

zk = Left(zk, 14) & "b" & Right(zk, 85) abzuraten!

oder für variabel lange Strings

zk = Left(zk, 14) & "b" & Mid(zk, 16) ist auch für fixe Längen besser.

[atilla]

Hallo,

oder so:

Code:

zK = Application.WorksheetFunction.Substitute(zK, "a", "b", 15)

[lupo1]

Hallo atilla,

WECHSELN wechselt das 15. "a" in "b".

Das ist - allgemein - etwas anderes, als an Position 15, egal was, zu tauschen.

TE war hier nicht konsequent in der Formulierung.

[Fennek]

Hallo,

es geht auch so:

in A1: aaaaa

Code:

sub Fen()
Tx = cells(1,1)
mid(Tx, 3) = "b"
cells(1,1) = tx
end sub

mfg

(abgeguckt bei Rick Rothstein)

[RPP63]

Klasse, Fennek! 
Ist das ein Bug oder ein Feature?
;)

Gruß Ralf

[Fennek]

Hallo RPP,

keine Ahnung, ich sammele nur aus verschieden Quellen. Rick's Webseite ist www.excelfox.com und im "Mastercorner" gibt sehr interessante Diskussionen mit snb.

mfg

[Kuwer]

Hallo,

Atilla war ja nah dran. ERSETZEN() wäre die richtige Funktion:

Sub aaa()
 Dim zk As String
 zk = String(100, "a")
 zk = Application.WorksheetFunction.Replace(zk, 15, 1, "b")
 Debug.Print zk
End Sub

Gruß Uwe

[lupo1]

Irgendwie kaputt, und doch geil.

Mid(tx, 3) = "blablabla" 'überschreibt tatsächlich Stelle 3-11!

zu Kuwer:
Mid(zk, 15) = "b"
ist aber doch eindeutig schicker! Das schönste ist: zk wird in der Zeile nur einmal angesprochen.

[Kuwer]

Hallo,

Irgendwie kaputt, und doch geil.

Nö, steht sogar in der Hilfe, dass es eine Mid-Funktion und eine Mid-Anweisung gibt.

zu Kuwer:
Mid(zk, 15) = "b"
ist aber doch eindeutig schicker! Das schönste ist: zk wird in der Zeile nur einmal angesprochen.

sicher. Ich wollte ja nur Atilla etwas trösten.  :100:

Gruß Uwe