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

BeforeDoubleClick für Farbmarkierung im bestimmten Bereich

Forumthread: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich

BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 09:44:01
dori25
Hallo VBA Profis,

ich hoffe, ihr könnt mir bei meinem Anliegen helfen.

Ich habe eine Arbeitsmappe, in der die Zellen im Bereich B21:M45 per Doppelklick gefärbt werden sollen. Bei erneutem Doppelklick wird die Färbung aufgehoben. Die Einfärbung funktioniert schon mal. Das Problem ist nur, dass ich es nicht schaffe den Gültigkeitsbereich einzugrenzen. Ich habe alle Zellen drum herum bereits schreibgeschützt und das Makro somit für die Bereich deaktiviert. Allerdings gibt es einige Drop-Down-Felder, die ich nicht sperren kann ohne die Auswahl zu sperren. Daher würde ich gerne den Code begrenzen. Ich weiß nicht wo im folgenden Code der Fehler liegt und bitte daher um eure Hilfe: 



Option Explicit



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, [B21:M45]) Is Nothing Then

Cancel = True



If ActiveCell.Interior.ColorIndex = 34 Then

ActiveCell.Interior.ColorIndex = 0



ElseIf ActiveCell.Interior.ColorIndex = 0 Then

ActiveCell.Interior.ColorIndex = xlNone



Else

ActiveCell.Interior.ColorIndex = 34

End If



End Sub


Da die Dropdown Felder in einer anderen Farbe mit weißer Schrift gefärbt sind, schießt mir der Code dort das Layout kaputt.

Folgende Haken habe ich innerhalb des Blattschutzes gesetzte: Entsperrte Zellen auswählen, Zellen formatieren, Zeilen formatieren, Objekte bearbeiten und Szenarios bearbeiten.
Vielen Dank vorab!

LG
dori
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 10:16:01
Onur
Was genau ist denn für dich "Dropdown Felder" ?
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 15:29:09
GerdL
Hallo, probier mal. 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



    If Not Intersect(Target, Range("B21:M45")) Is Nothing Then

   

        Cancel = True

        With Target.Interior

            If .ColorIndex = 34 Then

                .ColorIndex = xlNone

            Else

                .Interior.ColorIndex = 34

            End If

        End With

    

    End If



End Sub

Gruß Gerd
Anzeige
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 10:23:43
dori25
Hallo Onur,

ein zellgebundenes Kästchen (unten rechts am Zellrand), das die Auswahl bestimmter Daten erlaubt. Ich habe per Datenüberprüfung jeweils verschiedene Listen hinterlegt, sodass keine anderen Werte in die jeweiligen Zellen eingetragen werden können.

Ich hoffe, das beantwortet deine Frage.

LG
dori
Anzeige
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 10:33:16
Onur
Angenommen, die Zellen mit Datenüberprüfung wären A1 und B2:
Wenn du die Zellen mit Datenüberprüfung ausschliessen willst, einfach sowas als erste Zeile (nach dem "Private Sub...) einfügen: 
If Target.Address = "$A$1" Or Target.Address = "$B$2" Then Exit Sub
Anzeige
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 10:46:56
dori25
Hallo Onur,

danke für den Tipp. Habe ich was falsch gemacht?

Mir wird kein Fehler angezeigt, aber leider funktioniert die Einfärbung per Doppelklick noch.
Ich habe den Code schon mal für zwei Dropdown-Felder angepasst, aber leider stelle ich keinen Unterschied fest.

Mein Code sieht jetzt wie folgt aus: 


Option Explicit



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$F$3" Or Target.Address = "$F$4" Then Exit Sub



If ActiveCell.Interior.ColorIndex = 34 Then

ActiveCell.Interior.ColorIndex = 0



ElseIf ActiveCell.Interior.ColorIndex = 0 Then

ActiveCell.Interior.ColorIndex = xlNone



Else

ActiveCell.Interior.ColorIndex = 34

End If



End Sub


Insgesamt sind die folgenden Zellen mit Dropdown: "$F$3", "$F$4", "$F$5", "$L$3", "$L$4" und "$L$5".

Danke vorab.

LG
dori
Anzeige
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 10:49:00
Onur
Die Zelle, die angeklickt wurde ist NICHT ActiveCell, sondern immer Target.
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 11:00:13
Onur
Ausserdem hast du 
If Not Intersect(Target, [B21:M45]) Is Nothing Then

rausgenommen - warum ? DAS hatte ich nicht geschrieben.
Mach besser 
If Intersect(Target, [B21:M45]) Is Nothing Then Exit Sub

daraus.
Anzeige
AW: BeforeDoubleClick für Farbmarkierung im bestimmten Bereich
05.09.2024 11:24:25
dori25
Es klappt!!

Herzlichen Dank, da wäre ich nie drauf gekommen :)

"If Target.Adress" war jetzt gar nicht mehr nötig.

Der Vollständigkeit halber hier der aktuelle Code: 





Option Explicit



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



If Intersect(Target, [B21:M45]) Is Nothing Then Exit Sub



If Target.Interior.ColorIndex = 34 Then

Target.Interior.ColorIndex = 0



ElseIf Target.Interior.ColorIndex = 0 Then

Target.Interior.ColorIndex = xlNone



Else

Target.Interior.ColorIndex = 34

End If



End Sub


LG
dori
Anzeige
Gerne !
05.09.2024 11:27:11
Onur
Sehe ich auch eben erst, dass F3 und F4 sowieso nicht im Bereich liegen. :)
AW: Gerne !
05.09.2024 11:31:58
Onur
Du solltest noch vor "Exit Sub" ein "Cancel=True" einfügen, da sonst Excel immer noch auf Eingabe wartet, weil du ein Doppelklick gemacht hast.
AW: Fehlermeldung
05.09.2024 11:45:53
dori25
Bei mir kommt dann leider folgender Fehler:

"Fehler beim Kompilieren: If-Block ohne End If"

Was kann ich da ändern?
Anzeige
AW: Fehlermeldung
05.09.2024 11:46:57
Onur
Bei welchem Code?
AW: Fehlermeldung
05.09.2024 12:49:56
dori25
Bei folgendem Code mit der "Cancel=True" Anpassung: 


Option Explicit



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



If Intersect(Target, [B21:M45]) Is Nothing Then

Cancel = True

Exit Sub



If Target.Interior.ColorIndex = 34 Then

Target.Interior.ColorIndex = 0



ElseIf Target.Interior.ColorIndex = 0 Then

Target.Interior.ColorIndex = xlNone



Else

Target.Interior.ColorIndex = 34

End If



End Sub
Anzeige
AW: Fehlermeldung
06.09.2024 00:14:05
Onur
DAS genügt völlig: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Target, [B21:M45]) Is Nothing Then Exit Sub

    Dim co

    co = Target.Interior.ColorIndex

    Target.Interior.ColorIndex = 34 - co

    Cancel = True

End Sub
Anzeige

Forumthreads zu verwandten Themen

kgrösste für einen bestimmten Bereich
Maris

Hallo zusammen,
ich möchte die Formel kgrösste nur für eine Tabelle ausführen lassen die ich nachher in bestimmte Bereich untergliedere. Siehe angefügte Datei.
Also z.B. Zeige mir den größten Umsatz wenn der Bereich "Auto" in der Liste als Kriterium vorkommt. Danach zeige mir den 2größt...
26.11.2009 16:11:58
Thread-ID: 1120296
2 Beiträge
VBA Code für EInfärben in bestimmten Bereich
Andreas

Guten Morgen,
für eine Auftragsliste die ständig neue Eintrage hinzu bekommt und nach Fertigstellung des Auftrages dieser wieder gelöscht wird, brauche ich einen VBA Code der bewirkt, dass die Zellen im Bereich G3-G30 ab einem Tag vor dem eingetragenen Datum Rot einfärbt und die Schrift von...
17.02.2014 09:21:18
Thread-ID: 1349926
2 Beiträge
MAX und MIN für bestimmten Bereich
Steinbrecher

Den Mittelwert von Wahlergebnissen einer Kirchenahl ermittle ich mit
=MITTELWERTWENN(Gemeinden!A:A;A2;Gemeinden!D:D)
Wie aber muss ich formulieren, um auch den MAXimalwert sowie den MINimalwert zu ermitteln?
Hansjochen
10.01.2017 19:32:28
Thread-ID: 1534277
17 Beiträge
Anzahl Mails für bestimmten Datumsbereich
Jens

