Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei klick, (eine von 100 Zellen) wird blau

Forumthread: Bei klick, (eine von 100 Zellen) wird blau

Bei klick, (eine von 100 Zellen) wird blau
100
Hi,
ich habe eine Liste mit lauter (100) kleinen Quadraten. Diese Quadrate müssen bei einem klick auf die Zelle blau markiert werden. Am besten mit einem X .
Wie kriege ich das hin, ohne diese Formular mit Checkbox usw. zu benutzen und dann kommt die größte Herausforderung, ich habe keine Lust 100 einzelne Zellen vorzubereiten, dies würde ich aber im Extremfall auch noch machen.
Vielen Dank
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bei klick, (eine von 100 Zellen) wird blau
100
Hallo Fritz!
Versuch's mal mit diesem Code.
Die Auswahl erfolgt durch Doppelklick, weil der Klick
im Sheet kein Ereignis auslöst und das Auswählen nur bei
markierung der Zelle meist ungewünschte Effekte hervorruft!
Er gehört in das Modul der Tabelle!
(Rechtsklick auf den Tabellenreiter &gt Code anzeigen &gt im
rechten Fenster den Code Eintragen)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Auswahl mit Doppelklick
Dim rng As Range
Set rng = [A1:A100]    'Bereich anpassen
If Intersect(Target, rng) Is Nothing Then Exit Sub
If Target.Count = 1 Then
If Target = "" Then
rng.ClearContents
'wenn immer nur ein Feld ausgewählt werden soll, sonst entfernen!
Target = "X"
Else
Target = ""
End If
End If
Cancel = True
End Sub

Die Zellen nach deinen Vorstellungen formatieren!
Anzeige
AW: Bei klick, (eine von 100 Zellen) wird blau
100
der Wahnsinn, klappt sofort, habe es in "beforerightclick" geändert....
Also nochmal, traumhaft
Danke für die Rückmeldung! o.T.
Josef
Gruß sepp
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige