Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter nach nächstem Monat benennen

Tabellenblätter nach nächstem Monat benennen
22.12.2016 17:21:47
Andreas
Guten Abend,
vermutlich ist das Ganze recht simpel, dennoch komme ich nicht drauf und die Suchfunktion hat mir bisher auch nicht wirklich weitergeholfen.
Ich möchte einfach per Mausklick das aktuelle Tabellenblatt ans Ende kopieren und es soll als Namen den des nächsten Monats haben.
Tabellenblatt 1 heißt "Jan17"
Das nächste soll dann "Feb17" heißen oder wegen mir auch in einem anderen Datumsformat.
Ich komme aber mit den Parametern der DateValue Funktion nicht zurecht
Private Sub CommandButton1_Click()
Dim wsNew As Worksheet
wsNew.Copy after:=Sheets(Sheets.Count)
wsNew.Name = Format(DateValue(.Previous.Name) + 1)
End Sub

Vielen Dank schon einmal

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter nach nächstem Monat benennen
22.12.2016 20:26:23
Dieter
Hallo Andreas,
du könntest das mit dem folgenden Programm machen: 

Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim sh As Object
Dim wsNew As Worksheet
Dim zf As String
zf = Format$(DateAdd("m", 1, Date), "mmmyy")
Set wb = ThisWorkbook
ActiveSheet.Copy After:=wb.Sheets(wb.Sheets.Count)
Set wsNew = ActiveSheet
Application.DisplayAlerts = False
For Each sh In wb.Sheets
If UCase$(sh.Name) = UCase$(zf) Then sh.Delete
Next sh
Application.DisplayAlerts = True
wsNew.Name = zf
End Sub
Viele Grüße
Dieter
AW: Tabellenblätter nach nächstem Monat benennen
23.12.2016 07:59:38
Andreas
Guten Morgen Dieter,
das funktioniert leider nur einmal, bei jedem weiteren Klick kommt "Automatierungsfehler".
Anzeige
AW: Tabellenblätter nach nächstem Monat benennen
23.12.2016 10:41:24
Dieter
Hallo Andreas,
am besten wäre es, wenn du deine Datei hochladen könntest. Daten können verändert und/oder anonymisiert sein.
Viele Grüße
Dieter
AW: Tabellenblätter nach nächstem Monat benennen
23.12.2016 11:38:49
Andreas
Hallo Dieter,
ich kann die Tabelle leider nicht von der Arbeit aus hochladen. Mache ich später.
Ich denke mal das dein Code funktioniert wenn ich ihn im Januar das nächste mal ausführe.
Aber ich würde es gerne unabhängig vom aktuellen Datum machen.
MfG Andreas
AW: Tabellenblätter nach nächstem Monat benennen
23.12.2016 12:44:37
Michael
Hallo!
Ich meine, Du meinst so: https://www.herber.de/bbs/user/110185.xlsm
Passts?
LG
Michael
Anzeige
AW: Tabellenblätter nach nächstem Monat benennen
23.12.2016 18:57:27
Dieter
Hallo Andreas, hallo Michael,
ich war davon ausgegangen, dass sich der CommandButton1 in einer UserForm befindet. Wenn er sich in dem zu kopierenden Blatt befindet, dann funktioniert natürlich bei der zweiten Ausführung das vorsorgliche Löschen nicht, da man ein Blatt nicht entfernen kann, wenn in diesem Blatt ein Button ist, von dem aus das "Blattentfernungsprogramm" gestartet wurde.
Wenn die Ausführung vom aktuellen Datum unabhängig sein soll, dann ist der Code von Michael vorzuziehen. Allerding gibt es dann ein Problem, wenn man zweimal auf den Button eines der bereits mit einem Monatsnamen versehehenen Blätter klickt.
Das lässt sich durch die folgende Ergänzung beheben: 

Private Sub CommandButton1_Click()
Dim sh As Object
Dim Mon$, Jhr$, i&
Jhr = Right(Me.Name, 2)
Select Case Left(Me.Name, 3)
Case Is = "Jan": Mon = "Feb"
Case Is = "Feb": Mon = "Mär"
Case Is = "Mär": Mon = "Apr"
Case Is = "Apr": Mon = "Mai"
Case Is = "Mai": Mon = "Jun"
Case Is = "Jun": Mon = "Jul"
Case Is = "Jul": Mon = "Aug"
Case Is = "Aug": Mon = "Sep"
Case Is = "Sep": Mon = "Okt"
Case Is = "Okt": Mon = "Nov"
Case Is = "Nov": Mon = "Dez"
Case Is = "Dez": Mon = "Jan": Jhr = Jhr + 1
End Select
' Falls das gewünschte Blatt schon existiert, wird es nur aktiviert
For Each sh In ThisWorkbook.Sheets
If UCase$(sh.Name) = UCase$(Mon & Jhr) Then
sh.Activate
Exit Sub
End If
Next sh
Me.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ActiveSheet.Name = Mon & Jhr
End Sub
Viele Grüße an euch beide
Dieter
Anzeige

