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

Häckchen in zwei Zellen

Forumthread: Häckchen in zwei Zellen

Häckchen in zwei Zellen
17.04.2016 14: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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Häckchen in zwei Zellen
17.04.2016 15: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 15: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 15: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

Anzeige
AW: Häckchen in zwei Zellen
17.04.2016 16: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 16: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 16:45:26
Werner

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

Anzeige
AW: Häckchen in zwei Zellen
17.04.2016 16:04:34
Danny
Danke Werner genau so soll es funktionieren!!!
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum