Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1252to1256
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
Tabellennamen aus Zelle im Format MMMM
Lisa
Hallo zusammen,
ich stehe auf dem Schlauch und komme wohl ohne Eure Hilfe nicht weiter!
Hier mein Ansatz,
mittels meines Makros füge ich neben meinem aktuellen Blatt ein neues Blatt ein!
Dieses bezieht den Namen aus R3. In R3 steht der aktuelle Monat!
Hier mein Problem,
Nun möchte ich gern das das neue Blatt nicht den Namen des aktuellen Monats bekommt sondern den nächstfolgenden
Blatt heißt also März wie auch die Zelle(R3), neues Blatt soll April heißen, wie auch (R3) im neuen Blatt!
Das ist mein Ansatz:
Private Sub CommandButton1_Click()
ActiveSheet.Copy after:=ActiveWorkbook.ActiveSheet
ActiveWorkbook.Sheets(2).Name = Range("R3").Value
With ActiveSheet.Range("R3")
.Value = Date
.NumberFormat = ("MMMM")
End With
End Sub

Kann mir hierbei jemand helfen?
vielen Dank im voraus!
LG Lisa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellennamen aus Zelle im Format MMMM
15.03.2012 13:28:43
ChrisL
Hi Lisa
Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim datMonat As Date
datMonat = ActiveSheet.Range("R3")
datMonat = DateSerial(Year(datMonat), Month(datMonat) + 1, Day(datMonat))
ActiveSheet.Copy after:=ActiveWorkbook.ActiveSheet
With ActiveSheet
.Name = Format(datMonat, "MMMM")
.Range("R3") = datMonat
End With
End Sub

Gruss
Chris
AW:genial! vielen Dank!
15.03.2012 13:36:07
Lisa
Hallo Chris, das ist genau so wie ich es mir vorgestellt habe, vielen Dank!
LG Lisa
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige