Makro ergänzen
23.05.2005 08:37:46
Silvi
ich brauche wiedermal Eure Hilfe! Unten stehendes Makro braucht eine Erweiterung, es soll nicht nur in Spalte B laufen sondern bis zur 11. Spalte. Da ich Makros leider nur aufzeichnen kann, komme ich hier nicht weiter. Wer kann mir da mal helfen?
Jetzt schonmal Danke!
Gruß
Silvi
#
Sub vergleichen3()
Dim i, lz As Integer
Dim c, Wert As Variant
Worksheets("Tabelle2").Activate
With Sheets("Tabelle3")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Wert = Cells(i, 2)
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, 2) = Cells(i, 2)
Next i
End With
End Sub
#