Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Tab.Blatt Kopieren und Name mit F1 | Herbers Excel-Forum


Betrifft: Tab.Blatt Kopieren und Name mit F1 von: Heinz H
Geschrieben am: 16.01.2010 19:23:16

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

  

Betrifft: Text fehlt bei Dim o.w.T. von: Reinhard
Geschrieben am: 16.01.2010 19:26:31




  

Betrifft: AW: Text fehlt bei Dim o.w.T. von: Heinz H
Geschrieben am: 16.01.2010 19:36:51

Hallo Reinhard

Erstmals Danke

Ist es so richtig ?

"Dim Text As String"

Jetzt bekomme ich den Fehler bei ".Name = .Range("F1"")

Es sollte F1 um ein Monat hochgezählt werden und der Blattname dann Zb. Mai 08

Gruß
Heinz


  

Betrifft: AW: Text fehlt bei Dim o.w.T. von: Hajo_Zi
Geschrieben am: 16.01.2010 21:46:05

Hallo Heinz

.Range("F1")

GrußformelHomepage


  

Betrifft: AW: Danke Hajo o.w.T. von: Heinz H
Geschrieben am: 17.01.2010 16:52:33




Beiträge aus den Excel-Beispielen zum Thema "Tab.Blatt Kopieren und Name mit F1"