Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Häckchen in zwei Zellen

Häckchen in zwei Zellen
17.04.2016 12:49:07
Danny
Hallo liebe Gemeinde!
Schon habe ich das nächste Problem.
Ich möchte per Klick in zwei Zellen einen Haken setzen.
Jetzt habe ich schon einen Code wo das passiert.
Es soll aber so sein, dass nur in einer Zelle ein Hacken seien soll.
Ein Umschalter wäre schön da in einer Zelle immer ein Hacken ist.
Ich habe die Datei mal angehängt.
Gruß
Danny
Beispiel:
https://www.herber.de/bbs/user/105023.xlsm

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Häckchen in zwei Zellen
17.04.2016 13:04:20
Danny
Super danke dir,
aber die hatte ich schon. Ich habe aber leider nicht so viel Plan um den Code (von Haken und Summe)
so zu ändern das nur zwischen B7 und D29 gesucht wird.

If Target.Column  2 Then                   ' Hier nur in B7 bis D29 suchen
Cancel = True
Range("A" & Target.Row & ":F" & Target.Row).Value = ""
With Target
.Value = "a"
.Font.Name = "Webdings"
End With

Anzeige
AW: Häckchen in zwei Zellen
17.04.2016 13:07:22
Hajo_Zi
man muss sich die Datei nicht ganz ansehen. In "Tabelle4", "Diagonalen" ist die Lösung.
Gruß Hajo

AW: Häckchen in zwei Zellen
17.04.2016 13:55:46
Danny
Hallo nochmal,
Hajo ich habe den Code jetzt geändert und es geht auch:
(mit Tabelle 4 konnte ich das nicht kombinieren) Ich bin eine VBA Amöbe.
If Target.Column > 1 And Target.Column  6 And Target.Row 
geht es nicht auch ohne den Bereich mit > und Gruß
Danny

AW: Häckchen in zwei Zellen
17.04.2016 14:13:04
Werner
Hallo Danny,
ich verstehe jetzt zwar nicht, was dir daran
If Target.Column > 1 And Target.Column  6 And Target.Row 
nicht gefällt.
So geht es auch:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Set Bereich = Worksheets("Tabelle1").Range("B7:D29")
If Not Application.Intersect(Target, Bereich) Is Nothing Then
Cancel = True
Range("A" & Target.Row & ":F" & Target.Row).Value = ""
With Target
.Value = "a"
.Font.Name = "Webdings"
End With
End If
End Sub
Gruß Werner

Anzeige
AW: Häckchen in zwei Zellen
17.04.2016 14:41:40
Danny
Danke Werner,
das ist jetzt super!
Ich konnte es nur nicht verstehen.
Gruß
Danny

AW: Na dann Danke für die Rückmeldung. o.w.T.
17.04.2016 14:45:26
Werner

AW: Häckchen in zwei Zellen
17.04.2016 13:11:12
Werner
Hallo Danny,
If Target.Column > 1 and Target.Column  6 And Target.Row 
Gruß Werner

AW: Häckchen in zwei Zellen
17.04.2016 14:04:34
Danny
Danke Werner genau so soll es funktionieren!!!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige