ich ´bins nochmal. Ich habe auf der Arbeit von einer Beispieldatei einen Code kopirt und in meine eigene Datei eingebaut. Hat alles funktioniert.
Ein Teil davon ist (eigentlich nicht wichtig?!):
Cells(BZeile, BSpalte) = ZB(Arbeitsdatum)
If Year(Arbeitsdatum + 2) &lt&gt Year(Arbeitsdatum + 9) Then
Range(Cells(BZeile- 4, JBeginn), _
Cells(BZeile- 4, BSpalte)).Merge
Cells(IBeginnZeile - 4, IJahresbeginn) = Format(Arbeitsdatum, "YYYY")
IJahresbeginn = ISpalte + 1
End If
Aber wie auch immer.
Der Punkt ist, dass ich es kopiert, eingebaut und genutzt habe.
Nachdem ich diese Datei auf einem anderen Rechner benutzen wollte, funktionierte es plötzlich nicht mehr.
Deshalb kopierte ich nochmals den Code (wie vorher schon), speicherte ihn in einem neuen Arbeitsblatt ab, und siehe, da, es tat wieder!!!
Aber woran liegt das? Ich will, dass die Datei auf jedem Rechner tut.
Vielen Dank für den Rat