Makro ergänzen
20.05.2005 11:40:43
Silvi
Folgendes Makro soll Spalten durchsuchen und vergleichen, tut es auch aber immer nur in der Spalte B bzw. 2. Spate der Tabelle2, es soll aber noch bis Spalte 11 laufen... krieg ich nicht alleine hin! Bitte, kann mir jemand helfen?
#
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
Anzeige