304 Forumthreads zu ähnlichen Themen

VBA umbenennen eines Tabellenblattes
Jean

Hallo,
wie lässt sich denn per VBA mit Hilfe einer Inputbox der bisherige Tabellenname Tabelle1
a. in der Mappe mit dem Makro umbenennen
b. der Tabellenname einer anderen Mappe (zb. Kunden.XLS in D:\) umbenennen?
Gruß
Jean
21.11.2009 08:42:48
Thread-ID: 1119008
10 Beiträge
Anzeige
kopieren eines großen Tabellenblatts nicht möglich
Bibabutzel

Hallo zusammen,
der nette Sepp (Josef Ehrensberger) aus diesem Forum hat mir ein Makro geschrieben, das nach Erfüllung verschiedener Bedingungen mehrere neue Tabellenblätter erzeugt, indem ein "Vorlage-Tabellenblatt" kopiert wird. Das Makro funktioniert tadellos - allerdings nur, wenn das "...
15.01.2010 23:04:46
Thread-ID: 1130392
8 Beiträge
In VBA Editor Tabellen umbenennen
Heinz

Guten morgen im Forum
Wenn ich den VBA Editor öffne sehe ich:
Tabelle 1 ("Jänner") Tabelle 2 ("Februar") usw..
Meine Frage: Hat das umbenennen von Tabelle 1 in "Jänner" irgend eine Auswirkung auf VBA Codes usw..?
Gruß
Heinz
30.11.2012 09:38:50
Thread-ID: 1288676
3 Beiträge
Anzeige
Datei kopieren und nach Zelle benennen
Lisa

Hallo zusammen.
ich würde gerne Datei "X" von \OrdnerA\ nach \OrdnerB\ kopieren.
In Zelle A1 vom Blatt1 steht das morgige Datum.
Die kopierte Datei soll nun nach A1 in Blatt1 benannt werden, sprich in etwa so:
"TTT_MM_JJ_X"
Ich habe bereits versucht eine neue Datei in \Ordne...
27.11.2014 15:36:42
Thread-ID: 1394972
10 Beiträge
Tabellenblätter automatisch nach Zellen benennen
Fabian

Hallo
ich brauche für meine Excel-Tabelle ein Makro, das automatisch den Namen mehrerer Tabellenblätter ändert, sobald ich den Wert einer Zelle ändere.
In der Tabelle 1 trägt man ein Jahr ein, das in den einzelnen Blättern (5-16) für die Monate (August - Juli) von einem Datum in einen T...
16.04.2015 11:40:20
Thread-ID: 1421170
2 Beiträge
Eingabe in Tabellenblatt nicht möglich
Martin

Hallo Lieber Forummitglieder,
ich habe folgendes Problem. Ich habe eine Abfragetabelle in Excel erstellt bei der man in bestimmten Zellen Werten eingeben muss.
Bspw. Blechstärke = 2,0mm
Ich hab zudem noch einige Steuerelemente in dieser Datei. Problem machen mir dabei die Auswahlst...
28.09.2015 12:49:53
Thread-ID: 1449739
9 Beiträge
VBA Tabellenblätter umbenennen
Georg

Folgenden Code kann man doch sicherlich vereinfachen, kriegs aber nicht richtig hin.
Versuch war schon mit i = 3 to x, aber wie dann die C8,9 etc unterkriegen?
DANKE Sub RegRename() ThisWorkbook.Activate Sheets(3).Select Sheets(3).Name = Sheets(1).Range("C8") Sheets(4).Select Sheets(4...
25.01.2017 10:29:24
Thread-ID: 1537235
4 Beiträge
Tabellenblätter über Liste umbenennen VBA
Kisska

Schönen Abend,
ich habe sehr viele Tabellenblätter, deren Namen ergänzt oder geändert werden sollten.
Ist es möglich, mittels VBA zunächst eine Liste zu erzeugen, die alle Tabellenblätter auflistet, und dann die manuell korrigierte Liste quasi zurückspielt?
Beispiel: 3 Tabellenblätt...
25.05.2017 00:33:25
Thread-ID: 1560330
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
5
7
2
23
9
1
8
3
7
1
13
3
5
1
5
1
2
1
8
2
5
5
3
1