Ich hoffe mir kann jemand helfen!
Danke im voraus!
Private Sub Worksheet_Activate()
[a1] = [a1] + 1
End Sub
Private Sub Worksheet_Activate()
[a1] = [a1] + 1
End Sub
Private Sub Worksheet_Activate()
[a1] = [a1] + 1
End Sub
Private Sub Workbook_Open()
Worksheets("Dein Tabellenname").Range("a1") = Worksheets("Dein Tabellenname").Range("a1") + 1
End Sub