Formeln_in_Werte_umwandeln
09.04.2014 15:48:09
Selma
was muss ich bitte im Code anpassen, damit die Aktionen in aufgeführten Arbeitsblättern durgeführt werden?
Sub Formeln_in_Werte_umwandeln()
'Januar
With Sheets("Januar")
Columns("D:D").EntireColumn.Hidden = False
Range("A9:NX500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
End With
'Februar
With Sheets("Februar")
Columns("D:D").EntireColumn.Hidden = False
Range("A9:NX500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
End With
'März
With Sheets("März")
Columns("D:D").EntireColumn.Hidden = False
Range("A9:NX500").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
ActiveWindow.Zoom = 100
Application.GoTo Reference:=Range("A1"), Scroll:=True
Columns("D:D").EntireColumn.Hidden = True
End With
End Sub
Viele Grüße,Selma