altes Blatt durch kopiertes Blatt ersetzen
30.01.2004 11:26:04
Peter
beim öffnen meiner Arbeitsmappe kopiere ich mit Auto_Open das Tabellenblatt Zubehör aus
einer anderen Arbeitsmappe.- bis hier OK
In meiner Arbeitsmappe befindet sich am Tabellenende das alte Tabellenblatt Zubehör.
Jetzt möchte ich erreichen, dass das alte Tabellenblatt Zubehör, bei jedem Öffnungsvorgang
der Arbeitsmappe durch das kopierte Tabellenblatt ersetzt wird.
Wie macht man das richtig?
Ich bedanke mich schon im voraus
Peter
'........
'*** öffnen & kopieren der Datei
Set wkb = Workbooks.Open(sFile)
wkb.Worksheets("Zubehör").Range("A4:I63").Copy
Ab diesen Punkt treten immer Fehler auf.
'Tabellenblatt anlegen
wkb.Worksheets("Zubehör").Move After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
wkb.Close savechanges:=False
End Sub
Ich hatte schon diese Variante eingeschoben.
Leider auch ein Misserfolg.
Sub TabVorhanden()
Dim Zähler
' Tabellenblatt auf vorhanden prüfen
For Zähler = 1 To Sheets.Count
If Sheets(Zähler).Name = "Zubehör" Then
Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
'Sheets("Zubehör").Delete
Application.DisplayAlerts = True
Exit For
End If
Next Zähler
End Sub
Anzeige