Zellen suchen, vergleichen, kopieren
03.04.2014 10:19:17
Nina
ich hoffe mir kann einer helfen...
Folgendes Problem:
Auf meinem Hauptblatt GesP ab Spalte A7 steht eine ID (1-350), die in allen folgenden Tabellenblättern (ab X = 3) auch EINMAL in Spalte A steht. Das Makro soll die ID auf GesP A7:A350 in den folgenden Blättern suchen und wenn es eine Übereinstimmung gefunden hat die zugehörige Zelle aus Spalte L auf GesP Spalte L Zeile ID kopieren. Wenn die ID auf keinem folgenden Blatt zu finden ist soll nichts passieren und die nächste ID gesucht werden usw.
Der Code muss alle folgenden Tabellenblätter unabhängig vom Blattnamen ansprechen.
Das hab ich funktioniert aber gar nicht^^:
Sub Schaltfläche4_BeiKlick()
Dim Wks1 As Worksheet
Dim Wks2 As Worksheet
Dim i As Long
Dim X As Variant
Dim Zelle As Range
Application.ScreenUpdating = False
For X = 3 To Worksheets.Count
Set Wks1 = Worksheets("GesP")
Set Wks2 = Worksheets(X)
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For i = lz To 7 Step -1
If Wks1.Cells(i, 1).Value = Wks2.Cells(i, 1).Value Then
Wks2.Cells(i, 12).Copy Destination:=Wks1.Cells(i, 12)
End If
Next i
Next X
Application.ScreenUpdating = True
End Sub