Danke erst mal an dieser Stelle Bernd Held für die letzte Lösung.
Komme aber irgendwie nicht weiter. Darum diese neue Anfrage.
Im folgenden der Code für die Monatblätter und in diese erstellten soll gleich ein Makro/VBA eingebunden sein das meine Eintragungen in Blatt 1 erste Spalte gleich in alle anderen Blätter übernommen werden (selbe spalte).
Das ist der Code für die Monatsblätter:
For Mon = 1 To 12
Monat = DateSerial(Jahr, Mon, 1)
Sheets.Add before:=Worksheets(Mon)
ActiveSheet.Name = Format(Monat, "mmm.yyyy")
[A1] = Format(Monat, "mmmm_yyyy")
[A2] = "Name, Vorname"
Columns(1).ColumnWidth = 13.86
Aber irgendwie find ich keinen Lösungsansatz, das ist das Makro
für die auswahl:
Sub Datenübertragung_Blätter()
Sheets(Array("Jan.2003", "Feb.2003", "Mrz.2003", "Apr.2003", "Mai.2003", "Jun.2003", _
"Jul.2003", "Aug.2003", "Sep.2003", "Okt.2003", "Nov.2003", "Dez.2003")).Select
Sheets("Dez.2003").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-3
Range("A5").Select
End Sub
und ich will die in "" stehenden Sachen ja gleich so ausführen
hab es mit select all versucht aber das funktioniert nicht.
Ich hab es noch mal so versucht aber leider kein erfolg:
Sub Datenübertragung_Blätter()
Sheets("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12").Select
Sheets("Sheet12").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-3
Range("A5").Select
End Sub
vielleicht hat jemand eine Idee
Danke endrik