Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Doppelklick in Zelle Wert eintragen
#1
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!
LG Herbert
Windows 7
Excel 2010
to top
#2
Hallo!
Ungetestet:
Code:
With Target
   If .Value = "" Then
      Intersect(.Row, Range("H6:J40")).ClearContents
      .Value = "ü"
   Else .Value = ""
   End If
End With

Gruß Ralf
to top
#3
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
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

[-] Folgende(r) 1 Benutzer sagt Danke an chris-ka für diesen Beitrag:
herbert0803
to top
#4
Hallo Chris,

ja ein Haken soll bleiben.

Dein Code funktioniert genau so wie ich es wollte.

Danke!
LG Herbert
Windows 7
Excel 2010
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Wert einer Zelle als variable, welche den Wert einer anderen Zelle beeinflusst backflipnick 8 66 Vor 1 Stunde
Letzter Beitrag: shift-del
  Zelle suchen und wert aus anderem blatt addieren Safety-Tussi 0 12 Vor 1 Stunde
Letzter Beitrag: Safety-Tussi
  Daten/Wert von Textfeld in bestimmte Zelle McArthur1 12 194 23.03.2017, 05:02
Letzter Beitrag: schauan
  MessageBox liest nicht aktuellen Wert aus Zelle aus dertommy 5 67 22.03.2017, 11:55
Letzter Beitrag: dertommy
  Spalten vergleichen und Abweichungen in einer Spalte eintragen grabax 6 139 21.03.2017, 15:16
Letzter Beitrag: grabax
  Mit einem Wert aus Zelle Filtern ?! Okrian 4 89 25.02.2017, 17:20
Letzter Beitrag: schauan
  Excel IDs zählen und eintragen alnourx 3 95 11.02.2017, 13:46
Letzter Beitrag: alnourx
  Datum abgleichen und ggf. Wert aus Zelle wiedergeben Tobias159 13 276 19.01.2017, 09:50
Letzter Beitrag: Tobias159
  Wert aus einer Tabelle in einer Zelle anzeigen Kern0605 3 173 17.01.2017, 18:22
Letzter Beitrag: BoskoBiati
  Wert nach Prüfung von anderem Wert überschreiben lassen? dodo 4 178 15.01.2017, 17:26
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste