Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige