buchstaben suchen
04.12.2003 11:21:53
Thomas H.
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