Office: (Office 2007) Automatisch neues Tabellenblatt erstellen

chris-kaiser · 7. August 2014

Hallo Stefan,

Punkt 2 würde ja schon passen.
Nach der Zeile mit Copy

Code:

'...........................................
Tabelle1.Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Shapes(1).Delete
.UsedRange.Value = .UsedRange.Value
End With
'....................................
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn sonst kein Shape (Zeichen Objekt) mehr am Blatt ist reicht
.Shapes(1).Delete

.UsedRange.Value = .UsedRange.Value
ersetzt dir Formeln durch Werte
den Rest vom Code habe ich jetzt nicht mehr getestet.

Möglicherweise würde dies hier auch schon reichen.

Code:

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Tabelle1.Copy After:=Sheets(Sheets.Count)
Set sh = ActiveSheet
With sh
.Shapes(1).Delete
.UsedRange.Value = .UsedRange.Value
On Error Resume Next
.Name = Format(Date, "dd.mm.yy")
Do
If Err.Number 0 Then
MsgBox " der Blattname ist schnon vorhanden oder ungültig"
Err.Number = 0
.Name = InputBox("Bitte geben Sie für das Blatt einen Namen ein", "", Format(Date + 1, "dd.mm.yy"))
End If
Loop While Err.Number 0
On Error GoTo 0
Tabelle1.Range("B4:C6").ClearContents
Set sh = Nothing
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

statt dem gesamten anderen Code

stefan33 · 8. August 2014

Danke Chris!
Hat mir sehr weitergeholfen *Smilie Ich habe es bis jetzt mit deiner ersten Version probiert (funktioniert), den neuen Code habe ich noch nicht getestet, mache ich gleich.

stefan33 · 23. September 2014

Hey Chris, *Smilie

nach längerer Zeit hat sich ein Problem rausgestellt, welches ich bis jetzt nicht lösen konnte:
Und zwar soll nicht das aktuelle Datum [ Format(Date, "mm.yyyy") ] genommen werden (funktioniert perfekt), sondern das Datum aus Zelle B61 (z.B. 07.2014).
Leider funktioniert der Code dann nicht mehr einwandfrei.
Meine Vermutung ist, das die Überprüfung der Korrektheit der Eingaben nicht mehr funktioniert, da das Programm nie bis zum "Else" bzw. "errmsg:" - Abschnitt kommt. Die Ausgabe der Fehlermeldung funktioniert nicht mehr (wenn ein Datum schon vorhanden ist), stattdessen gibt es immer Laufzeitfehler und das Tabellenblatt wird kopiert, obwohl kommen müsste "ungültiger Blattname, Tabelle wird gelöscht"

Freue mich auf Deine Hilfe *Smilie

Beste Grüße Stefan

stefan33 · 25. September 2014

Jemand eine Idee? Würde mich freuen *Smilie Liegt bestimmt nur an einer Zeile, finde nur leider nicht den Fehler.

hary · 25. September 2014

Moin
Steht da in der Zelle 07.2014 als Wert drin oder Bsp. 1.7.14 formartiert als 07.2014
versuch:
If Sheets(i).Name = Range("B61").Text
gruss hary

stefan33 · 25. September 2014

Moin Hary,

danke für deine Hilfe! Es handelt sich um ein Textfeld. Ich habe den Code an den drei vorkommenden Stellen angepasst. Das Problem bleibt leider bestehen. Sobald ich im Dialogfeld auf "Abbrechen" klicke, wird ein neues Tabellenblatt erstellt, wobei Excel dies in diesem Fall gar nichts machen sollte.
Wenn der Code in dem Tabellenblatt "Vorlage" eingebaut ist, dann erstellt Excel bei der Betätigung der Schaltfläche "Abbrechen" das Tabellenblatt "Vorlage(2)", wenn ich erneut "Abbrechen" (nach neuer Datumseingabe im Feld B4) drücke "Vorlage(3)" usw...
Normal sollte bei "Abbrechen" gar nichts passieren. Bei der Betätigung der Schaltfläche "Ok" funktioniert alles perfekt und Excel erstellt z.B. bei der Eingabe von "01.2017" ein neues Tabellenblatt mit den Namen "01.2017".

Ich lade ein vereinfachtes Beispiel mit hoch, wo der Fehler schneller deutlich wird. Im Beispiel habe ich B61 durch B4 ersetzt. Wenn man auf "Kopieren klickt" und dann auf "Abbrechen", dann kommt der Fehler. Über deine Hilfe freue ich mich.

Beste Grüße Stefan

chris-kaiser · 25. September 2014

