TB automatisch hinzufügen
13.02.2005 11:51:22
HeinzH
Habe mit unterstehenden Code ein kleines Problem.
Habe eine Schaltfläche zum automatischen hinzufügen von TB.wenn ich auf hinzufügen Klickekopiert es mir zuerst eine Kopie vom alten TB und dann erst das neue.Zb Tb Liste1(2) Tb Liste2 .Richtig wäre gleich TB Liste2.
Weiss jemand warum ??
Danke für Eure Hilfe Heinz
Dim wks As Worksheet
Dim zi, JUrl, ETDat, EinfDatE, EinfDatB As Variant
Dim co As Integer
Application.ScreenUpdating = False
co = Sheets.Count
Sheets(co - 1).Unprotect Password:="Passwort"
Sheets(co - 1).Copy Before:=Sheets(co)
Sheets(co - 1).Protect Password:="Passwort"
Application.ScreenUpdating = False
Sheets(Sheets.Count - 1).Copy Before:=Sheets(Sheets.Count)
Set wks = Sheets(Sheets.Count - 1)