Wenn Text dann soll der Zelleninhalt gelöscht werden, wenn leer dann soll Text "R" eingefügt werden.
Dies soll aber nur im im Bereich A1:E30 erfolgen.
Vielen Danke für eure Bemühungen im vorhinein.
Markus.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zeLLe As Range
For Each zeLLe In Target
If Not Intersect(zeLLe, Range("A1:E30")) Is Nothing Then
If zeLLe.Value = "R" Then
zeLLe.ClearContents
ElseIf IsEmpty(zeLLe) Then
zeLLe.Value = "R"
End If
End If
Next
End Sub
Gruss, Jogy
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column