Hab schon ein paar mal wegen diesem Makro geschrieben, muß jetzt nur noch wissen wie ich eine Variable deklariere.
#
Sub vergleichen3()
Dim i, lz As Integer
'Dim b, ? weiß nicht was hier eingesetzt werden muß
Dim c, Wert As Variant
Worksheets("Tabelle2").Activate
With Sheets("Tabelle3")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For b = 2 To 11
Wert = Cells(i, b)
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Set c = Sheets("Start").Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then .Cells(lz, 1) = Cells(i, 1): .Cells(lz, b) = Cells(i, b)
Next b
Next i
End With
End Sub
#Gruß
Silvi