Supportnet / Forum / Tabellenkalkulation
Arbeitsblätter ausfüllen für das ganze Jahr
Frage
Meine Arbeitstage wiederholen sich nach 16 Tagen, d.h am 17 Tag beginne ich von vorne. Wie kann ich meine Eintragungen 1-16 auf das ganze Jahr übernehmen (jeder Monat hat ein Arbeitsblatt, also 12 Arbeitsblätter)
Gibt es eine Formel der ich sagen kann: die Eintragungen in den ersten 16 Tagen für die nächsten 360 Tage wiederholen. (geht das übergreifend von den einzelnen Arbeitsblättern Jan., Feb., u.s.w. bis Dezember, oder ist das zuviel verlangt?)
Gruß Gabi
Antwort 1 von nok106
Hallo Gabi,
ich habe ein ähnliches Problem mit folgendem Makro gelöst.
Rem Folgendes Makro erstellt automatisch 12 neue Tabellenblätter.
Rem Auf allen hinzugefügten Tabellenblätter wird derselbe Inhalt von der Tabelle1 stehen.
Sub Tabellen_einfügen_kopieren()
Dim i As Integer
For i = 1 To 12
Sheets(1).Copy After:=Sheets(Sheets.Count)
Next i
For i = 1 To 12
Sheets(i + 1).Name = Format("1." & i & ".2007", "mmmm")
Next i
End Sub
Gruß Odje K.
ich habe ein ähnliches Problem mit folgendem Makro gelöst.
Rem Folgendes Makro erstellt automatisch 12 neue Tabellenblätter.
Rem Auf allen hinzugefügten Tabellenblätter wird derselbe Inhalt von der Tabelle1 stehen.
Sub Tabellen_einfügen_kopieren()
Dim i As Integer
For i = 1 To 12
Sheets(1).Copy After:=Sheets(Sheets.Count)
Next i
For i = 1 To 12
Sheets(i + 1).Name = Format("1." & i & ".2007", "mmmm")
Next i
End Sub
Gruß Odje K.