Automatisiertes Erstellen von Tabellenblättern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub neues_Tabellenblatt_Monat() Dim jahr As Integer, monat As Integer Dim mAnfang As Variant, mEnde As Variant iJahr = Range("A1") iMonat = Range("A2") mAnfang = DateSerial(iJahr, iMonat, 1) mEnde = DateSerial(iJahr, iMonat + 1, 0) Worksheets.Add after:=ActiveWorkbook.Sheets(Sheets.Count) ActiveSheet.Name = mAnfang & " - " & mEnde End Sub

Bernd,
...so aufspielen musst Du Dich diesbezüglich nicht. Ja, die Fragestellung wurde wieder einmal unglücklich gewählt, und Du hast prinzipiell recht, dass es für alle Helfer (und vermutlich auch zukünftige Hilfe-Suchenden) einfacher ist, wenn Fragen (und Antworten!!!) präzise, verständlich und "auf den Punkt" formuliert werden.
Aber geht's in diesem Forum (in jedem Hilfe-Forum?!) nicht einfach darum anderen zu helfen, womöglich selbst dazuzulernen und womöglich einfach tolle Problemlösungen zu entwickeln?
Du bist selbst auf tollem Excel-Niveau unterwegs, hilfst immer wieder Leuten - das passt doch, oder? Und Du hast Deinen Punkt (sarkastisch) klargemacht, dass die Frage unglücklich formuliert war. Aber andere Helfende deswegen vor den Kopf zu stoßen, finde ich unnötig. Ja, ich glaube auch, dass hier die Lösung eher eine Schleife verlangt - aber hier nehm ich mich selbst an der Nase: habe schon oft genug Dinge in der originalen Frage überlesen oder falsch verstanden; das passiert eben. Ein Forum ist ja deshalb auch ein dialogisches Medium.
Also: Setze Deine Zeit, Deine Erfahrung und Dein Wissen weiterhin (wie bisher) dazu ein Anderen zu helfen und mächtige Lösungen zu produzieren; aber vielleicht tut uns allen (ich schließe mich selbst nicht aus) weniger Sarkasmus ganz gut ;-).
LG
Michael

Sub BlaetterAnlegenNachAnzahlTageInMonat() Dim Wahl As Variant Dim Datum As Date Dim Tage As Integer Dim i As Integer Wahl = InputBox("Gewünschtes Datum eingeben. Tabellenblätter werden" _ & " für die Anzahl an Tagen des Monats angelegt." & vbCrLf & vbCrLf _ & " Wird kein Datum eingegeben, wird aktueller Monat gewählt!", _ "Tabellenblätter nach Tagen anlegen!") Select Case Wahl Case Is = vbCancel Exit Sub Case Is = 0 Datum = Date Case Is = IsDate(Wahl) Datum = Wahl Case Else Datum = Date End Select Tage = DateSerial(Year(Datum), Month(Datum) + 1, 1) - _ DateSerial(Year(Datum), Month(Datum), 1) For i = 1 To Tage Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = Format(DateSerial(Year(Datum), Month(Datum), i), "dd.mm.yyyy") Next End Sub

Hallo Karl!
Um das Makro (bzw. auch die Version von Rudi, die eleganter ausgeführt ist, allerdings etwas anders arbeitet) immer bei der Arbeit in Excel zur Verfügung zu haben, speicherst Du das Makro in Deine persönliche Makroarbeitsmappe
Ich gehe davon aus, dass diese noch nicht existiert. Öffne Excel... Starte den Makro-Rekorder (Makro aufzeichnen)... Wähle aus "Makro speichern in: Persönliche Makroarbeitsmappe"... Wähle [OK]... Beende gleich wieder die Makro-Aufzeichnung [Stopp]
Betätige dann [Alt + F11], das bringt Dich wieder in den VBA-Editor. Im linken Bildbereich solltest Du eine Explorer-Struktur sehen. Erweiterte [Klick auf das +] den Punkt Modul unter VBAProjekt(PERSONAL.XLSB), DoppelKlick auf [Modul 1]... Ersetze dort den Text von

Sub Makro1()... bis End Sub

mit Rudis bzw. meinem Code.
Passt?
LG
Michael

Sub BlaetterRein() Dim i As Long Application.ScreenUpdating = False For i = DateSerial([a1], [b1], 1) To DateSerial([a1], [b1] + 1, 0) Worksheets.Add(after:=Sheets(Sheets.Count)).Name = Format(i, "DD.MM.YYYY") Next i End Sub

Beliebteste Forumthreads (12 Monate)

Automatisiertes Erstellen von Tabellenblättern

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisiertes Erstellen von Tabellenblättern

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread