Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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.

Anzeige
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.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Doppelklick auf unterschiedliche Zellen in Excel


Schritt-für-Schritt-Anleitung

Um einen Doppelklick auf zwei unterschiedliche Zellen in Excel zu programmieren, musst Du die Ereignisprozedur Worksheet_BeforeDoubleClick in VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle das entsprechende Arbeitsblatt:

    • Im Projekt-Explorer (links) wähle das Arbeitsblatt aus, in dem Du die Doppelklick-Funktion implementieren möchtest.
  3. Füge den folgenden Code ein:

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
  1. Schließe den VBA-Editor und teste die Funktion.

Häufige Fehler und Lösungen

  • Fehler: "Mehrdeutiger Name: Worksheet_Before..."

    • Lösung: Stelle sicher, dass Du nur eine Worksheet_BeforeDoubleClick-Prozedur im jeweiligen Arbeitsblatt hast. Wenn mehrere vorhanden sind, kann Excel nicht erkennen, welche verwendet werden soll.
  • Problem: Doppelklick funktioniert nicht auf der richtigen Zelle.

    • Lösung: Überprüfe, ob die Bedingungen in den If-Anweisungen korrekt sind. Achte darauf, dass die Spalten- und Zeilenindizes stimmen.

Alternative Methoden

Falls Du eine andere Methode ausprobieren möchtest, um Doppelklicks in Excel zu verarbeiten, könntest Du auch Makros verwenden, die über Schaltflächen ausgelöst werden. Dies kann besonders nützlich sein, wenn Du nicht möchtest, dass ein Doppelklick in einer Zelle eine Aktion auslöst.


Praktische Beispiele

  1. Beispiel für Doppelklick auf Zelle A1:

    • Wenn Du auf Zelle A1 doppelt klickst, wird der Inhalt in die Zelle M2 des Worksheets "Output_K" übertragen.
  2. Beispiel für Doppelklick auf Zelle C1:

    • Ein Doppelklick auf C1 überträgt den Wert in die Zelle M2 des Worksheets "Output_R".

Diese Beispiele zeigen, wie Du Doppelklicks für unterschiedliche Zellen in Excel programmieren kannst.


Tipps für Profis

  • Optimierung: Du kannst die Bedingungen in den If-Anweisungen erweitern, um weitere Zellen oder Bedingungen hinzuzufügen.
  • Debugging: Verwende Debug.Print in Deinem Code, um die Werte von Target zu überprüfen, falls Du auf unerwartete Ergebnisse stößt.
  • Benutzerfreundlichkeit: Erstelle Hinweise oder Tooltips, um den Benutzern zu zeigen, welche Zellen für Doppelklicks vorgesehen sind.

FAQ: Häufige Fragen

1. Wie kann ich die Doppelklick-Funktion auf andere Zellen erweitern? Du kannst einfach weitere If-Anweisungen hinzufügen, um unterschiedliche Aktionen für andere Zellen zu definieren.

2. Funktioniert dies in allen Excel-Versionen? Ja, die Verwendung von VBA zur Programmierung von Doppelklicks funktioniert in den meisten Excel-Versionen, die VBA unterstützen (z.B. Excel 2010 und später).

3. Was ist, wenn ich die Doppelklick-Funktion wieder deaktivieren möchte? Du kannst die Prozedur einfach aus dem VBA-Editor löschen oder vorübergehend auskommentieren, indem Du ein ' am Anfang der Zeilen hinzufügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige