Ereignis auslösen

Forumthread: Ereignis auslösen

Ereignis auslösen

24.09.2005 20: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

AW: Ereignis auslösen

24.09.2005 20:48:40

Klaus-Dieter
AW: Ereignis auslösen

24.09.2005 21:52:51

Basti
AW: Ereignis auslösen

24.09.2005 21:54:16

Klaus-Dieter
AW: Ereignis auslösen

24.09.2005 22:08:55

Basti
AW: Ereignis auslösen

24.09.2005 22:16:37

Klaus-Dieter
AW: Ereignis auslösen

24.09.2005 22:28:16

Basti
AW: Ereignis auslösen

24.09.2005 20:50:23

Peter
AW: Ereignis auslösen

24.09.2005 21:48:57

Basti
AW: Ereignis auslösen

24.09.2005 22:12:30

Leo
AW: Ereignis auslösen

24.09.2005 22:22:56

Basti

AW: Ereignis auslösen

24.09.2005 20: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 21:52:51

Basti

Hmm dieser Code funzt nicht
Gruß Basti

AW: Ereignis auslösen

24.09.2005 21: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

AW: Ereignis auslösen

24.09.2005 22: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 22: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

AW: Ereignis auslösen

24.09.2005 22: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 20: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

AW: Ereignis auslösen

24.09.2005 21: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 22: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 22:22:56

Basti

Hallo Leo,
so gehts auch
Vielen Dank, Gruß Basti

Forumthread: Ereignis auslösen

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

VBA Beispiele zu diesem und ähnlichen Themen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread