Office: Excel 2007 problem mit #Name?

Hallo zusammen,
habe eine ziemlich komplexe Tabelle die nach einer Veränderung nicht mehr das macht was ich möchte.

Hier die Formel:

Code:

 .Range("K54").Formula = "=('" & Worksheets(Worksheets.Count - 1).Name & _
        "'!K54+Summe(K19:K53))" 'Setzt die Bruttosumme vom Vorblatt fort'

Nur leider steht dann in der K54 immer der Fehler: #Name?. wenn ich aber dann in die fx-Zeile gehe hinter die Formel klicke und einfach nur "Enter" drücke, dann rechnet die Formel.

Wo ist mein Fehler ??

 

Ich schätze mal. dass der Code so sein muss:

Code:

.Range("K54").Formula = "=('" & Worksheets(Worksheets.Count) - 1.Name & _         
"'!K54+Summe(K19:K53))"

also die schließende Klammer direkt nach dem Count.

 

Dann kommt leider die Fehlermeldung " Fehler beim Kompilieren" Erwartet: Anweisungsende

also das funzt leider nicht :-(

 

Vielleicht nochmal der ganze Code damits besser verstanden wird:

Code:

Sub TabKopieren()
   For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Unprotect
Next
  
    
   Worksheets("S1").Copy after:=Worksheets(Worksheets.Count)
   With ActiveSheet
      .Name = "S" & Worksheets.Count - 1 [COLOR="#008000"]'setzt die Registerkarte um 1 weiter'[/COLOR]
      
      .Range("A19") = Worksheets(Worksheets.Count - 1).Range("A53") + 1 [COLOR="#008000"]'setzt die Fahrtenaufstellung um 1 weiter'[/COLOR]
      
      .Range("F54").Formula = "='" & Worksheets(Worksheets.Count - 1).Name & _
        "'!G56+COUNTA(H19:I53)" '[COLOR="#008000"] 'setzt die Summe der Fahrten vom Vorblatt fort'[/COLOR]
      
      .Range("K54").Formula = "=('" & Worksheets(Worksheets.Count - 1).Name & _
        "'!K54+Summe(K19:K53))"[COLOR="#008000"] 'Setzt die Bruttosumme vom Vorblatt fort'[/COLOR]
      
      .Range("L54").Formula = "=('" & Worksheets(Worksheets.Count - 1).Name & _
        "'!L54+Summe(L19:L53))" [COLOR="#008000"]'Setzt die Nettosumme vom Vorblatt fort'[/COLOR]
      
      .Range("I58") = Worksheets.Count - 1 'setzt die Seitenzahl um 1 weiter'
      
      Worksheets("Rechnung").Range("H30").Formula = "='" & ActiveSheet.Name & "'!K54" [COLOR="#008000"] 'Erhöht die Nettosumme auf der Rechnungsseite'[/COLOR]
      
      Worksheets("Rechnung").Range("G30").Formula = "='" & ActiveSheet.Name & "'!B54"
   Range("B19:K53").Select [COLOR="#008000"]'löscht die "ALTEN" Psitionen auf der neu erstellten Seite'[/COLOR]
   
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-24
    Range("B19").Select
   
   For Each Blatt _
In ActiveWorkbook.Sheets
 Blatt.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
Next

   End With


End Sub

 

SO ist es korrekt:

Code:

.Range("K54").FormulaLocal = "=('" & Worksheets(Worksheets.Count - 1).Name & _
         "'!K54+Summe(K19:K53))" 'Setzt die Bruttosumme vom Vorblatt fort'

 

Super... vielen Dank ... Es funktionert!!!