kann mir jemand sagen, ob es ein Ereignis gibt, dass eintritt, wenn ich ein Datenblatt umbenenne? Vielen Dank schon mal Im Voraus.
Gruß Markus
Private Sub Worksheet_Activate()
Dim mySh
Const startZeile = 1 ' Zeile, in der die Liste starten soll
Const sPalte = 1 ' Spalte, in die geschrieben werden soll
Application.ScreenUpdating = False
Range(Cells(startZeile, sPalte), Cells(Rows.Count, sPalte)).ClearContents
With ThisWorkbook
For Each mySh In .Sheets
Cells(mySh.Index + startZeile - 1, sPalte).Value = mySh.Name
Next
End With
Application.ScreenUpdating = True
End Sub