Sub
ZellenKopieren()
Dim
a
As
Long
Dim
b
As
Long
Dim
c
As
Long
Dim
letzteZeileInS2
As
Long
Dim
letzteZeileInS1
As
Long
Dim
rngGefunden
As
Range
letzteZeileInS2 = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For
a = 2
To
letzteZeileInS2
Set
rngGefunden = Sheets(1).Columns(1).Find(Sheets(2).Cells(a, 1).Value)
If
Not
rngGefunden
Is
Nothing
Then
Else
letzteZeileInS1 = letzteZeileInS1 + 1
Sheets(1).Cells(letzteZeileInS1, 1) = Sheets(2).Cells(a, 1)
Sheets(1).Cells(letzteZeileInS1, 2) = Sheets(2).Cells(a, 5)
End
If
Next
a
End
Sub