Sorry, es ist wahrlich nicht leicht mit einem Anti
Du last hier den Namen von A1 auslesen, verstehe ich das richtig?
Ich allerdings vergebe den Namen für das neue Blatt und hätte gerne, dass dieser in A1 übernommen wird.
Sub JÄNNER()
' JÄNNER Makro
' Jänner - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Range("B6").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=21
Rows("61:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D11").Select
End Sub
Sub FEBRUAR()
' FEBRUAR Makro
' Februar - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:61").Select
Selection.EntireRow.Hidden = True
Range("B63").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=24
Rows("118:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D68").Select
End Sub
Sub MÄRZ()
' MÄRZ Makro
' März - Rest ausgblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:118").Select
Selection.EntireRow.Hidden = True
Range("B120").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=24
Rows("175:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D125").Select
End Sub
Sub APRIL()
' APRIL Makro
' April - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:175").Select
Selection.EntireRow.Hidden = True
Range("B177").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=18
Rows("232:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D182").Select
End Sub
Sub MAI()
' MAI Makro
' Mai - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:232").Select
Selection.EntireRow.Hidden = True
Range("B234").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=27
Rows("289:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D239").Select
End Sub
Sub JUNI()
' JUNI Makro
' Juni - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:289").Select
Selection.EntireRow.Hidden = True
Range("B291").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=21
Rows("346:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D296").Select
ActiveWindow.SmallScroll Down:=-12
End Sub
Sub JULI()
' JULI Makro
' Juli - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:346").Select
Selection.EntireRow.Hidden = True
Range("B348").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=18
Rows("403:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D353").Select
End Sub
Sub AUGUST()
' AUGUST Makro
' August - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:403").Select
Selection.EntireRow.Hidden = True
Range("B405").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=21
Rows("460:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D410").Select
End Sub
Sub SEPTEMBER()
' SEPTEMBER Makro
' September - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:460").Select
Selection.EntireRow.Hidden = True
Range("B462").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=21
Rows("517:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D467").Select
End Sub
Sub OKTOBER()
' OKTOBER Makro
' Oktober - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:517").Select
Selection.EntireRow.Hidden = True
Range("B519").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=18
Rows("574:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D524").Select
End Sub
Sub NOVEMBER()
' NOVEMBER Makro
' November - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:574").Select
Selection.EntireRow.Hidden = True
Range("B576").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll Down:=18
Rows("631:686").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-55
Range("D581").Select
End Sub
Sub DEZEMBER()
' DEZEMBER Makro
' Dezember - Rest ausgeblendet
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Rows("5:631").Select
Selection.EntireRow.Hidden = True
Range("B633").Select
ActiveWindow.FreezePanes = True
Range("d638").Select
End Sub
Sub GANZES_JAHR()
' GANZES_JAHR Makro
' Alles einblenden
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Range("B4").Select
ActiveWindow.FreezePanes = True
Range("D11").Select
End Sub
Sub NEUES_JAHR()
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
Cells.Select
Selection.EntireRow.Hidden = False
ActiveWindow.FreezePanes = False
Range("B4").Select
ActiveWindow.FreezePanes = True
Range("D11").Select
End Sub
Wenn ein neues Jahr angelegt wird, werden alle Monate eingeblendet, kopiert, Alte Einträge in den gewissen Bereichen gelöscht.
Und die letzte Ist-Stand vom Dezember 2021 in Jänner 2021 kopiert...
Die starre Tabelle soll einfach ein wenig dynamischer werden...
Vielen Dank für die Hilfe.