Ereignis, bei Doppelklick bestimmtes Feld anspring

Forumthread: Ereignis, bei Doppelklick bestimmtes Feld anspring

22.06.2007 16:26:05

Peter

Hallo
Ich brauche etwas Nachhilfeunterricht für eine Ereignisprozedur.
In einer Tabelle stehen in Spalte A verschiedene Zahlen, z.B. in
Zeile 1: 5
Zeile 2:13
Zeile 3: 55
Zeile 4: 111
Zeile 5: 202
Nun möchte ich, dass bei Doppelklick auf das Feld A2 die Zelle D13 in der Tabelle "Journal" angeesprungen wird. Bei einem Doppelklick auf Feld A5 soll in der Tabelle "Journal" die Zelle D202 angewählt werden.
In der Spalte A können Einträge bis Zeile 500 enthalten sein; immer soll die entsprechende Zelle in der Tabelle "Journal" angewählt werden.
Bin gespannt auf Feedback.
Danke, Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ereignis, bei Doppelklick bestimmtes Feld ansp

22.06.2007 16:43:27

Renee

Mazwara Peter,
Kopier diesen Code in Dein Tabellenblatt:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, ActiveSheet.Range("A1:A500")) Is Nothing Then Exit Sub
If Int(Val(Target.Value)) = Target.Value _
And Target.Value

Greetz Renee

AW: Ereignis, bei Doppelklick bestimmtes Feld ansp

22.06.2007 16:58:00

Peter

Hallo Renee
Das ist aber super, genau wie gewünscht. Nur "Mazwara" habe ich nicht verstanden ...
Danke vielmals und Gruss, Peter

AW: Ereignis, bei Doppelklick bestimmtes Feld anspring

22.06.2007 16:47:05

Andi

Hi,
zB so:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Sheets("Journal").Activate
Sheets("Journal").Range("D" & CStr(Target.Value)).Select
Cancel = True
End If
End Sub

Schönen Gruß,
Andi

AW: Ereignis, bei Doppelklick bestimmtes Feld ansp

22.06.2007 16:54:17

Renee

Mein Code hat noch den Fehler "leere Zelle"
So sollte es besser sein:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, ActiveSheet.Range("A1:A500")) Is Nothing Then Exit Sub
If Int(Val(Target.Value)) = Target.Value _
And Target.Value  0 Then
ThisWorkbook.Sheets("Journal").Select
ActiveSheet.Range("D" & Target.Value).Select
End If
End Sub

Greetz Renee

AW: Ereignis, bei Doppelklick bestimmtes Feld ansp

22.06.2007 17:18:28

Peter

Vielen Dank Renée für diese Verbesserung
und auch den anderen, die so schnell reagiert haben!
Peter

Beliebteste Forumthreads (12 Monate)

Ereignis, bei Doppelklick bestimmtes Feld anspring

Forumthread: Ereignis, bei Doppelklick bestimmtes Feld anspring

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Ereignis, bei Doppelklick bestimmtes Feld anspring

Forumthread: Ereignis, bei Doppelklick bestimmtes Feld anspring

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread