Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

zeichenkette in string einfügen

Betrifft: zeichenkette in string einfügen von: fritz
Geschrieben am: 29.08.2004 16:09:18

hallo VBAler,
gibt es eine vordefinierte funktion, mit der ich eine zeichenkette an einer bestimmten stelle in eine andere einfügen kann? so zb: einfüg(Ziel, Zeichenkette, Stelle) ?
ich kann mir mit einem etwas längeren code auch mit left,mid und right helfen..
mich interessiert aber, ob so eine funktion schon im VBA repertoire enthalten ist.

danke & grüße,
fritz

  


Betrifft: AW: zeichenkette in string einfügen von: andre
Geschrieben am: 02.09.2004 20:20:35

Hallo Fritz,
schaue mal, was bei worksheetfunction. alles angeboten wird.
Außerdem ginge noch Replace, aber auch nur mit basteln
Sub test()
a = "willi"
b = Replace(a, "i", "i***", 1, 1)
MsgBox b
End Sub

Wenn Du in jeder Zeichenkette nach dem 3. Buchstaben 3 Sterne einfügen willst dann z.B. so:
Sub tast()
a = "willi"
c = Mid(a, 3, 1)
b = Replace(a, c, c & "***", 1, 1)
MsgBox b
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "zeichenkette in string einfügen"