Makro erweitern wenn Tabelle vorhanden...
17.12.2004 12:38:45
Andreas.R.
kann mir vielleicht einer von Euch dieses Makro aus diesem Forum erweitern?
Es funktioniert bestens nur wenn ich versehentlich die gleiche Datei mit dem Namen aus einer Zelle nochmals einfüge wird das Tabellenblatt VORHER zB."10.04.04" danach mit "10.04.04(2)" eingefügt.
Ich möchte das das Makro überprüft, wenn das Tabellenblatt mit der eingefügten Datei schon besteht (vorhanden ist) nicht noch einmal eingefügt wird.
Es soll eine Meldung erfolgen "Datei bereits eingefügt" und der Vorgang abgebrochen werden.
Sub TabImport()
Dim wkb As Workbook
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("A1").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
Bei meinen bisherigen VBA Kenntnissen kriege ich das noch nicht hin.
Kann mir das von Euch einer in das Makro einbauen?
besten Dank schon im Vorraus
Andreas.R.