Hallo Stefan,

sry, bin fast nie am PC.... diese Woche zumindest...

Code:

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Set sh = ActiveSheet
On Error Resume Next
sh.Name = [b4]
Do While Err.Number 0
Err.Number = 0
sh.Name = InputBox("Bitte geben Sie für das Blatt einen Namen ein")
If Err.Number 0 Then MsgBox " der eingegebene Name ist ungültig"
Loop
sh.Shapes(1).Delete
Set sh = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das müsste doch reichen oder?
du hast auch kein Datum mehr in B4 stehen, der vorige Code geht dann natürlich nicht.

hmm, ok bei falschem Namen abbrechen
Code:

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Set sh = ActiveSheet
Application.DisplayAlerts = False
On Error Resume Next
sh.Name = [b4]
Do While Err.Number 0
Err.Number = 0
sh.Name = InputBox("Bitte geben Sie für das Blatt einen Namen ein")
If Err.Number 0 Then MsgBox " der eingegebene Name ist ungültig": sh.Delete: Exit Sub
Loop
sh.Shapes(1).Delete
Set sh = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stefan33 · 25. September 2014

Hey Chris, schön das du mir trotzdem hilfst!

Dein zweiter Code ist top, funktioniert perfekt. Nur noch eine Frage:
Wie baue ich die Funktion wieder ein (wie bei der alten Version), sodass die erstellten Tabellenblätter automatisch nach dem Datum (Tabellenblattname) sortiert werden?
Wie kann ich einstellen, das die erstellen Tabellenblätter erst ab Tabellenblatt 3 eingefügt werden, wenn das erste Tabellenblatt die Vorlage und das zweite Tabellenblatt ein "Hinweisblatt" ist? Ich hatte es zuvor mit Sheets("Hinweis").Move After:=Sheets(1) gelöst. Ist das eine Ideale Lösung?

Viele Grüße und noch einen schönen Nachmittag

stefan33 · 25. September 2014

Guten Morgen,

ich habe noch eine Datumsüberprüfung eingebaut, d.h. über die Eingabe im Datumsformat ist.
Wen es interessiert:

PHP:

If Not IsDate(sh.Name) Then MsgBox "Kein Datum": sh.Delete: Exit Sub End If

stefan33 · 1. Oktober 2014

Hey,
das Problem besteht leider immer noch. Eine Idee?

Der Code von chris-kaiser:
Code:

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Set sh = ActiveSheet
Application.DisplayAlerts = False
On Error Resume Next
sh.Name = [b4]
Do While Err.Number 0
Err.Number = 0
sh.Name = InputBox("Bitte geben Sie für das Blatt einen Namen ein")
If Err.Number 0 Then MsgBox " der eingegebene Name ist ungültig": sh.Delete: Exit Sub
Loop
sh.Shapes(1).Delete
Set sh = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Problem: Erweitern um eine automatische Sortierung, sobald ein Tabellenblatt erstellt wird. (ältestes Datum [Tabellenblattname] zuerst, usw.)

Euch noch einen schönen Mittwoch.
Beste Grüße

chris-kaiser · 1. Oktober 2014

Hallo Stefan,

du hast in meinem Beitrag was überlesen.

du hast auch kein Datum mehr in B4 stehen, der vorige Code geht dann natürlich nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hänge doch bitte eine Kopie der Mappe an.
ohne Inhalt!
Mir würde es reichen, wenn du ein paar Tabellen in der Mappe hast und ich dessen Bezeichnungen sehen könnte. In der Mappe sollten nur alle Möglichkeiten der Beschriftung ersichtlich sein, inklusive deiner zwei Blätter die nicht sortiert werden sollten.

Office: (Office 2007) Automatisch neues Tabellenblatt erstellen

Automatisch neues Tabellenblatt erstellen

Automatisch neues Tabellenblatt erstellen

Automatisch neues Tabellenblatt erstellen

Automatisch neues Tabellenblatt erstellen

Automatisch neues Tabellenblatt erstellen - Similar Threads - Automatisch Tabellenblatt erstellen

Automatisches Kopieren aus Tabelle in anderes Tabellenblatt

Verknüpfung mit verschiedenen Tabellenblättern automatisch herstellen

Hyperlink VBA / Automatische Ergänzung

Tabellenblätter automatisch erstellen und ausfüllen

Tabelle soll autom. um Inhalte aus anderem Tabellenblatt erweitert werden

Automatisch zusätzliche Zeilen in einem anderen Tabellenblatt erstellen

Automatisches erstellen neuer Tabellenblätter