ich möchte gern auf jedem Sheet einer Arbeitsmappe in das Worksheet_Activate-Event folgendes schreiben:
Private Sub Worksheet_Activate()
Me.Range(Me.Name & "_ISACTIVE") = True
For Each SH33T In ActiveWorkbook.Sheets
SH33T.Range(SH33T.Name & "_ISACTIVE") = isSelected(SH33T)
Next
End Sub
Jedes Sheet wird natürlich einen solchen Zellnamen beinhalten, der immer aus dem Tabellennamen (ohne Leerzeichen) und "_ISACTIVE" besteht. Nur leider kenne ich bisher keinen Weg die isSelected-sub zu "bauen".
Bitte um Hilfe, vielen dank Euer t4z