Office: X in Zelle bei Doppelklick

Hab da mal wieder ne Frage...

Und zwar würde ich gerne, sobald ich einen Doppelklick auf eine Zelle mache, das dort automatisch ein X hereingeschrieben wird.

Dazu hab ich folgendes programmiert:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$14" Or Target.Address = "$J$15" Or Target.Address = "$J$16" Then
Cancel = True
Select Case Target
Case Is = "": Target = "x"
Case Is = "x": Target = ""
Case Else: Cancel = False
End Select
End If
End Sub

Nun wird in die Zellen J14; J15 und J16 ein X geschrieben, sobald man dort einen Doppelklick tätig.Das klappt auch alles soweit.Jetzt meine Frage:

Wie ist es möglich diesen SUB so abzuändern, das ich einen Zellbereich eingeben kann und alle Zellen in diesem Bereich dann beim Doppelklick ein X bekommen.

Bin nämlich zu Faul jede Zelle mit einem "Or..." einzugeben.

Who can Help?

 

Hallo,

wie wäre es damit?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Target.Value = "x"
End If
End Sub

 

lol...easy^^

Besten Dank :)

Das Problem ist jetzt jedoch, dass das "X" beim 2. Doppelklick nicht mehr entfernt wird!?

 

Hallo,

dann vielleicht so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "X"
Case Else
Target.Value = ""
End Select
End If
End Sub

 

Jetzt hast du aber das Problem, das du immer zuerst auf eine andere Zelle klicken muss, bevor du das "X" durch den Doppelklick wieder entfernen kannst.

 

Hallo,

dann nimm einfach diese Zeile

If Target.Address = "$J$14" Or Target.Address = "$J$15" Or Target.Address = "$J$16" Then

und tausche sie gegen diese Zeile aus

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then

 

Hmm das hatte ich doch eben auch schon probiert, wieso klappt das jetzt auf einmal!?

Naja, danke :)