PDA

Vollständige Version anzeigen : neues Arbeitsblatt erstellen, Name mitnehmen und Jahr um 1 erhöhen


eneg79
25.08.2017, 13:24
Hallo liebes Forum,

ich lese schon lange hier im Forum und ihr habt mir schon oft geholfen. Jetzt allerdings stehe ich vor einem Problem, wo mir das Lesen nicht mehr hilft. Daher dann heute auch meine Anmeldung.

Problem:
Ich habe mir für meine Gasabrechnung eine Tabelle gebastelt, und möchte am Ende des Jahres über einen Button-Klick, das Arbeitsblatt für das nächste Jahr erstellen. Meine Arbeitsblatt heisst "Gas 2017" und das neu erzeugte Datenblatt soll "Gas 2018" heissen.
Ein neues Arbeitsblatt erzeugen, alle wichtigen Zellen mit rüber kopieren das bekomme ich alles hin, nur die Bezeichnung des Arbeittsblattes, das bekomme ich nicht hin. Es soll ja auch fortlaufend sein, also für 2019 etc dann auch automatisch.
Die Gasabrechnung ist auch nur ein Bsp., ich brauche das dann auch für Strom, Wasser etc.

Ich danke euch schon mal vorab und bin mir sicher hier ist jemand der mir helfen kann.

Hajo_Zi
25.08.2017, 13:27
ActiveSheet.Name = "Gas 2018"

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

eneg79
25.08.2017, 13:33
Hallo Hajo,

vielen Dank für das promte annehmen meines Problems.

Deine Lösungsansatz ist richtig, den hatte ich auch schon.
Nur setzt dieser Voraus, das ich den Code jedes Jahr verändern muss.
Dem Button in Gas 2018 mus ich ja dann sagen
ActiveSheet.Name = "Gas 2019"

Ich suche nach einer Lösung, die automtisch den Text "Gas" übernimmt und das aktuelle Jahr um 1 erhöht.

Hajo_Zi
25.08.2017, 13:37
ich halte mich an das was im Beitrag steht.
ActiveSheet.Name = "Gas " & Year(Date) + 1

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

eneg79
25.08.2017, 13:48
oh Gott. wirklich so simpel?

Funktioniert hervorragend Hajo.
Ganz dickes Dankeschön an Dich.