bei replace wird aus 050190 eine 50190
13.02.2007 07:07:54
F Zap
ich habe ein Excel Tabellenblatt mit zwei CommandButtons.
Durch betätigen des ersten Buttons öffne ich eine andere Excel Datei,
lese dort drei Felder aus, und diese schließt sich automatisch wieder.
Die drei ausgelesenen Felder werden in die erste Datei kopiert.
Ein Feld besteht aus einer Serien Nummer im Format: 050190.
Durch den zweiten CommandButton wird eine Text Datei geöffnet,
der Text in das erste Excel Blatt kopiert, und die Text Datei wieder geschlossen.
Nun steht in einer Zelle: SerialNo=050190
Ich brauch nun von dieser Zelle den Text: 050190
Das habe ich auf diese beiden Wege versucht, aber es klappt nicht.
Kann mir jemand von Euch helfen?
Gruß
Frank
Versuch 1.) hier wird aus SerialNo=50190 eine 50190
Dim serial As String
serial = Cells(10, 3)
Worksheets("xy").Cells(10, 3).Replace What:="SerialNo=", Replacement:=""
serial = Cells(10, 3)
Versuch 2.) hier wird aus SerialNo=50190 ein =50190
Dim serial As String
Dim Pos%
serial = Cells(10, 3)
Pos = Application.Find("#", Application.Substitute(serial, "=", "#", 1))
serial = Mid(serial, Pos)
Cells(10, 3) = serial