Suche

Forumthread: Suche

Suche

17.08.2006 17:49:04

Christian

Hi,
brauche mal wieder eure Hilfe!!!!
Habe Textfelder von B1 bis B100 in denen nach der der Zeichenkette abc gesucht werden soll. Wenn diese gefunden ist soll der Rest der Zeichenkette in eine variabel gesetzt werden. Diese wird dann weiterverarbeitet.
Danke schon einmal
Christian

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche

17.08.2006 17:52:02

Matthias
AW: Suche

17.08.2006 17:53:16

Christian
AW: Suche

17.08.2006 17:56:06

Matthias
AW: Suche

17.08.2006 18:00:20

Christian

AW: Suche

17.08.2006 17:52:02

Matthias

Hallo Christian,
muss "abc" am Anfang stehen?
Gruß Matthias

AW: Suche

17.08.2006 17:53:16

Christian

nein

AW: Suche

17.08.2006 17:56:06

Matthias

Hallo Christian,
dann so:


Sub test()
Dim s As Range, tmp As String, t0 As Integer
Dim such As String
such = "abc"
Set s = Sheets("Tabelle1").Range("B1:B100").Find(what:=such, LookAt:=xlPart)
If s Is Nothing Then
MsgBox "nicht gefunden"
Else
t0 = InStr(s.Value, "abc")
tmp = Mid(s.Value, t0 + Len(such))
MsgBox tmp
End If
End Sub

Gruß Matthias

AW: Suche

17.08.2006 18:00:20

Christian

danke dir

Forumthread: Suche

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread