Office: Arbeitsblatt nächster Monat anfügen

jobacke · 5. Juli 2008

Hallo zusammen,
ich möchte in einer Arbeitsmappe, deren erstes Arbeitsblatt September2008 heißt, mit einem Makro den nächsten Monat anfügen. Dies möchte ich dann Monat für Monat fortsetzen, sodass in der Arbeitsmappe September, Oktober, November, etc erscheint. Wer kann mir helfen und den richtigen Code dazu sagen?
Vielen Dank schon im Voraus für die Hilfe
Gruß Jobacke

:)

uwek · 7. Juli 2008

Hallo Jobacke,

habe zwar kein Code dafür zur Hand, kannst dir aber mal dieses AddIn von mir anschauen.

jobacke · 7. Juli 2008

Hallo uwe,
vielen Dank für den Tip, aber das führt auf einen falschen Weg für mich.
Habe hier mal den Code eingetragen mit dem alle Monate des Jahres an den Januar angefügt werden.
Code:

Sub Blatt_pro_Monat()
Dim monat As Long

For monat = 2 To 12 Step 1

x = Format(DateSerial(intfrage, monat, 1), "MMMM")
Sheets.Add Count:=1, After:=Sheets(Sheets.Count)
ActiveSheet.Name = x

Next monat
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das erste Tabellenblatt heißt in diesem Fall Januar.
Ich möchte eben aber immer nur einen nachfolgenden Monat anfügen. Vielleicht weiß jemand einen Rat.
Danke für die Hilfe
Gruß Jobacke

rastrans · 7. Juli 2008

Code:

Sub ArbeitsblattNeu()
Dim intJahr As Integer
Dim intMonat As Integer
Dim datArbeitsblattDatum As Date
Dim strArbeitsblattName As String

strArbeitsblattName = Worksheets(Worksheets.Count).Name
intJahr = Val(Right(strArbeitsblattName, 4))
intMonat = MonatsNummer(Left(Worksheets(Worksheets.Count).Name, Len(Worksheets(Worksheets.Count).Name) - 4))
If intMonat * intJahr = 0 Then
MsgBox "Die Bezeichnung des letzten Arbeitsblattes (" & strArbeitsblattName & ") entspricht nicht der Konvention!"
Else
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Format(DateAdd("m", 1, DateSerial(intJahr, intMonat, 13)), "mmmmyyyy")
End If
End Sub

Function MonatsNummer(ByVal Monatsname As String) As Integer
Dim strMonatsname As String
Dim intMonatNr As Integer
Dim bolGefunden As Boolean

strMonatsname = UCase(Monatsname)
intMonatNr = 0
Do
intMonatNr = intMonatNr + 1
If intMonatNr < 13 Then
bolGefunden = UCase(Format(DateSerial(2008, intMonatNr, 13), "mmmm")) = strMonatsname
Else
bolGefunden = False
End If
Loop Until (intMonatNr > 12) Or bolGefunden

If bolGefunden Then
MonatsNummer = intMonatNr
Else
MonatsNummer = 0
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Um ein neues Tabellenblatt zu erstellen muss die Prozedur ArbeitsblattNeu aufgerufen werden.

Dieser Code funktioniert aber nur, wenn in den Tabellennamen der Monat in der Spache der Excelversion vorkommt. Ein mischen zwischen den Sprachen ist nicht implementiert!

jobacke · 7. Juli 2008

Hallo rastrans,
danke für den Code. Wenn das erste Arbeitsblatt Januar2008 heißt, folgt prompt Februar2008. Genau das, was ich brauchte.
Vielen Dank für die schnelle Hilfe
Gruß Jobacke

Office: Arbeitsblatt nächster Monat anfügen

Arbeitsblatt nächster Monat anfügen

Arbeitsblatt nächster Monat anfügen

Arbeitsblatt nächster Monat anfügen

Arbeitsblatt nächster Monat anfügen - Similar Threads - Arbeitsblatt nächster Monat

Exel Arbeitsblatt Formatierung nach Betriebssystemwechsel ändern

Wie kann man in einer Excel-Datei nur ein Arbeitsblatt freigeben

Arbeitsblätter ein- bzw ausblenden nach Zellinhalt geschützte Arbeitsmappe

Pivot Tabelle mit leeren Arbeitsblättern?

1.Excel soll 100 Excel-Tabellen überprüfen

VBA - verknüpfte Arbeitsblätter vervielfältigen / kopieren

Pivot Tabelle aus 2 Tabellen, fehlende Optionen