Tab.Blatt Kopieren und Name mit F1
16.01.2010 19:23:16
Heinz H
Hallo Leute
Im unteren Makro möchte ich Ein Tab.Blatt kopieren,
in F1 (Steht Datum zB. 01.03.2009) um ein Monat hochzählen.
Beim Kopieren in F1 (Zb.01.04.2009)
Leider läuft es nicht wie gewollt.
Könnte mir bitte jemand schreiben wo der Fehler liegt.
Fehlermeldung kommt bei "Text =" "Variable nicht definiert.
Gruß
Heinz
Sub kopiereBlatt()
Dim a, datum
Dim quellwks As Worksheet
Dim zielwks As Worksheet
Set quellwks = Sheets(Sheets.Count - 1)
datum = Date
a = quellwks.Cells(6, 1).Value + 1
Dim Titel As String ''
Titel = " * - * - * - * - * - * - * - * - * Meldung * - * - * - * - * - * - * - * " ''
If a > datum Then
Text = "Sie dürfen erst ein neues Blatt ab " & a & " einfügen." ''
MsgBox Text, vbCritical, Titel
Exit Sub
End If
'bis hier datum = Date
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("F1")
Application.EnableEvents = False
'.Range("C6:f10,C12:f16,C18:f22,C24:f28").ClearContents
'.Range("C30:f34,C36:f40,C42:f46,C48:f52").ClearContents
'.Range("L6:O10,L12:O16,L18:O22,L24:O28,L30:O34,L36:O40,L42:O46,L48:O52").ClearContents
End With
ActiveWindow.ScrollColumn = 1
Application.EnableEvents = True
Application.ScreenUpdating = True
zielwks.Protect "Test"
End Sub
Anzeige