Hi,
das Ändern des Registernamens löst kein auswertbares Ereignis aus, weshalb du nur die Möglichkeit hast, die Funktion ZUFASLLSZAHL() in eine Zelle zu schreiben. Dann kannst du das Worksheet_Calculate Ereignis verwenden:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A1") = ActiveSheet.Name
Application.EnableEvents = True
End Sub
Die Frage bleibt: weshalb ist diese Funktion nicht ausreichend? Weshalb muss man VBA für etwas "missbrauchen" was auch anders und besser lösbar ist? Das Calculate Ereignis wird auf dem o.g. Weg
jedes Mal ausgelöst, sobald im Tabellenblatt etwas geändert wird, da sich das Ergebnis der Funktion ZUFALLSZAHL() dabei auch stets ändert.
Bis später,
Karin