Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in 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
  [VBA] Ergebnis der Formel statt Formel in Zelle eintragen Rabe 2 33 Gestern, 14:51
Letzter Beitrag: Rabe
  Jahreskalender, Datum eintragen => automatisches einfärben in Kalender Fuxalex 4 97 03.12.2016, 23:42
Letzter Beitrag: schauan
  Wert suchen in Spalte und wert da neben ausgeben VBA michel34497 2 44 02.12.2016, 23:33
Letzter Beitrag: michel34497
  Text in einer Zelle automatisch eintragen, abhängig von anderen Zellen Willhelm82 25 245 01.12.2016, 14:24
Letzter Beitrag: Willhelm82
  In Zelle soll Wert aus Zeile wiedergegeben der Kriterium erfüllt sebster85 1 43 28.11.2016, 11:27
Letzter Beitrag: Kuwer
Question Zellinhalt in Intelligente Tabelle eintragen hellidor 2 51 22.11.2016, 16:07
Letzter Beitrag: hellidor
  Automatisch Datum in nächste freie Zelle eintragen NunoBrito 17 191 22.11.2016, 10:33
Letzter Beitrag: NunoBrito
  Zelle so oft potenzieren bis bestimmter Wert erreicht ist? ChillAlta 17 222 09.11.2016, 19:57
Letzter Beitrag: shift-del
  Datum/Uhrzeit automatisch eintragen Marius4444 13 232 05.11.2016, 14:08
Letzter Beitrag: schauan
  Tabelle nach Wert durchsuchen, und jede Zeile ausspucken die diesen Wert besitzt THE ARCHITECT 14 260 01.11.2016, 12:19
Letzter Beitrag: snb

Gehe zu:


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