Hallo zusammen,
ich habe im Archiv folgenden Beitrag gefunden und den Code etwas angepasst auf meine Bedürfnisse, aber leider funktioniert das irgendwie noch nicht.
https://www.herber.de/forum/archiv/936to940/936819_Outlook_Ordnerliste_Anzahl_Elemente_Mails.html
Ziel soll sein, dass...
14.06.2018 08:05:23
Thread-ID: 1628743
2 Beiträge
Formel Links für bestimmten Bereich anwenden
Andreas Vaitl
Liebe Excel-Profis,

hier die Datei:
https://www.herber.de/bbs/user/169882.xlsx

Ich versuche, alle Zeilen, welche in Spalte C das Wort "Invoice" enthalten, zu summieren.
Ich bekomme das nur mit einer Hilfsspalte hin, das Ergebnis steht in Zelle D15.

Gibt es eine Mög...
06.06.2024 11:31:29
Thread-ID: 1980397
7 Beiträge
für bestimmten Bereich auschließlich kopieren erlaubt
RoWaLo
Ich habe eine Excel Tabelle die ich unverändert bis auf 2 Bereiche behalten möchte
also Schutz auf das ganze Arbeitsblatt - ausgenommen die beiden Bereiche.

Ok das habe ich hinbekommen
Ein Benutzer soll aus dem einen der beiden Bereiche ausschließlich die Zellinhalte aus dem diesem...
19.08.2024 11:58:07
Thread-ID: 1988546
12 Beiträge
Worksheet_BeforeDoubleClick ????
Micha

Hallo liebe Spezialisten,
leider habe ich ein nur sehr begrenztes VBA Wissen, und freue mich sehr auf Eure Hilfe :-)
Gruß: Micha
Der unten stehende Code wird ja auf dem kompletten Tabellenbaltt angewendet. Wie muss jedoch der Code aussehen wenn ich die Ausführung auf den Bereich ("A...
23.02.2009 16:15:42
Thread-ID: 1053149
5 Beiträge
Workbook_SheetBeforeDoubleClick - Problem mit Sh
Peter

Guten Tag
Bei der Bearbeitung einer Datei lege ich mir immer wieder eine Index-Tabelle an, in denen alle Tabellennamen eingetragen werden.
Bei Doppelklick auf einen Eintrag soll die entsprechende Tabell ausgewählt werden.
Ich habe zwei Fragen:
1) Weshalb läuft der untenstehende...
28.12.2010 14:31:19
Thread-ID: 1193070
4 Beiträge
Target Change / BeforeDoubleClick
Alex

Guten morgen,
ich hänge irgendwie am Verständniss... Ich möchte in eine Zelle eine Anzahl eingeben, die bei verlassen der Zelle in einen Betrag umgerechnet wird. Soweit funktioniert das auch. Wenn ich nun ein eine Zelle die bereits einen Betrag umgerechnet hat mit einer neuen Anzahl übersch...
31.03.2011 06:41:23
Thread-ID: 1208390
6 Beiträge
Workbook_SheetBeforeDoubleClick
Claudia

Hallo alle zusammen,
ich habe eine Datei mit 21 Blätter (Masch1 - Masch21). Nun möchte ich gerne mittels Doppelklick und dann mit einer Auswahl in Spalte D in den Zellen D10 - D40 jeweils einen Buchstaben eintragen und zwar z, h, n. Mit Daten Gültigkeit möchte ich ungern arbeiten da das seh...
16.02.2012 16:20:09
Thread-ID: 1251031
3 Beiträge
Worksheet_BeforeDoubleClick
Wolfgang

Hallo liebe Helfer
ich möchte in einem geschützten Tabellenblatt bei einem
Doppelklick auf bestimmte Zellen ( F18 bis 22 )
in der jeweiligen Reihe die Zellen B18 bis B22 von O auf 1
oder zurück ändern.
Egal was ich mache, ich bekomme immer die Meldung: die Zelle ist schreib...
08.07.2013 15:22:23
Thread-ID: 1321535
3 Beiträge
Worksheet_BeforeDoubleClick
Horst

HalloMit dem Ereigniss "Worksheet_BeforeDoubleClick" reagiere ich in dem Tabellenblatt(x) auf einen Doppelklick und wechsle mit Sheets("Tabellenblatt(y)").Select auf ein anderes Tabellenblatt, was optisch auch gelingt, das Tabellenblatt (Y) wird angezeigt.
Aber bei allen Befehlen muss ich ex...
21.07.2002 20:01:25
Thread-ID: 138842
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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