ich benötige Eure Hilfe !
Folgendes Makro liest mir beim Öffnen der Arbeitsmappe
Automatisch das erste Blatt nach der Dateiangabe (Pfadangabe) in B1
ein.
Ich würde gerne gleich 3 Arbeitsblätter aus Dateien mit
unterschiedlichen Pfaden einlesen.
Kann mir da jemand helfen ?
Wäre echt nett !
Gruß Nicole
Private Sub Workbook_Open()
TabImport
End Sub
Sub TabImport()
Dim wkb As Workbook
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub