Makro ergänzen
21.02.2020 14:09:30
mike49
welche Zeile muss ich im Makro einfügen, damit auch die Jahreszahl in C1 um 1 Jahr ehöht wird.
Sub WerteUebertragen()
Application.ScreenUpdating = False
Dim var
var = MsgBox("M ö c h t e n S i e s t a r t e n?", vbYesNo, "Nachfrage")
ActiveSheet.Unprotect
If var = 6 Then
Range("C6:C8").Select
Selection.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C10:C11").Select
Application.CutCopyMode = False
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C16:C17").Select
Application.CutCopyMode = False
Selection.Copy
Range("B16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C19").Select
Application.CutCopyMode = False
Selection.Copy
Range("B19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Range("C24:C26").Select
Application.CutCopyMode = False
Selection.Copy
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C31").Select
Application.CutCopyMode = False
Selection.Copy
Range("B31").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-27
Range("C6:C8,C10:C11,C16:C17,C19,C24:C26,C31").Select
Range("C31").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("B37,B40,B42,B45,B47").Select
Selection.ClearContents
Range("C37,C40,C42,C45,C47").Select
Selection.ClearContents
Range("B1").Select
ActiveSheet.Protect
Application.ScreenUpdating = True
End If
End Sub
Gruß
mike49