Folgende Funktion möchte ich über den Button CmdDatenLaden ausführen:
Den Inhalt der Zellen G4 und AB4
des Tabellen-Blatts "ON"
des im gleichen Verzeichnis liegende Excel-Files
mit dem Namen aus dem Inhalt der Zelle B1
in die Zellen A10 und B10 des
aktiven Tabellen-Blatts "Input"
der offenen Datei kopieren.
Private Sub CmdDatenLaden_Click()
Dim wkbVorlage As Workbook
Set wkbVorlage = ThisWorkbook.path & "\" & Range("B1").Value
With ThisWorkbook.Sheets("Input")
.Range("A10").Copy wkbVorlage.Sheets("ON").Range("G4")
.Range("B10").Copy wkbVorlage.Sheets("ON").Range("AB4")
End With
Set wkbVorlage = Nothing
End Sub
Leider funktioniert der Code so nicht. Könnt ihr mir bitte helfen?
Beste Grüße
Markus