Habe folgendes Problem:
Im folgenden Code soll in einer Spalte nach einer Teilenr. gesucht werden. Das Makro soll in einer Tabelle die Spalte 10 durchsuchen und dort wenn es die Teilenr. gefunden hat in eine andere spalte springen. In diesem FAll ist die Teilenr. als c hinterlegt. In der Zeile "If Cells (c) Then"kommt die Fehlermeldung.
Im endeffekt soll die Zeile bedeuten: Wenn die Zelle c(Teilenr.) ist, dann tu folgendes...
Wie muss der Befehl korrekt lauten?
For m = 7 To endequelle
wb2.Activate
ws2.Select
Cells(m, 10).Select
If Cells(c) Then
geraet = Cells(m - 1, 9)
wb1.Activate
ws1.Select
ActiveSheet.Cells(letztezeilealt + 1, 1).Select
ActiveCell.FormulaR1C1 = "" & geraet
letztezeilealt = letztezeilealt + 1
End If
Next m
Danke für eure Hilfe
Grus Samu