VBA Dim in Worksheet variable und fix

[CHASiN1994]

Guten Tag zusammen,

ich habe einen laufendes Makro, dass ich jeden Monat neu nutze und für ein Jahr soweit funktioniert. ich möchte allerdings das es automatisch für das neue Jahr auch funktioniert.

Daher habe ich das anzusprechende Jahr fixiert.

Code:

Dim pathjahr as String

pathjahr = Range("A1")

Nun möchte ich das pathjahr in das Worksheet integrieren erhalte allerdings eine Fehlermeldung

Code:

Application.Workbook......... .Worksheets(SOLL-IST 02_ & pathjahr &).Range("A1:AP1000"").Copy

Ich erstelle mit meinem Makro als eine Datei und will auch in der Datei den Blattnamen das pathjahr geben.

Code:

With ActiveSheet
.Name = "SOLL-IST- 02_" & pathjahr &

Dieses funktioniert ebenso wenig.

Kann mir da jemand helfen?

Vielen Dank im Voraus

[00202]

Hallo,

lass das " &" am Ende weg.

Oder schreibe es so:  

Code:

.Name = "SOLL-IST- 02_" & Year(Now)

Das funktioniert jedes Jahr.

Beachte, dass "ActiveSheet" ein Wackelkandidat sein kann, denn du musst dann immer sicherstellen, dass du auf dem richtigen Tabellenblatt bist.