Mit der gegoogelten u.a
Sub komme ich in meiner Aufgabenstellung fast schon klar.
Meine Frage:
Wie muß der Dateipfad geschrieben werden, damit er mir z.B. Das Tabellenblatt "Test" ausließt?
Danke im voraus.
Gruß Reinhardt
Sub DatenImport()
Dim rngTarget As Range
Set rngTarget = Range("a1:I15")
Application.ScreenUpdating = False
Workbooks.Open "C:\Dokumente und Einstellungen\RSpringer\Eigene Dateien\Formular_Personal. _
xls"
rngTarget.Value = Range("A1:i10").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub