ich kopiere bestimmte Blätter aus einer Quellarbeitsmappe in die
Zielarbeitsmappe.
Jedoch scheiterten meine bisherigen Versuche zu verhindern, dass beim
erneuten Aufruf des Makros diese bestimmten Blätter nochmals
in die Zielarbeitsmappe kopiert werden.
Wer kann helfen?
Danke im voraus
Peter
Sub VorlImport()
Dim wkb As Workbook
Dim sFile As String
Dim i As Integer, wsName As String, sName As String
Application.ScreenUpdating = False
sFile = "E:\Vorlagen\QuellVorlagen.xls"
sName = "Vorl"
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 wkb 'QuellVorlagen
For i = 1 To .Sheets.Count
If Left(.Sheets(i).Name, 4) = sName Then
.Sheets(i).Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
End If
Next i
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub