VBA-Code ändern
12.08.2004 20:49:25
Harald
wie kann ich Folgendes Makro von Hans ändern, das wenn ich dieses ein 2.Mal starte nicht ein neues Tabellenblatt erzeugt sondern in das Bestehende[mit dem Namen[Blatt1) kopiert?
hab schon vielse probiert und bin nun am verzweifeln
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 .Worksheets("Blatt1")
End With
wkb.Close savechanges:=False
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
vielleicht kann mir hier jemand Helfen
DANKE
Harald