Finden und Kopieren?
06.07.2016 19:29:26
Roslo
Ich benötige ein Makro das aus der 3. Spalte der Tabelle 1 aus Mappe_1
die letzte beschriebene Zelle findet, dann in dieser Zeile in die 1. Spalte wechselt,
dann den Inhalt dieser Zelle kopiert, dann in Tabelle 1 aus Mappe_2 nach diesem Inhalt sucht und
alle Zeilen ab der ersten die diesen Inhalt besitzt kopiert und in Tabelle 1 aus Mappe_1 in die Zeile
unter der letzten beschriebenen Zelle der 3. Spalte einfügt. Hoffe man versteht mein Problem soweit.
Hier mein bisheriger Ansatz:
Windows("Makro_Testmappe1.xlsm").Activate
Sheets("Tabelle1").Select
Dim Datum As Long
Dim LetzteZeile As Long
LetzteZeile = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
Cells(LetzteZeile, "C").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(0, -1).Select
Datum = ActiveCell
Windows("Makro_Testmappe2.xlsm").Activate
Sheets("Tabelle1").Select
Cells.Find(What:=Datum, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=False, SearchFormat:=True).Activate
End Sub
Weiter komme ich selber leider nicht...