Hallo gspuli,

ja, die Anzahl der Tabellenblätter ist kein Problem. Auch Dein 2. Wunsch (ein Übersichtsblatt mit Verlinkung auf 365 Blätter) funktioniert.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

und wie geht das
ohne hunderte tabellenblätter einfügen und links einfügen

mit der bitte um antwort


lg
gspuli

Hallo ,

das geht z.B. mit nachfolgendem Makro.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche

[b]Option Explicit

Sub Tage_anlegen()
Dim iSheet As Integer
Dim Datum As Date
Dim firstRow As Integer
Datum = CDate("01.01.2007")
With Worksheets.Add
.Name = "Übersicht"
End With
Application.ScreenUpdating = False
For iSheet = 1 To 365
With Worksheets.Add
.Name = Datum
End With
firstRow = Sheets("Übersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
With Sheets("Übersicht").Cells(firstRow, 1)
.FormulaR1C1 = Datum
.Hyperlinks.Add Anchor:=Sheets("Übersicht").Cells(firstRow, 1), Address:="", SubAddress:= _
                        Datum & "!A1"
End With
Datum = Datum + 1
Application.StatusBar = iSheet & " Tage von 365 bereits angelegt"
Next
Sheets("Übersicht").Activate
Application.StatusBar = ""
End Sub
[/b]

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

danke funktioniert super

echt super

danke nochmals

lg
gspuli

hi


nochmals eine Frage?

gibts die Möglichkeit den Tabellenblätter auch
z. B. Dienstag 01.01.2008
Mittwoch 02.01.2008

usw in diesem Format einzufügen

bzw.kann ich meine Vorlage (EXEL mit einem Makro in
alle 365 Tage einfügen?)

lg
Gspuli

Hallo Gspuli,

nicht ganz verständlich, was Du meinst. Wenn es Dir nur darum geht, dass bei den Blattnamen auch noch der Tag steht, verwende nachfolgendes Makro. Das was sich zu dem Makro in AW3 geändert hat, habe ich unterstrichen.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche

[b]Option Explicit

Sub Tage_anlegen()
Dim iSheet As Integer
Dim Datum As Date
Dim firstRow As Integer
Datum = CDate("01.01.2007")
With Worksheets.Add
.Name = "Übersicht"
End With
Application.ScreenUpdating = False
For iSheet = 1 To 365
With Worksheets.Add
.Name = [u]Format([/u]Datum[u], "dddd dd.mm.yyyy")[/u]End With
firstRow = Sheets("Übersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
With Sheets("Übersicht").Cells(firstRow, 1)
.FormulaR1C1 = [u]Format([/u]Datum[u], "dddd dd.mm.yyyy")[/u].Hyperlinks.Add Anchor:=Sheets("Übersicht").Cells(firstRow, 1), Address:="", SubAddress:= _
Datum & "!A1"
End With
Datum = Datum + 1
Application.StatusBar = iSheet & " Tage von 365 bereits angelegt"
Next
Sheets("Übersicht").Activate
Application.StatusBar = ""
End Sub[/b]

Solltest Du etwas anderes meinen, so schildere etwas verständlicher, was Du haben möchtest.

Bitte nicht wundern, wenn ich erst heute abend reagiere, aber ich bin fast den ganzen Tag bei Besprechungen. Sollte ich dazwischen die Zeit finden, werde ich versuchen zu antworten.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Erstmals danke das du dir die zeit nimmst für mein Problem

wie du schon gemerkt hast bin ich nur excel anwender

Das Makro in Antwort 6 funktioniert leider nicht
Fehler beim kompillieren wird angezeigt beim ausführen

Meine Wünsche aus Antwort 3 sind erfüllt bis aus

KANN ICH MEINE EXCEL VORLAGE DIE BEI JEDEM TAG
GLEICH IST IN ALLE TABELLENBLÄTTER AUF EINMAL EINFÜGEN
BZW. KANN MANN DIE TAGE 01012008 -31122008von
LINKS NACH RECHTS SORTIEREN

WENN DU ZEIT FINDEST WÄRE SUPER
DANKE IM VORRAUS

LG
Gspuli

Hallo Gspuli,

wenn Du schreist ( das schreien interpretiere ich, weil Du alles groß schreibst und im Netzt bedeutet alles in groß geschrieben nun mal schreien) wird das was Du möchtest auch nicht klarer.

1. Fehler beim Kompilieren. Wenn dieser Fehler erscheint und Du auf den Button "Debuggen" drückst, welche Zeile wird Dir gelb markiert?

2. Was Du da alles in Groß geschreiben hast, verstehe ich nicht, wahrscheinlich weil ich taub geworden bin bei der Schreierei. ;-)
Was willst Du in welche Tabellenblätter einfügen?

3. Mit nachfolgendem Makro werden Dir die Tage sortiert, bzw. in der von Dir angegebenen Reihenfolge erstellt. Es werden keine Tagesnamen aufgeführt, da Du ja geschrieben hast, dass das Makro aus AW3 so funktioniert, wie Du es möchtest.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche

[b]Option Explicit

Sub Tage_anlegen()
Dim iSheet As Integer
Dim Datum As Date
Dim firstRow As Integer
Datum = CDate("01.01.2007")
With Worksheets.Add
.Move After:=Sheets(Worksheets.Count)
.Name = "Übersicht"
End With
Application.ScreenUpdating = False
For iSheet = 1 To 365
With Worksheets.Add
.Move After:=Sheets(Worksheets.Count)
.Name = Datum
End With
firstRow = Sheets("Übersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
With Sheets("Übersicht").Cells(firstRow, 1)
.FormulaR1C1 = Datum
.Hyperlinks.Add Anchor:=Sheets("Übersicht").Cells(firstRow, 1), Address:="", SubAddress:= _
Datum & "!A1"
End With
Datum = Datum + 1
Application.StatusBar = iSheet & " Tage von 365 bereits angelegt"
Next
Sheets("Übersicht").Activate
Application.StatusBar = ""
End Sub
[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi

danke für deine bemühungen

das mit schreien habe ich nicht gewusst und war auch nicht
meine absicht (bin froh das jemand sich zeit nimmt)

beim ausführen wird die 1. Zeile gelb markiert
Sub Tage_anlegen()

das 2. problem ist folgendes:ich habe eine exel vorlage
(Tabelle) die in alle tage des jahres kopiert werden muss

nochmals entschuldigung für das "schreien" war
keine absicht

lg
gspuli

Moin,

ich dachte immer, die Anzahl der Tabellenblätter in einer Mappe wäre auf 256 begrenzt?
Hab ich was verpasst?

Gruß Errol

Hallo Errol,

die Anzahl der Arbeitsblätter in einer Arbeitsmappe wird nur durch den verfügbaren Speicher in Deinem System begrenzt.

Gruß
Rainer

Hallo gspuli,

muss die Vorlage in die Blätter kopiert werden oder kann auch nur das Vorlagenblatt 365x kopiert werden? Wenn ja, wie ist der Name des Vorlagenblatts?

Warum das Makro bei Dir nicht funktioniert ist mir im Moment noch ein Rätsel, denn bei mir funktionieren alle hier geposteten Makros. Wo hast Du das denn hin kopiert? Gibt es noch ein weiteres Makro mit gleichem Namen?
Ansonsten müsste man Deine Datei mal vor sich haben um sich das mal anzusehen.

@Errol: Mit den Blättern verhält es sich, wie Rainer es geschrieben hat. Was bis Excel 2003 auf 256 begrenzt war, waren die Spalten. Ab Excel 2007 ist dass aber auch nicht mehr so.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi

in jedem tag sollte ein vorlageblatt eingefügt werden

Name: terminplanner2008.xls

das letzte marko funktioniert bei mir auch nur das eine
wo der Name vor dem Datum steht funktioniert nicht


lg

gspuli

Hallo gspuli,

wie heißt das Vorlagenblatt? Ich benötge nicht den Namen der Datei, sondern den Namen des Vorlagenblattes. Denn das Blatt wird sich doch in der gleichen Datei befinden, in dem auch das Makro zum Erstellen der 365 Tagesblätter ausgeführt wird?

Verstehe ich das richtig, das Makro aus AW 3 & 8 funktioniert, nur das aus AW6 nicht? Warum schreibst Du das nirgends, dass der Fehler noch mit dem Makro aus AW8 zu tun hat. Du hast doch hoffentlich nicht beide Makros irgendwie zusammen kopiert oder so?

Wäre schön, wenn Du Dich etwas klarer ausdrücken könntest, damit man's versteht.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi

das vorlageblatt heißt INDEX

und es funktionieren wirklich alle markos nur das aus AW 6
mit den Tagesnamen vor dem Datum nicht

lg
gspuli

Hallo,

nachfolgendes Makro sollte funktionieren. Jedenfalls bei Mir. Mit dem Makro wird das Blatt "Index" 365x kopiert und als Blattnamen wird wie gewünscht das Datum mit Tagesnamen verwendet.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche

[b]Option Explicit

Sub Tage_anlegen()
Dim iSheet As Integer
Dim Datum As Date
Dim firstRow As Integer
Datum = CDate("01.01.2007")
With Worksheets.Add
.Move After:=Sheets(Worksheets.Count)
.Name = "Übersicht"
End With
Application.ScreenUpdating = False
For iSheet = 1 To 365
Sheets("INDEX").Copy After:=Sheets(Worksheets.Count)
With Sheets(Worksheets.Count)
.Name = Format(Datum, "dddd dd.mm.yyyy")
End With
firstRow = Sheets("Übersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
With Sheets("Übersicht").Cells(firstRow, 1)
.FormulaR1C1 = Format(Datum, "dddd dd.mm.yyyy")
.Hyperlinks.Add Anchor:=Sheets("Übersicht").Cells(firstRow, 1), Address:="", SubAddress:= _
Datum & "!A1"
End With
Datum = Datum + 1
Application.StatusBar = iSheet & " Tage von 365 bereits angelegt"
Next
Sheets("Übersicht").Activate
Application.StatusBar = ""
End Sub[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

jetzt funkt alles super

danke

lg
gspuli