Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_BeforeRightClick then...

Forumthread: Worksheet_BeforeRightClick then...

Worksheet_BeforeRightClick then...
31.03.2016 15:21:12
baschti007
Hallo liebe Forum User
Ich würde gerne mit diesem Code einen Bereich makieren und dann mit der Rechtenmaustaste diesen mit einem x versehen oder das x wieder entfernen .Mit dem entfernen das klappt aber nicht makieren mit dem x nur wenn ich jede Zelle einzelnd auswähle und dabei die STRG taste halte.
Geht das auch anders ? 

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = "x" Else Target = ""
End If
End Sub
Gruß Basti

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_BeforeRightClick then...
31.03.2016 15:28:00
Michael
Hallo!
Wirkt, gem. Deiner Vorlage, nur in Spalte A des betroffenen Blattes:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Range
If Target.Column > 1 Then
Exit Sub
Else:
Cancel = True
For Each z In Target.Cells
Select Case z.Value
Case Is = "x"
z.Value = vbNullString
Case Is = vbNullString
z.Value = "x"
End Select
Next
End If
End Sub
LG
Michael

Anzeige
AW: Worksheet_BeforeRightClick then...
31.03.2016 15:31:20
Michael
Hallo!
War schlampig vorhin, ergänzt damit es bei Auswahl mehrerer Spalten nicht greift (nur bei 1 Spalte, und wenn das Spalte A ist):
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Range
If Target.Column > 1 Or Target.Columns.Count > 1 Then
Exit Sub
Else:
Cancel = True
For Each z In Target.Cells
Select Case z.Value
Case Is = "x"
z.Value = vbNullString
Case Is = vbNullString
z.Value = "x"
End Select
Next
End If
End Sub
LG
Michael

Anzeige
AW: Worksheet_BeforeRightClick then...
01.04.2016 07:18:02
baschti007
Hallo Sehr cool vielen Dank =)
Gibt es auch eine Möglichkeit, wenn sich in dem markiertem Bereich ausgeblendete Zeilen befinden, diese nicht mit einem X zu versehen ?
Gruß Basti

AW: Worksheet_BeforeRightClick then...
01.04.2016 08:03:32
Michael
Hallo!
Ja
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim z As Range
If Target.Column > 1 Or Target.Columns.Count > 1 Then
Exit Sub
Else:
Cancel = True
For Each z In Target.Cells.SpecialCells(xlCellTypeVisible)
Select Case z.Value
Case Is = "x"
z.Value = vbNullString
Case Is = vbNullString
z.Value = "x"
End Select
Next
End If
End Sub
LG
Michael

Anzeige
Danke =)
01.04.2016 09:24:02
baschti007
Super Danke Funktioniert sehr gut =)

Gern, Danke für die Rückmeldung owT
01.04.2016 09:28:02
Michael

AW: Gern, Danke für die Rückmeldung owT
01.04.2016 09:59:07
baschti007
Ah ich habe noch ein Kleines Problem =). Wenn ich nur eine Zelle markiere dann hört der nicht auf das Makro auszuführen und will alle Zellen mit einem X versehen gibt es dafür auch noch eine Lösung ?
Gruß Basti

Anzeige
Kann ich zwar nicht nachvollziehen,...
04.04.2016 19:20:08
Michael
... Denn nur beim Auswählen einer Zelle greift mein oben angegebener Code nicht.
?

AW: Worksheet_BeforeRightClick then...
31.03.2016 15:29:12
Daniel
HI
das musst du dann schon jede Zelle einzeln betrachten:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Zelle as Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
For Each Zelle in Intersect(Target, Range("A:A"))
Zelle.Value = IIF(Zelle.Value = "", "x", "")
Next
End If
End Sub
Gruß Daniel

Anzeige
AW: Worksheet_BeforeRightClick then...
31.03.2016 15:30:54
EtoPHG
Hallo Basti,
Eine Bitte: Kannst du nächstes mal versuchen ganze, deutsche, verständliche Sätze mit Interpunktionen zu bilden?
Versuch es so: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rC As Range
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
Cancel = True
For Each rC In Intersect(Target, Columns(1))
If IsEmpty(rC) Then
rC = "x"
Else
rC.ClearContents
End If
Next rC
End Sub
Gruess Hansueli

Anzeige
AW: Worksheet_BeforeRightClick then...
01.04.2016 07:19:24
baschti007
Danke =)
Ich werde mein bestes versuchen .
Ein schönes Wochenende dir.
;

Forumthreads zu verwandten Themen

Worksheet_BeforeRightClick
Timo

Hallo,
ich hab folgenden Code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub
Nachdem ich mir über die Userform Inhalte in die aktive Zelle geschrieben habe wird die Userform wieder geschlossen. Doch nun ist das Kontexmenu n...
27.11.2008 14:52:00
Thread-ID: 1028398
3 Beiträge
Anzeige
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
Anzeige
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
Worksheet_BeforeRightClick Problem
Martin

Hallo zusammen
mit einem Worksheet_BeforeRightClick blende ich ein weiteres Tabellenblatt ein und selektiere es. Leider erscheint dann im selektierten Blatt immer gleich das normale Rechtsklick-Menü (mit Kopieren, Einfügen, Formatieren etc.). Wie kann ich das ausschalten trotz dem Worksheet...
28.06.2011 09:44:21
Thread-ID: 1219981
4 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
Uf öffnet aus Worksheet_BeforeDoubleClick
Thorsten_Z

Moin liebes Forum,
Ich brauche einmal Hilfe!
Folgender Code öffnet mir durch Doppelklick in Spalte A des Tabellenblattes die Userform5. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [A:A]) Is Nothing Then Userform5.Show Cancel...
12.09.2014 20:58:28
Thread-ID: 1381413
8 Beiträge
Anzeige
BeforeDoubleClick vs freigegebene Mappe
MB12

Hallo zusammen,
nachdem ich heute eine - mit eurer Unterstützung - neu erstellte Planungsdatei veröffentlicht und freigegeben habe (ca 15 Teamleiter werden die Datei bearbeiten), musste ich feststellen, dass diese Lösungen nicht mehr funktionieren:
'Detailzellen einfärben – alle Einträ...
26.09.2016 19:13:45
Thread-ID: 1516507
12 Beiträge
Worksheet_BeforeRightClick
Edwin

Hallo,
ich starte über Worksheet_SelectionChange einige Formulare und möchte jetzt noch in Worksheet_BeforeRightClick noch weitere Formulare packen.
Wenn ich jetzt aber auf dem Sheet einen Rechtsklick mache, dann drängeln sich die Formulare von Worksheet_SelectionChange vor. Erst wenn i...
30.03.2017 19:52:07
Thread-ID: 1550413
6 Beiträge
AddIn WorkbookBeforeDoubleClick
Mathias

Hallo*,
ich habe eine Aufgabe, bei der ich nicht weiterkomme.
Ich möchte das Ereignis WorkbookBeforeDoubleClick, welches im AddIn gespeichert ist in der Datei, die das AddIn geladen hat ansteuern.
Der Anwender soll auf Spalte 1 oder Spalte 2 des Tabellenblattes doppelt klicken. Dies...
02.03.2018 18:31:28
Thread-ID: 1611999
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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