Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
588to592
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppeklick auf Zellen oder Bereiche beschränken.

Doppeklick auf Zellen oder Bereiche beschränken.
22.03.2005 16:18:35
Horst
Hallo liebe VBA-Gemeinde,
mit Application.Doppelklick = "Name" kann man den Doppelklick einer anderen Funktion zuordnen (statt der direkten Zellbearbeitung).
Nun meine Frage:
Kann man das auch auf eine bestimmte Zelle oder Bereich beschränken ?
Schwierige Frage, oooderrrr ? Falls nicht, gibt es einen "Workaround" ?
Gruß,
Horst

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppeklick auf Zellen oder Bereiche beschränken.
22.03.2005 16:53:07
ransi
hallo horst
schau mal ob du hiermit was anfangen kannst.
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Range("a1:b10")) Is Nothing Then Exit Sub
Cancel = True
Call makro
End Sub

Public Sub makro()
MsgBox "Ich bin ein Makro"
End Sub
der code muss in ein tabellenblatt. Nicht in ein modul.
ransi
AW: Doppeklick auf Zellen oder Bereiche beschränke
22.03.2005 17:50:47
Horst
Hallo Ransi, (cc. Boris)
schön, dass Du mir wieder antwortest.
Was meinst Du mit: "der code muss in ein tabellenblatt. Nicht in ein modul."
In meiner ersten selbst ausgetüftelten Version hatte ich den ersten Teil des Codes:
"Application.OnDoubleClick = "Get_Chart" ... usw " als Event-Trigger in "Tabelle1"
und das aufzurufende Sub in "Modul1". Das hat funktioniert, allerdings für alle Zellen.
Wenn ich jetzt Dein:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, Range("a1:b10")) Is Nothing Then Exit Sub
Cancel = True
Call Get_Chart
End Sub

in "Tabell1" lege, und meine Call-Prozedur in "Modul1" belasse, dann reagiert VBA nicht.
Ähnlich geht es mir mit dem Vorschlag von Dir, Boris. Deinen Code habe ich allerdings in "Klassenmodul1" kopiert und meine Call-Prozedur wieder in "Modul1".
Beide Varianten erzeugen keine Reaktion beim Doppelklick auf eine Zelle in dem angegebenen Bereich, statt dessen wird die Zellbearbeitung aktiviert.
Was kann ich falsch gemacht haben ?
Horst
Anzeige
AW: Doppeklick auf Zellen oder Bereiche beschränke
22.03.2005 18:01:18
Boris
Hi Horst,
Ähnlich geht es mir mit dem Vorschlag von Dir, Boris. Deinen Code habe ich allerdings in "Klassenmodul1" kopiert und meine Call-Prozedur wieder in "Modul1".
Letzteres (Modul1) ist korrekt, das "Klassenmodul1" wiederum nicht.
Links im Projektexplorer findest du deine Arbeitsmappe - und zudem die Namen der vorhandenen Tabellenblätter.
Doppelklick auf DAS Tabellenblatt, in dem der Code laufen soll. Und diese Tabellenblätter nennt man eben auch "Klassenmodule".
Grüße Boris
AW: Doppeklick auf Zellen oder Bereiche beschränke
22.03.2005 18:22:36
Horst
Hallo Ihr Beiden,
das kommt davon, wenn man keine Ahnung hat ! Jetzt habe ich eine Version für Sonntags und eine für die Woche (hihi). Beide laufen perfekt.
Vielen Dank für Eure prompte Hilfe (bis zur nächsten Hürde).
Gruß,
Horst
Anzeige
AW: Doppeklick auf Zellen oder Bereiche beschränken.
22.03.2005 17:00:26
Boris
Hi Horst,
im Klassenmodul der entsprechenden Tabelle:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim str As String
str = "A1,C1:C10,E5,F1:G5" 'Bereiche, für die sonst_was aufgerufen werden soll
Cancel = Not Intersect(Target, Range(str)) Is Nothing
If Cancel Then Call sonst_was 'sonst_was ist irgendeine Sub
End Sub

Grüße Boris

302 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1