Guten morgen
Habe eine verzwickte Aufgabe.
Habe einen Button zum kopieren von Tab.Blättern,den Namen vom neuen Blatt kommt aus A6 & A52 vom alten Blatt.Nun bräuchte ich eine MSG BOX die darauf hinweist,bevor das Blatt eingefügt wird, man darf das Blatt erst ab Datum von A52 +1 Tag einfügen.
Zum Beispiel,altes Tab.Blatt A52 = 10.08.05,nun MSG BOX "Sie dürfen erst ein neues Blatt ab 11.8.05 einfügen."
Kode zum Kopieren steht unten.
Danke Heinz
Sub kopiereBlatt()
Dim quellwks As Worksheet
Dim zielwks As Worksheet
Set quellwks = Sheets(Sheets.Count - 1)
Application.ScreenUpdating = False
quellwks.Unprotect "Test"
quellwks.Copy Before:=Sheets(Sheets.Count)
quellwks.Protect "Test"
'activesheet ist jetzt die kopie !!
Set zielwks = ActiveSheet
Dim wks As Worksheet
Dim zi, JUrl, ETDat, EinfDatE, EinfDatB As Variant
With zielwks
'.Name = .Range("A6") & " bis " & .Range("A52")
.Range("A6") = .Range("A52") + 3