Hallo zusammen,
folgendes Problem.
Mit diesem Code füge ich ein neues Tabellenblatt ein.
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Range("G1").Value + 1 * 1
Range("G1").Value = Range("G1").Value + 1
In G1 steht ein Jahr. Wenn jetzt ein neues Tabellenblatt eingefügt wird soll das Jahr + 1 und ein Text dahinter stehen. z.B. 2020-HÜ
Könnte mir jemand dabei helfen den Code entsprechend anzupassen? Ich habe schon einige Änderungen versucht, bekomme aber immer eine Fehlermeldung.
Vielen Dank vorab.
Gruß
Michael