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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen