Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ereignis auslösen

Ereignis auslösen
24.09.2005 18:40:34
Basti
Hallo zusammen,
kann ich eigentlich ein Ereignis auslösen wenn ich eine Zelle anklicke
also z.B. wenn a1 angeklickt wird, das dann Userform1 startet
Gruß Basti

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ereignis auslösen
24.09.2005 18:48:40
Klaus-Dieter
Hallo Basti,
mit diesem Makro im Modul des Tabellenblattes geht es:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range("A1") Then UserForm1.Show
End Sub

Viele Grüße Klaus-Dieter

Online-Excel
AW: Ereignis auslösen
24.09.2005 19:52:51
Basti
Hmm dieser Code funzt nicht
Gruß Basti
AW: Ereignis auslösen
24.09.2005 19:54:16
Klaus-Dieter
Hallo Basti,
im ersten Beitrag war von Zelle A1 die Rede. :-(
Dann versuche es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then UserForm1.Show
End Sub

Viele Grüße Klaus-Dieter

Online-Excel
Anzeige
AW: Ereignis auslösen
24.09.2005 20:08:55
Basti
Hallo Klaus- Dieter
das war es, das ganze funktioniert jetzt mit:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 And ActiveCell.Value <> "" Then
UserForm7.Show
Range("e5").Select
Else
If Target.Column = 5 Then
Range("e5").Select
End If
End If
End Sub

Vielen Dank, Gruß Basti
AW: Ereignis auslösen
24.09.2005 20:16:37
Klaus-Dieter
Hallo Basti,
meine Version funktioniert auch. Aber wenn sie dir zu kurz ist, kannst du auch deine nehmen. ;-)
https://www.herber.de/bbs/user/26895.xls
Viele Grüße Klaus-Dieter

Online-Excel
Anzeige
AW: Ereignis auslösen
24.09.2005 20:28:16
Basti
Hallo Klaus Dieter
natürlich funzt das, ich habe nur noch ein paar Bedingungen hinzugefügt und verhindere duch diesen Code zusätzlich das das Ereignis Doppelklick für diese Zelle im Anschluß wirklich durchgeführt wird. Das möchte ich nämlich nicht
Gruß Basti
AW: Ereignis auslösen
24.09.2005 18:50:23
Peter
Servus,
einmal anklicken nur unter immensen Umständen.
Wenn Doppelklick kein Prob darstellt, recht simpel.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A1" Then
userform1.Show
Else
Cancel = True
End If
End Sub

MfG Peter
Anzeige
AW: Ereignis auslösen
24.09.2005 19:48:57
Basti
Hmmm scheinbar habe ich das unterschätzt, wollte denn Code umstellen aber bekomm es nicht hin,
eigentlich soll die Userform geöffnet werden wenn eine beliebige Zelle in Spalte E, aber auch nur dann wenn in dieser Zelle was eingetragen ist (If activecell.value "" then). Allerdings bekomm ich das nicht hin.
Gruß Basti
AW: Ereignis auslösen
24.09.2005 20:12:30
Leo
Hi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 5 Then
If Len(Target) > 0 Then userform1.Show
End If
End If
End Sub

mfg Leo
AW: Ereignis auslösen
24.09.2005 20:22:56
Basti
Hallo Leo,
so gehts auch
Vielen Dank, Gruß Basti
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige