Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: reinhawi am Mai 24, 2014, 11:35:23 Vormittag
-
Hallo Zusammen,
ich habe eine Tabelle die ein fertiges Blatt "Vorlage" enthällt. Dieses Blatt möchte ich ans Ende der gleichen Datei kopieren und mit dem Folgemonat beschriften. Wie kann ich das am besten lösen.
z.B. Datei: Erfassung.xlsx
Blatt: Vorlage
-> Jun14 oder Jul14 usw.
[Wenn Jun14 schon vorhaden ist, solllte ggf es eine Hinweismeldung geben das diese schon vorhanden ist und nicht erstellt werden kann. Ggf "Neues Blatt wurde erfolgreich erstellt." - KEIN MUSS]
Für eine Antwort wäre ich sehr dankbar.
Wenn es noch möglich ist, soll in Zelle D4 der erste Tag des neuen Monats eingetragen werden.
z.B. Aug14 wird erstellt und in der Zelle dann 01.08.2014
LG
Ich habe es soweit ausprobiert noch noch eine kleine Schöhnheitskorrektuir hätte ich doch noch bitte.
Vorschlage/Bitte findest Du in der Tabelle.
Vielen Dank schon einmal.
-
Moin,
ich würde eine Sub Neuer_Monat() erstellen, die automatisch nach einem Klick auf die Schaltfläche aufgerufen wird. Diese Sub fügt am Ende eine Kopie des Blattes Vorlage an. Anschließend gibst dem Blatt einfach einen neuen Namen, dazu dient u.a. diese Funktion: Function NewMonth() As String
Dim wks As Worksheet, wksDate As Date
Dim Rc As Variant
Rc = "Jan 2000"
For Each wks In ThisWorkbook.Worksheets
If IsDate(wks.Name) Then Rc = WorksheetFunction.Max(CDate(Rc), CDate(wks.Name))
Next wks
Rc = DateAdd("m", 1, Rc)
NewMonth = Format(Rc, "MMM YYYY")
End FunctionEinzige Bedingung: Es ibt schon ein "aktuelles Blatt" mit einem sinnvollen Monat, der um 1 hoch gezählt werden kann. Der Rückgabewert der Funktion kann auch genutzt werden, den Monatsersten in die entsprechende Zelle einzutragen.
-
Hallo Günter,
ich danke Dir schon mal für die von dir. Leider habe ich davon nur die hälfte verstanden. Kannst du mir nicht bitte die Tabelle die ich zur Verfügung gestelölt habe ein wenig modifizieren? Dafür wäre ich dankbar.
Mein Problem bei der Tabelle von mir, ist das ich die Vorlage nicht sehen kann. Wenn ich das Makro in eine neue Tabelle einfüge und es starte ist die Vorlage immer weg. Ansonsten läuft das schon.
Gruß
Jens
-
Hallo Jens (?),
du weißt schon, dass du immer ein leeres Blatt kopiert hast? Die "Vorlage" habe ich entsprechend korrigiert.
Dein Code habe ich einmal komplett auskommentiert und den Button mit der neuen Sub verknüpft.
Aber wenn ich mal darüber nachdenke ... Bei dem Tabellenaufbau wirst du viel "Freude" an den Daten haben. Da gibt es evtl. viel bessere Lösungen. Oder beschränkt sich das auf die 2 Tage?
-
Hallo Günter,
ich danke Dir schon mal die deine Arbeit. Ist soweit schon voll in Ordnung.
Ich habe die Tabelle mal fast so ähnlich gemacht, wie ich sie brauche.
Die -VORLAGE- darf nicht verschwinden oder in ein aktuellen Monat umbenannt werden, da ich diese öfters abänern muss.
Die Schaltfläche "zur Vorlage" sollte in jedem Monat erscheinen und die "Neuer Monat" muss nur in der Vorlage sein. Kann auch in jedem Motat sein- das ist egal. Wenn Du aber eine andere Lösung noch hast, wie Du es schon angedeutet hast, dann kannst Du es gerne versuchen.
Ich bin für heden Vorschlag dankbar.
LG
Jens
s. Anlage