Hallo Leute
Ich möchte gerne in den unteren Code die Formel N58:O60 mitkopieren.
Also wenn ein neues Tab.Blatt kopiert (angelegt)wird, das die Formel neu eingefügt wird,auch dann wenn die Formel gelöscht wurde.
Könnte mir Bitte jemand dabei helfen ?
Danke & Gruß Heinz

09.04.2007 bis 01.06.2007

N O 58   158,50 59     60   72,50 Formeln der Tabelle N58 : =$I$55 O58 : =WENN($T$4="Ja";Legende!$E$7+$M$58-$N$58;$M$58-$N$58) N59 : =$X$55 O59 : =WENN($AC$62=0;$M$59-$N$59;WENN($AC$62>0;$AC$62-$N$59)) N60 : =$V$55 O60 : =WENN($AC$62=0;$M$60-$N$60;WENN($AC$62>0;Legende!$H$11-$N$60))

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Sub kopiereBlatt() Dim a, datum Dim quellwks As Worksheet Dim zielwks As Worksheet Set quellwks = Sheets(Sheets.Count - 1) datum = Date a = quellwks.Cells(52, 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 "Maria" quellwks.Copy Before:=Sheets(Sheets.Count) quellwks.Protect "Maria" '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 .Range("M58:M60") = .Range("O58:O60").Value 'Berechnung für Urlaub ETDat = Sheets("Legende").Range("D3").Value EinfDatB = .Range("A6").Value - 2 EinfDatE = .Range("A52").Value For zi = 1 To 500 ETDat = DateSerial(Year(ETDat) + 1, Month(ETDat), Day(ETDat)) If ETDat >= EinfDatB And ETDat = EinfDatB And ETDat = EinfDatB And ETDat