Wie kan man vmit diesem code von hinten anfagen di
22.10.2004 17:04:25
hinten
Allso in eine Vareable "scheinnummer" der wie man unten siet zu testzweke mit dem text geladen wirt.
Daraus möchte ich von hinten anfange die Byte zu zählen um die komplette nummer von dem rest zu trennen. Problem ist nur das ich von hinten anfangen muß zu zählen weil der text daraus verschieden lang ist.
Vielen DankGerhard
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
scheinnummer = "1860 München - Karlsruhe 22.10.2004 19:00"
tx = scheinnummer
b = InStr(tx, " ")
b = InStr(b + 1, tx, " ")
i = Len(tx)
tx1 = Left(tx, b)
tx2 = Right(tx, i - b)
ActiveCell.Comment.Text Text:=tx1& tx2
End Sub