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

BeforDoubleClick

Forumthread: BeforDoubleClick

BeforDoubleClick
02.12.2003 12:55:58
Daniel
Hallo
Gibt´s die Möglichkeit der Code so zu ändern, dass nur in bestimmten Zellen gültig ist?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
UserForm1.Show
End Sub

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BeforDoubleClick
02.12.2003 12:58:55
GerdW
Beispiel:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
if target.address = $A$1" then
UserForm1.Show
end if
End Sub


Gerd
AW: BeforDoubleClick
02.12.2003 13:03:31
Daniel
Hallo Gerd,
danke für die Antwort.
kann man ein Bereich wählen z.B. A1:B10 ?
Danke
Daniel
Anzeige
AW: BeforDoubleClick
02.12.2003 13:09:27
xXx
Hallo,
siehe meine Antwort.

If not Application.Intersect(Target,Range("A1:B10")) is Nothing Then

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Anzeige
AW: BeforDoubleClick
02.12.2003 13:47:27
Daniel
Danke Udo, hat es geklappt.
Nur eine kleine Frage noch:
Ich will, dass wenn F4:F76 > 0 ist die Userform1 dich öffnet.
Ich habe mit der Code probiert:

Private Sub WorksheetCalculate()
If Range("F4:F76") >0 then
Userform1.Show
end if
End Sub


es funzioniert nicht!!!
was ist da falsch
Ciao Daniel
Anzeige
AW: BeforDoubleClick
02.12.2003 13:10:11
GerdW
Die Antwort von xxx sollte weiterhelfen.

Gerd
AW: BeforDoubleClick
02.12.2003 12:59:59
xXx
Hallo,
so gehts nur nock bei DK auf A1 oder B3


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1"),Range("B3")) is Nothing Then
UserForm1.Show
End If
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Anzeige
;

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