Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisiertes Erstellen von Tabellenblättern

Forumthread: Automatisiertes Erstellen von Tabellenblättern

Automatisiertes Erstellen von Tabellenblättern
16.07.2015 10:41:30
Tabellenblättern
Hallo zusammen,
weiß jemand ob man in einer neuen Arbeitsmappe Tabellenblätter automatisch Anlegen und mit Tabellenblatt-Namen versehen kann.
z.B. für August 2015 je Datum (01.08.2015-31.08.2015) 1 Tabellenblatt
Vielen Dank vorab.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ja, weiß ich, es geht owT
16.07.2015 10:59:32
Bernd

AW: Automatisiertes Erstellen von Tabellenblättern
16.07.2015 11:14:12
Tabellenblättern
Voraussetzung:
in A1 steht die gewünschte Jahreszahl
in A2 steht der gewünschte Monat (als Zahl)
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

Anzeige
AW: @Klexky
16.07.2015 11:21:05
Bernd
Hi Klexy,
warum postest Du eine Lösung, welche überdies sicher nicht die richtige ist, wo die Frage nur lautete:
"weiß jemand ob..."
Warum ist Deine Lösung vermutlich falsch?
Er/Sie schrieb:
"für August 2015 je Datum (01.08.2015-31.08.2015) 1 Tabellenblatt"
d.h. für mich, je Tag ein Tabellenblatt (steht ja je Datum)
mfg Bernd

Anzeige
AW: Komm schon...
16.07.2015 11:33:25
Michael
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

Anzeige
AW: Komm schon...
16.07.2015 19:22:52
Bernd
Hallo Michael!
Danke für Deine Rüge, werde sie annehmen. Aber aufgrund der Fragestellung, und des angegebenen Excel Level des Beitragerstellers als "Profi", konnte ich mir meinen Beitrag eben nicht verkneifen.
Sollte ursprünglich nur der Erheiterung dienen, da auch ich eine Lösung Präsentieren hätte können.
Aber dank Dir, Klexy sowie Rudi hat er auch so die Lösung gefunden.
Dann wünsche ich weiterhin frohes schaffen und alles Gute weiterhin,
mfg Bernd

Anzeige
AW: Schon klar, alles gut...
17.07.2015 09:12:08
Michael
Hallo Bernd,
...ist mir schon klar, dass man sich (ich genauso wenig) oft gewisse Äußerungen nicht verkneifen kann.
Aber wir sind ja im Forum um uns weiterzuentwickeln - ob jetzt fachlich in Excel oder in unserer gemeinsamen Kommunikation; daher mein Beitrag - eine strenge Rüge soll's nicht sein ;-).
Schönes Wochenende und liebe Grüße
Michael

Anzeige
AW: @Klexky
16.07.2015 14:35:46
Klexy
Du hast schon irgendwie recht, aber selbst wenn ich es falsch verstanden haben sollte, ist dies der richtige Weg. Eine Angleichung auf 1 Blatt pro Tag ist nur noch Fleißarbeit.

AW: @Klexky
16.07.2015 19:26:38
Bernd
Hi Klexy!
so wie Michel vermutete, war es eben ein wenig sarkastisch von mir, tut Leid.
Bin selber über jede Hilfe hier immer sehr Dankbar und habe stets eine Lösung, Dank Euch allen, erhalten.
Also Sorry für meinen Beitrag an Dich, Du wolltest nur helfen so wie ich immer wobei auch ich, nicht immer am richtigen Weg war.
mfg Bernd

Anzeige
AW: Automatisiertes Erstellen von Tabellenblättern
16.07.2015 11:37:01
Tabellenblättern
Hallo Karl!
Hier meine Version (Makro muss in ein allgemeines Modul: in Excel [Alt + F11], es öffnet sich der VBA-Editor, Einfügen, Modul, den u.a. Code hineinkopieren - kannst Du dann über Makros aufrufen):
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
Passt?
LG
Michael

Anzeige
AW: Erratum...
16.07.2015 11:41:24
Michael
Hallo,
...habe etwas in meinem o.a. Code übersehen.
[vbCancel] muss mit [""] getauscht werden, sonst funktioniert der Abbruch nicht korrekt.
Sorry.
Lg
Michael

AW: Erratum...
16.07.2015 14:42:21
Karl
Danke für die Antwort.
Klappt Super. Habe jetzt nur noch ein Problem: Da ich mich mit VBA nicht auskenne, wie kann das ganze so speichern das ich es für neu zu erstellende Arbeitsmappen auch nutzen kann?

Anzeige
AW: Persönliche Makro-Arbeitsmappe
16.07.2015 16:34:49
Michael
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

Anzeige
AW: Automatisiertes Erstellen von Tabellenblättern
16.07.2015 11:44:05
Tabellenblättern
Hallo,
Jahr in A1; Monat in B1: 
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

Gruß
Rudi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige