Problem mit kopieren und einfügen per VBA
03.02.2006 14:39:33
Andy Fitz
Ich habe eine Prozedur geschrieben mit der Ich ein neues Tabellenblatt einfüge und aus einem bestehenden Daten kopiert und ins neue Einfügt, das Problem ist, dass Ich in mehreren Zellen eine Wenn Formel habe die dabei nicht mitkopiert wird.
Vielleicht kann mir jemand weiterhelfen, hier meine prozedur:
Sub Blattrand()
Sheets("Jänner 06").Select
Cells.Select
Selection.Copy
Sheets.Add
Cells.Select
ActiveSheet.Paste
Range("A10:M21").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A10:A21").Select
Monatsformat = InputBox("Monat eingeben ?", _
"Monatseingabe zb 03")
Tagesf = "dd""" & "."
Jahresf = "." & "06"""
Selection.NumberFormat = Tagesf + Monatsformat + Jahresf
Select Case Monatsformat
Case Is = 1
Blattname = "Jänner"
Case Is = 2
Blattname = "Februar"
Case Is = 3
Blattname = "März"
Case Is = 4
Blattname = "April"
Case Is = 5
Blattname = "Mai"
Case Is = 6
Blattname = "Juni"
Case Is = 7
Blattname = "Juli"
Case Is = 8
Blattname = "August"
Case Is = 9
Blattname = "September"
Case Is = 10
Blattname = "Oktober"
Case Is = 11
Blattname = "November"
Case Is = 12
Blattname = "Dezember"
End Select
ActiveSheet.Select
ActiveSheet.Name = Blattname & " 06"
ActiveSheet.Move After:=Sheets(Sheets.Count) 'Verschiebt das Blatt an die letzte Stelle
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.27)
.RightMargin = Application.InchesToPoints(0.24)
.TopMargin = Application.InchesToPoints(0.27)
.BottomMargin = Application.InchesToPoints(0.27)
.HeaderMargin = Application.InchesToPoints(0.17)
.FooterMargin = Application.InchesToPoints(0.17)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With