ich habe bei euch ein Makro gefunden, welches mir aus verschiedenen Tabellenblättern Zellen in ein Zielblatt kopiert. Das Makro funktioniert auch super, nur möchte ich nun das die Zeilen in eine andere Datei (datei2.xlsm) in ein bestimmtes Tabellenblatt (Auswertung)kopiert werden. Wie muss der Code dazu angepasst werden?
Sub zusammenführen()
Dim shMain As Worksheet
Dim sh As Object
Set shMain = Sheets("Auswertungen")
For Each sh In ThisWorkbook.Worksheets
Select Case Right(sh.Name, 4)
Case Is = "2011"
sh.Range("A4:Q" & sh.Cells(sh.Rows.Count, 1) _
.End(xlUp).Row + 1).Copy Destination:= _
shMain.Cells(shMain.Cells(shMain.Rows.Count, 1) _
.End(xlUp).Row + 1, 1)
Case Else
End Select
Next
End Sub
Vielen Dank
Gruß Sebastian