Wie kann ich an eine bestimte stelle (erste stelle) in einer vareablen (scheinnummer) einen wert eintragen (eine Zahl)?
zb. text = "München - Karlsruhe 22.10.2004 19:00"
wie kann ich vor München noch eine Zahl einfügen?
Vielen dank Gerhard
Sub Text_Kommentar_start_zeit2()
Dim tx As String, tx1 As String, tx2 As String
Dim scheinnummer As String
Dim i As Integer
Dim b As Byte
Application.Volatile
scheinnummer = "München - Karlsruhe 22.10.2004 19:00"
tx = Trim(StrReverse(scheinnummer))
b = InStr(tx, " ")
b = InStr(b + 1, tx, " ")
i = Len(tx)
tx1 = StrReverse(Left(tx, b))
tx2 = StrReverse(Right(tx, i - b))
ActiveCell.Comment.Text Text:=tx1 & tx2
End Sub