Wie kann ich ein Tabellenblatt in eine Arbeitsmappe ind ein bestehendes Blatt importieren?
Sub RGinProjekt()
Dim sFile As String
Dim wkb As Workbook
Application.ScreenUpdating = False
sFile = Range("B1").Value
If Dir(sFile) = "" Then
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Set wkb = Workbooks.Open(sFile, False)
With ThisWorkbook("Rechnung")
.Range("A1").Value = wkb
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Danke für eure Hilfe
Gruß
Ludmila