Anzeige
Archiv - Navigation
1308to1312
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
Inhaltsverzeichnis

Doppelklick auf 2 unterschiedliche Zellen

Doppelklick auf 2 unterschiedliche Zellen
23.04.2013 15:26:20
Peter
Hallo zusammen,
ich möchte innerhalb einer Tabelle einmal mit einem Doppelklick in der Spalte "A" auf das Sheet Output_K wechseln und bei einem Doppelklick auf Zelle C1 auf das Sheet Output_R. Einzeln geht das wohl, aber so kommt die Meldung "Mehrdeutiger Name: Worksheet_Before...." Wollte das zusammen bauen, kriege es aber leider nicht hin.
Wer kann mir bitte die richtige Syntax geben? Danke im voraus.
Gruß Peter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Worksheets("Output_K").Range("m2") = Target.Value
Cancel = True
Sheets("Output_K").Select
End If
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Row = 1 Then
Worksheets("Output_R").Range("M2") = Target.Value
Cancel = True
Sheets("Output_R").Select
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
Häng die beiden IF's untereinander, in
23.04.2013 15:28:30
EtoPHG
eine einzige Ereignisprozedur, Peter
Gruess Hansueli

AW: Häng die beiden IF's untereinander, in
23.04.2013 15:36:59
Peter
Hallo Hansueli, genau das versuche ich ja, mache aber irgendetwas falsch, da das 2. Ereignis nicht greift. Kannst Du mir bitte genau sagen, wo das 2. If hin muss.
Gruß Peter

Genau? ist anscheinend nicht genau
23.04.2013 15:39:50
EtoPHG
so:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Worksheets("Output_K").Range("m2") = Target.Value
Cancel = True
Sheets("Output_K").Select
End If
If Target.Column = 3 And Target.Row = 1 Then
Worksheets("Output_R").Range("M2") = Target.Value
Cancel = True
Sheets("Output_R").Select
End If
End Sub
Gruess Hansueli

Anzeige
AW: Doppelklick auf 2 unterschiedliche Zellen
23.04.2013 15:39:47
Klaus
Hi Peter,
du denkst zu viel :-)
einfach untereinander:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Worksheets("Output_K").Range("m2") = Target.Value
Cancel = True
Sheets("Output_K").Select
End If
If Target.Column = 3 And Target.Row = 1 Then
Worksheets("Output_R").Range("M2") = Target.Value
Cancel = True
Sheets("Output_R").Select
End If
End Sub
Grüße,
Klaus M.vdT.

AW: Doppelklick auf 2 unterschiedliche Zellen
23.04.2013 15:43:40
Peter
Es funkt. Ja, Ihr habt recht. Habe mich ganz blöd vertan, sorry.
Danke euch Beiden.
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige