dieses Script
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Columns(2).ClearContents '--Loescht alles in SpalteB
Target = "x" '--setzt ein X
End If
End Sub
löscht bei Doppelklick in Spalte B alle Werte der Spalte und setzt in der Zelle des Doppelklicks ein "x".Es werden jedoch nicht die Zellen ind Spalte B gelöscht, wenn Zeilen mittels Filter ausgeblendet wurden. Kann man das Script modifizieren, sodass auch die ausgeblendeten Zellen gelöscht werden, ohne jedoch den Filter aufzuheben?
Viele Grüße
Hans