ich benötige ein Makro welches Inhalte aus einer zuvor bestimmten dabei kopiert und in die neue einfügt.
Beide Dateien sind identisch und es sollen nur bestimmte Zellen ( Werte ) kopiert werden .
Sub Schaltfläche3_Klicken()
Dim strDatei, wks As Worksheet
strDatei = Application.GetOpenFilename
If strDatei False Then
Set wks = Workbooks.Open(strDatei).Sheets(2) ' hier wird die Quelldatei geöffnet
Else
Exit Sub
End If
Windows("Vorlage1.xls").Activate ' hier werden die werte kopiert jedoch weis ich nicht wie ich _
es anstellen soll, das die werte aus der zuvor gewählten dabei genommen werden .
Range("C7:P21").Select
Selection.Copy
Windows("Vorlage.xls").Activate
Range("C7:P21").Select
ActiveSheet.Paste
wks.Parent.Close False
Set wks = Nothing
End Sub
Kann da jemand helfen ?LG
Sven