AW: Der Lösung auf der Spur - Jahresberechnung
04.02.2005 09:33:42
HeinzH
Hallo RR
Danke, aber die Schei.. ist das eben die Formel nicht mitkopiert wird.Ich glaube es liegt am Makro.
Könntest Du mir BITTE noch ein letztes mal helfen ?
Herzlichen Dank für Deine Zeit
Heinz
Sub kopiereBlatt()
Dim wks As Worksheet
Dim zi, JUrl, ETDat, EinfDatE, EinfDatB As Variant
Application.ScreenUpdating = False
Sheets(Sheets.Count - 1).Copy Before:=Sheets(Sheets.Count)
Set wks = Sheets(Sheets.Count - 1)
With wks
'.Name = .Range("A6") & " bis " & .Range("A52")
.Range("A6") = .Range("A52") + 3
.Range("M58:M60") = .Range("O58:O60").Value
'eingefügt von Stephan(HerberForum)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 <= EinfDatE Then
JUrl = Sheets("Legende").Range("H24").Value * 5
.Range("M58").Value = .Range("M58").Value + JUrl
End If
Next zi
'Ende eingefügt von Stephan(HerberForum)
.Range("J5") = .Range("J55").Value
Application.EnableEvents = False
.Range("C6:f10,C12:f16,C18:f22,C24:f28").ClearContents
.Range("C30:f34,C36:f40,C42:C46,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
End Sub
Sub löschen()
Application.ScreenUpdating = False
With ActiveSheet
.Range("C6:f10,C12:f16,C18:f22,C24:f28").ClearContents
.Range("C30:f34,C36:f40,C42:C46,C48:f52").ClearContents
.Range("L6:O10,L12:O16,L18:O22,L24:O28,L30:O34,L36:O40,L42:O46,L48:O52").ClearContents
End With
Application.ScreenUpdating = True
End Sub