In die 3-te zeile eines komentares etwas einfügen.
20.10.2004 21:10:22
Bachner
Ich möcht mich schon mal bei euch bedanken, danke Gerhard
Sub Text_Kommentar_start_zeit()
Dim tx As String
Dim scheinnummer As String
Dim b As Byte
tx = ActiveCell.Comment.Text
b = InStr(tx, Chr(10))
b = InStr(b + 1, tx, Chr(10))
tx = Right(tx, Len(tx) - b)
b = InStr(tx, " ")
If InStr(tx, 0) = 0 Then
'an diese stelle in diese zeile aus iner variablen den wert einfügen?
'80 15.10.2004 17:03
End If
End Sub