Office: Excel VBA neues Tabellenblatt erstellen fortlaufend

User · 7. März 2017

Liebe Alle!

Ich hab folgende Aufgabenstellung:

Mittels Makro und Button soll folgendes passieren.

Der Name des neuen Tabellenblattes soll immer D_Datum heißen, also zum Beispiel D_18.02.2015.
Gibt es das Tabellenblatt schon, soll ein weiteres angelegt werden mit dem Namen D_Datum-n, wobei n eine fortlaufende Nummer von 1 beginnend darstellt, also zum Beispiel D_18.02.2015-1.

Hab auch schon einen Code gebastelt, nur leider bin ich dann darauf gekommen das es damit nicht funktioniert.

Sub newWS()

Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
'count_sheets = ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets.Count = 3 Then
With wsNew
.Name = "D_" & Format(Now, "dd.mm.yyyy")
.Move after:=Sheets(Sheets.Count)
End With
Else
With wsNew
.Name = "D_" & Format(Now, "dd.mm.yyyy") & "(" & ActiveWorkbook.Sheets.Count - 3 & ")"
.Move after:=Sheets(Sheets.Count)
End With
End If

Set wsNew = Nothing

End Sub

Die Datei hat bereits zwei Tabellenblätter darum hab ich mit dem -3 gearbeitet. Leider ist das aber völliger Unsinn, da es unendlich weiterzählt auch wenn ein neuer Tag angefangen hat.

Wäre super, wenn mir jemand helfen kann.

Vielen Dank an Alle im Voraus!

:)

RPP63 · 8. März 2017

Moin!
Auch wenn ich viele Blätter pro Tag als eher unglückliche Mappenstruktur empfinde …
(gleiche Daten sollten zur besseren Auswertung in einem Blatt stehen)

Modul Modul1

Option Explicit

Sub RPP()
Dim n#
With Worksheets.Add(after:=Sheets(Sheets.Count))
For n = 0 To 255
On Error Resume Next
If n = 0 Then
.Name = "D_" & Format(Now, "dd.mm.yyyy")
Else
.Name = "D_" & Format(Now, "dd.mm.yyyy") & "-" & n
End If
If Err.Number = 0 Then Exit For
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

aloys78 · 8. März 2017

Hallo Martin,

mein Vorschlag:
Code:

Option Explicit

Sub newWS()
Dim wsNew As Worksheet
Dim sName As String
Dim wsNew_Name As String
Dim n As Long
n = 0
sName = "D_" & Format(Now, "dd.mm.yyyy")

ThisWorkbook.Worksheets.Add.Move after:=Worksheets(Worksheets.Count)

Do
wsNew_Name = sName & IIf(n = 0, "", "-" & n)
On Error Resume Next
ActiveSheet.Name = wsNew_Name
If Err.Number 0 Then
n = n + 1
Else
Exit Do
End If
Loop
On Error GoTo 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

User · 9. März 2017

Hallo Ralf, Hallo Aloys!

Ich danke euch! Beide Code sind super und genau das was ich brauche. *Smilie

Jetzt hab ich noch ein Problem. Ich muss in dieses neue Blatt gleichzeitig etwas hineinkopieren.

Wollte diesen Code am Ende der Schleife einfügen, aber leider funktioniert er nicht.

Worksheets("Analysis").Range("A7 : H20").Copy Destination:=wsNew.Range("A1")

RPP63 · 9. März 2017

Mahlzeit!
Im Gegensatz zu Aloys und Dir bin ich kein Freund von unnötigen Variablen (siehe meinen Code).
Anyway:
In beiden Codes ist das neue Blatt das aktive.
Insofern reicht:
Code:

Worksheets("Analysis").Range("A7 : H20").Copy ActiveSheet.Cells(1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Office: Excel VBA neues Tabellenblatt erstellen fortlaufend

Excel VBA neues Tabellenblatt erstellen fortlaufend

Excel VBA neues Tabellenblatt erstellen fortlaufend

Excel VBA neues Tabellenblatt erstellen fortlaufend

Excel VBA neues Tabellenblatt erstellen fortlaufend - Similar Threads - Excel VBA Tabellenblatt

Tabellenblätter aus Vorlagen-Tabellenblatt generieren mit dynamischen Anpassungen durch Vorgaben

VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen

Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

Excel VBA: Zugriff auf anderes Tabellenblatt nicht möglich

Excel Makro - Export zweier Tabellenblätter in separate Datei

Excel Steuerelement und VBA-Code für Auswahl zum Druck mehrerer Tabellenblätter

Bestimmte Zeilen Ausschneiden und in anderes Tabellenblatt einfügen