Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: bei Doppelklick Makro ausführen

bei Doppelklick Makro ausführen
24.04.2008 20:55:00
Marco
hallo an alle,
habe folgenden code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a As Range
Dim b As Range
Set a = Tabelle1.Range("M3:M18")
Set b = Tabelle1.Range("N3:N18")
Set c = Union(a, b)
If Intersect(c, Target) Is Nothing Then Exit Sub
If Target = Range("M3:M18") Then Call mail
If Target = Range("N3:N18") Then Call folgemail
Cancel = True
End Sub


nun meine frage.
ich möchte wenn auf eine zelle im bereich m3 bis m18 doppelklicke, eine bestimmte aktion ausführen.
wenn eine zelle im bereich n3 bis n18 doppelgeklickt wird, soll eine andere aktion ausgeführt werden.
kann man den code dementsprechend umstellen.
danke für eure hilfe.
grüße
marco

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bei Doppelklick Makro ausführen
24.04.2008 21:00:45
Reinhard
Hi Marco,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("M3:N18")) Is Nothing Then Exit Sub
If Target.Column = 13 Then
Call Makro1
Else
Call makro2
End If
End Sub


Gruß
Reinhard

Anzeige
AW: bei Doppelklick Makro ausführen
24.04.2008 21:05:00
Marco
hallo reinhard,
funktioniert.
vielen dank und schönen abend noch.
grüße
marco
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Doppelklick in Excel: Makros ausführen mit VBA


Schritt-für-Schritt-Anleitung

Um ein Makro bei einem Doppelklick auf eine Zelle in Excel auszuführen, kannst Du den folgenden VBA-Code verwenden. Dieser Code reagiert auf Doppelklicks in einem bestimmten Zellbereich.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle das Arbeitsblatt aus, in dem Du den Code anwenden möchtest.
  3. Füge den folgenden Code in das Codefenster des Arbeitsblatts ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("M3:N18")) Is Nothing Then Exit Sub
    If Target.Column = 13 Then
        Call Makro1
    Else
        Call Makro2
    End If
    Cancel = True
End Sub
  1. Ersetze Makro1 und Makro2 durch die Namen Deiner eigenen Makros, die Du ausführen möchtest.
  2. Schließe den VBA-Editor und teste den Doppelklick auf die Zellen im Bereich M3 bis N18.

Häufige Fehler und Lösungen

  • Fehler: Makro wird nicht ausgeführt.
    Lösung: Stelle sicher, dass das Makro aktiviert ist und dass Du den richtigen Zellbereich für den Doppelklick definiert hast.

  • Fehler: Doppelklick wird nicht erkannt.
    Lösung: Prüfe, ob Du im richtigen Arbeitsblatt bist und dass der Code im entsprechenden Codefenster eingefügt wurde.

  • Fehler: Der Code läuft nicht.
    Lösung: Achte darauf, dass der Excel-Schutz nicht aktiv ist und dass Du in einer Makro-fähigen Datei (z.B. .xlsm) arbeitest.


Alternative Methoden

Eine andere Methode, um bei einem Doppelklick auf eine Zelle eine Aktion auszuführen, ist die Verwendung von Formeln oder bedingter Formatierung. Allerdings sind diese Methoden nicht so flexibel wie VBA, wenn es darum geht, spezifische Makros auszuführen.


Praktische Beispiele

Hier sind einige praktische Beispiele für Makros, die Du in Verbindung mit dem Doppelklick verwenden kannst:

  • Makro zur E-Mail-Versendung:

    Sub Mail()
      ' Code zum Versenden einer E-Mail
    End Sub
  • Makro zur Erstellung eines Berichts:

    Sub Folgemail()
      ' Code zur Erstellung eines Berichts
    End Sub

Diese Makros kannst Du anpassen, um spezifische Aktionen auszuführen, die für Deine Anforderungen relevant sind.


Tipps für Profis

  • Nutze die Cancel-Eigenschaft, um die Standardaktion des Doppelklicks (z.B. die Bearbeitung der Zelle) zu verhindern.
  • Vermeide es, zu viele Bedingungen in einem einzigen Doppelklick-Event zu verwenden, um die Lesbarkeit und Wartbarkeit des Codes zu erhöhen.
  • Experimentiere mit verschiedenen Zellbereichen, um die Funktionalität zu erweitern.

FAQ: Häufige Fragen

1. Wie kann ich den Doppelklick auf eine ganze Zeile erkennen?
Du kannst die Target-Eigenschaft anpassen, um zu überprüfen, ob eine ganze Zeile betroffen ist, indem Du Target.Row verwendest.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die Makros unterstützen (z.B. Excel 2010 und später).

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige