Hallo,

für eine meiner täglichen Aufgaben habe ich mir ein Makro erstellt.
Ich habe eine Sammeldatei, in der mehrere Messwerte eines bestimmten Tages stehen.

Das Makro soll nun immer aus einer täglichen Datei alle Messwerte in die Sammeldatei kopieren.
Die tägliche Datei steht immer im selbem Speicherort, nur das Datum im Dateinamen ändert sich.

(Dateinamen: 13.03.2019 Messwerte; 14.03.2019 Messwerte etc.)

Allerdings kriege ich es nicht hin, die Quelldatei zu öffnen.
Der Dateipfad- und Name wird per String eingelesen. Das aktuelle Datum befindet sich als Variable auch dort. Allerdings wird diese Nur als Text und nicht als Datum erkannt.

Der Code sieht wie folgt aus

Option Explicit
Sub Messwerte()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet


Const Spalten = 20                                                  '20 Spalten beachten
Const Spalte1 = 1                                                   'Bei Spalte 1 beginnen

Dim strName As String
Dim lRow As Long
Dim AktDatum As Date
AktDatum = Date

                                           
strName = "C:\Benutzer\Dokumente\Aktdatum Messwerte.xlsx"


'Zielblatt = aktive Datei, aktives Blatt
    Set wsZiel = ActiveWorkbook.ActiveSheet
'Quellblatt = Datei, Blatt 1
    Set wsQuelle = Workbooks.Open(Filename:=strName).Worksheets(1)
    
    
'Kopieren

With wsQuelle
    lRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row - 1
    .Cells(4, Spalte1).Resize(lRow, Spalten - Spalte1 + 1).Copy
End With

With wsZiel
    lRow = .Cells(.Rows.Count, Spalte1).End(xlUp).Row + 1
    .Cells(lRow, Spalte1).PasteSpecial
End With

    Application.CutCopyMode = False                                  'Zwischenspeicher löschen
    
'Quelle schließen
    wsQuelle.Parent.Close
    Set wsQuelle = Nothing
    Set wsZiel = Nothing
End Sub

Vielen Dank im voraus