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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellebereich bei DoubleClick

Forumthread: Zellebereich bei DoubleClick

Zellebereich bei DoubleClick
05.06.2007 22:39:00
Dieter.K
Hallo Forum,
ist es prinzipiell möglich nur einen bestimmten Zellbereich (z.B. D5:D20 und E5:E20) dazu zu veranlassen bei einem Doppelklick auf die jeweilige Zelle aus diesem Breich das folgende Makro auszuführen?
(ich möchte verhindern das andere Zellen geändert werden können)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
frmkalk.Show
ActiveSheet.Protect
End Sub


Danke für Eure Info's.
Gruß
Dieter.K

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellebereich bei DoubleClick
05.06.2007 22:46:16
Uduuh
Hallo,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
if not Application.Intersect(Target, Range("D5:E20) is Nothing then
ActiveSheet.Unprotect
frmkalk.Show
ActiveSheet.Protect
end if
End Sub


Gruß aus’m Pott
Udo

Anzeige
AW: Zellebereich bei DoubleClick
05.06.2007 23:03:59
Dieter.K
Hallo Udo!
Danke für Deine Hilfe. Ich habe Deine Zeile etwas korrigiert. (aber nur weil er mir eine Fehlermeldung gebracht hat und ich nicht dumm fragen wollte. War sicher ein Tippfehler ;-)
If Not Application.Intersect(Target, Range("D5:E20")) Is Nothing Then
(habe hinter E:20 das Ausrufezeichen plaziert und die zweite schließende Klammer eingefügt.
Wie müsste die Eingabe lauten, wenn z.B. nur in Spalte D und F (ohne E) die Funktion laufen soll?
Gruß
Dieter.K

Anzeige
AW: Zellebereich bei DoubleClick
05.06.2007 23:08:00
Uduuh
Hallo,
das kommt davon, wenn man den Code direkt im Forum reinhackt und nicht im VB-Editor.
Die ganze Spalte?
select case Target.Column
case 4, 6
'Code
end select
Gruß aus’m Pott
Udo

AW: Zellebereich bei DoubleClick
05.06.2007 23:06:00
Dieter.K
Hallo Udo,
war gerade zu schnell. Hätte besser erst mal weitergesehen:
If Not Application.Intersect(Target, Range("D5:D20, F5:F20")) Is Nothing Then
Zellbereiche durch "Komma" trennen, dann funktioniert es!
Nochmals Danke!
Gruß
Dieter.K

Anzeige
AW: Zellebereich bei DoubleClick
05.06.2007 23:10:44
Uduuh
Hallo,
das liest man gerne: Mitgedacht!
Nicht unbedingt selbstverständlich. Aber nur so geht's
Gruß aus’m Pott
Udo

;

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