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
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