ich habe versucht ein Makro zuschreiben, welches aus der geöffneten Datei eine Projektnamen Zeile "A1" ausliest, anschließend eine weitere Exceldatei öffnet, in dieser in Spalte "G" nach dem Projektnamen sucht und anschließend die betreffende Zeile von der geöffneten Seite auswählt und in die zu anfangs erstellte Datei kopiert (am besten nur Werte). Dabei ist es möglich, dass der Projektname mehrmals in der Quelldatei vorkommt, in dem Fall sollen alle Treffer kopiert werden.
Leider funktioniert das Makro nicht, kann mir jemand helfen?
Vielen Dank im Vorraus.
Sub Kopieren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
Dim ZielWb As Workbook
Set ZielWb = ThisWorkbook
Projekt = Range("A1").Value
Workbooks.Open ("R:\Allgemein\Rein\Reinklein2014.xlsx")
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 7).Value = Projekt Then
.Rows(Zeile).Copy Destination:=ZielWb(Tabelle1).Rows(n)
n = n + 1
ZielWb.Activate
Workbooks("R:\Allgemein\Rein\Reinklein2014.xlsx").Close savechanges:=False
End If
Next Zeile
End With
End Sub