habe nachstehendes Makro, bei dem Suchbegriffe gesucht werden und dann die
ganze Zeile in eine neue Tabelle übertragen werden. Allerdings geht dies
nur bei Buchstaben. Zahlen erkennt der Code nicht, bringt aber auch keine
Fehlermeldung:
'Zeilen suchen und in anderes Blatt kopieren403591.htm
Sub SelectIfT()
Dim var As Variant
Dim iRow As Integer
Dim iRowL As Integer
Dim suche As Integer
Dim strSuche As String
Dim kopieren As Integer
kopieren = 2
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For suche = 1 To 2 'hier die Anzahl der suchbegriffe
''## Wie muss eine Zahl (z.B. 5) als Suchbegriff behandelt werden?
''## sowohl 5 funktioniert nicht
''## als auch "5" funktioniert nicht
''## wird jeweils nicht gefunden, keine Fehlermeldung
strSuche = Choose(suche, "T", "5") 'hier die Suchbegriffe
For iRow = iRowL To 1 Step -1
var = Application.Match(strSuche, Rows(iRow), 0)
If Not IsError(var) Then
Rows(iRow).Copy Destination:=Worksheets("Tabelle2").Rows(kopieren)
kopieren = kopieren + 1
End If
Next iRow
Next suche
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com