Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
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
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige