Format-Befehl, der nicht immer funktioniert
29.08.2005 16:02:31
Stefan
Ein Teil davon ist (eigentlich nicht wichtig?!):
Cells(BZeile, BSpalte) = ZB(Arbeitsdatum)
If Year(Arbeitsdatum + 2) <> 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