Private Bereich As Range
 
Private Sub TS()
With ActiveCell
    If .FormulaR1C1 = "" Then
    .FormulaR1C1 = "TS"
    Exit Sub
    Else
    .FormulaR1C1 = ""
    End If
End With
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Bereich = Sheets("Tabelle1").Range("B2:B50")
If Intersect(ActiveCell, Bereich) Is Nothing Then Exit Sub
TS
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!