Zum Makro hinzufügen
29.01.2005 00:11:59
HeinzH
Möchte gerne im unterstehenden Makro eine Kleinigkeit hinzufügen.Das Makro ist nicht von mir,mit Makro's kenne ich mich überhaubst nicht aus.
Ich hätte gerne das der Wert von AC61 in O58 hinzugefügt wird.
Könnte mir das bitte einer machen.
Danke Heinz
Sub kopiereBlatt()
Dim wks As Worksheet
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
.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