Clever-Excel-Forum

Hallo Zusammen,

ich habe folgenden Code, mit dem durch Doppelklick ein Häckchen in einer Zelle gesetzt wird.

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("H6:J40")) Is Nothing Then  'Bereich anpassen

If Target.Value = "" Then Target.Value = "ü" Else Target.Value = ""

End If

End Sub

Wie kann der Code geändert werden, damit pro Zeile von Spalte H bis J nur einmal ein "ü" vorkommt.
zB, wenn in J6 bereits ein Zeichen ist und ich mache einen Doppelklick in H6 soll das Zeichen in J6 gelöscht werden und in H6 gesetzt werden usw., und das für jede Zeile extra i. o. definierten Bereich

Danke im Voraus!

Hallo!
Ungetestet:

Code:
With Target

   If .Value = "" Then

      Intersect(.Row, Range("H6:J40")).ClearContents

      .Value = "ü" 

   Else .Value = ""

   End If

End With

Gruß Ralf

Hi,

und soll zumindest ein Haken bleiben?

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Range("H6:J40"), Target) Is Nothing Then

         Intersect(Target.EntireRow, Range("H6:J40")).ClearContents

         Target.Value = "ü"

         Cancel = True

    End If

End Sub

Hallo Chris,

ja ein Haken soll bleiben.

Dein Code funktioniert genau so wie ich es wollte.

Danke!

herbert0803

RPP63

chris-ka

herbert0803