Laufzeitfehler 9
16.10.2023 23:59:30
JBL
mein Problem besteht darin, dass der folgende Code
einen Laufzeitfehler mit der Nummer 9 erzeugt.
Der Rechner ist ganz neu und ich habe Office 365 aboniert.
Das merkwürdige an der Sache ist aber, dass der Code auf
dem alten Rechner seit Jahren funktoniert.
Bei der Überprüfung des Inhalts nach der Zuweisung von Year(Date) wird
das Jahr 2023 angezeigt, die Variable wurde aber in Variant/Integer umdeklariert.
Da der Befehl With Worksheets(strjahr) aber einen String erwartet, wird das angesprochene
Tabellenblatt nicht gefunden und es kommt zum Fehler 9
Dim strjahr As String
.
.
.
strjahr = Year(Date)
With Worksheets(strjahr)
Ändere ich die Deklaration wie folgt, funktioniert alles wie gehabt.
Dim strjahr As String * 4 'String mit vier Zeichen
Es kann aber nicht sein das ich jetzt alle Makros entsprechend anpassen muß
nur weil MS mal wieder was neues eingefallen ist!
Hat jemand noch eine Idee wie man das umgehen kann?