habe eine Excelliste bei der ich wenn ich auf ein Textfeld oder eine Zelle klicke den inhalt von Zelle A1-AK1 Löschen möchte.
möchte es aber nicht mit einem Makro lösen.
lg Pesi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Union(Me.Range("G7:AK7"), Me.Range("G9:AK9"))
If Target.Address <> "$BA$7" Then Exit Sub
rng.ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
select Case Target.Address
Case "$BA$7"
Set rng = Union(Me.Range("G7:AK7"), Me.Range("G9:AK9"))
rng.ClearContents
Case "$BA$11"
Set rng = Union(Me.Range("G11:AK11"), Me.Range("G13:AK13"))
rng.ClearContents
End Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Select Case Target.Address
Case "$BA$7"
Set rng = Union(Me.Range("G7:AK7"), Me.Range("G9:AK9"))
Case "$BA$11"
Set rng = Union(Me.Range("G11:AK11"), Me.Range("G13:AK13"))
Case Else
Exit Sub
End Select
rng.ClearContents
End Sub