Tach Leude,

Folgendes Problem...

Ich muss eine Spalte nach dem Wert ST durchsuchen.

Code dazu:
Sub exp()
Dim c As Range
Dim laRQ As Long, laRZ As Long
Application.ScreenUpdating = False
laRQ = Cells(Rows.Count, 7).End(xlUp).Row
For Each c In Sheets(file2).Range("G1:G" & laRQ)
If c.Value = "ST" Then
laRZ = Sheets("ST").Cells(Rows.Count, 1).End(xlUp).Row
If laRZ = 1 And Sheets("ST").Range("A1").Value = "" Then laRZ = 0
Rows(c.Row).Copy
Sheets("ST").Range("A" & laRZ + 1).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If

jetzt hat sich aber etwas geändert Der Wert ST wurde aufgegleidert und ca 30 andere Kürzel, aber alle beginnen mit ST

also Beispiel: ST FSB oder ST MhZ

wie kann ich mein Programm so ändern das immer nach den ersten drei Zeichen gesucht wird (ST )???

Wär dringend

Gruß Thomas