Materialliste
05.01.2022 14:33:36
Christian
Dieses::
Sub NEUES_JAHR()
' GANZES_JAHR Makro'
' Alles einblenden
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Range("B4").Select
ActiveWindow.FreezePanes = True
Range("D11").Select
'Vergabe des neuen Tabellenblattnamens'
Dim strName As String
ActiveSheet.Copy after:=Sheets(Sheets.Count)
strName = InputBox("Name des neuen Blattes - und zum Kopieren OK klicken")
If Not strName = "" Then
ActiveSheet.Name = strName
Else
Exit Sub
End If
'Tabellenblattname wird in A1 kopiert
'für Formeln '
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
ActiveSheet.Range("A1") = strName
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Range("B6").Select
'Inhalte - Konstanten werden gelöscht'
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=21
Rows("61:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D11").Select
'Aktueller Stand vom Vojahr Dez wird in aktuelles Jahr kopiert'
Sheets("2021").Range("d681:N681").Copy
Sheets("2022").Range("d11").PasteSpecial xlPasteValues
Sheets("2021").Range("d680:N680").Copy
Sheets("2022").Range("d50").PasteSpecial xlPasteValues
Sheets("2021").Range("w637:w648").Copy
Sheets("2022").Range("x10").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.CutCopyMode = False
MsgBox "Neues Jahr wurde angelegt!"
End Sub
kopiert mir ein Tabellenblatt (hier das Jahr 2021)ich vergebe für das neue Tabellenblatt den Namen 2022
in weiterer Folge werden im neuen Blatt Zellen die Eingaben (nicht Formeln, Texte usw) gelöscht und andere von 2021 auf 2022 kopiert.
Wie stelle ich es an, den Code
Sheets("2021").Range("d681:N681").Copy
Sheets("2022").Range("d11").PasteSpecial xlPasteValues
Sheets("2021").Range("d680:N680").Copy
Sheets("2022").Range("d50").PasteSpecial xlPasteValues
Sheets("2021").Range("w637:w648").Copy
Sheets("2022").Range("x10").PasteSpecial xlPasteValues
Application.CutCopyMode = False
alle Jahre ändern zu müssen?
Für Hilfe bin ich sehr dankbar