Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Doppelklick Makrobefehl ausführen

Forumthread: Bei Doppelklick Makrobefehl ausführen

Bei Doppelklick Makrobefehl ausführen
21.05.2007 01:02:49
Lena

Hallo...
Hallo ...
Bei mir hat z.B Zelle A1 den Namen "AAA", die Zelle A2 "BBB" usw.
Analog zu Zelle mit Namen "AAA" gibt es den Makro ebenfalls mit Namen"AAA". Bei "BBB" das selbe usw.
Nun möchte ich, dass bei Doppelklick auf die Zelle der dazugehörige Makro abläuft.
Wär super, wenn mir jemand weiterhelfen könnte.
Beste Grüße
Lena

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Doppelklick Makrobefehl ausführen
21.05.2007 01:33:00
Daniel
Hallo
im Prinzip mit diesem Makro
es gehört ins Modul der entsprechenden Tabelle.
die benannten Makros müssen im allgemeinen MODUL1 stehen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim NA As Name
For Each NA In Application.Names
If NA.RefersToRange.Address = Target.Address And NA.RefersToRange.Parent.Name = Me.Name  _
Then
On Error GoTo Fehler1
Application.Run "'" & ThisWorkbook.Name & "'!Modul1." & NA.Name
On Error Resume Next
End If
Next
Exit Sub
Fehler1:
MsgBox "Makro " & NA.Name & " existiert nicht."
End Sub


Gruß, Daniel

Anzeige
AW: Bei Doppelklick Makrobefehl ausführen
21.05.2007 09:06:05
Lena
Hallo Daniel,
Schon mal vielen Dank. Aber es klappt nicht. " ' " muss ich doch nur mit meinem Makronamen (AAA) ersetzen?
Hab mal probehalber aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sub makro1 gemacht um den Makro in Einzelschritten abzugehen (ob man daraus was schließen kann. weiß ich nicht).
Die Zeile:
If NA.RefersToRange.Address = Target.Address And NA.RefersToRange.Parent.Name = Me.Name _
wird schon übersprungen gleich nach Exit sub. Müsste ja heißen, dass "AAA" nicht existiert. Die MsgBox geht aber auch nicht auf.
Was müsste ich denn da noch abändern?
Beste Grüße
Lena

Anzeige
AW: Bei Doppelklick Makrobefehl ausführen
22.05.2007 00:42:10
Daniel
Hallo
du hast da was verwechselt.
wenn du schreibst, die Zelle hat einen NAMEN, dann ist das gemeint, was man unter EINFÜGEN-NAMEN-DEFINIEREN für einen bestimmten Zellbereich festlegt.
Darauf ist mein Marko auch ausgelegt.
Wenn aber das Makro von Jan3 bei dir funktioniert, dann hat die Zelle nicht den NAMEN "aaa" sondern den WERT "aaa".
Damit geht mein Makro natürlich nicht.
in diesem Fall kannst du auch folgendes verwenden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.Run "'" & ThisWorkbook.Name & "'!Modul1." & ActiveCell.Value
On Error GoTo 0
End Sub


hat den Vorteil, daß du das Marko nicht mehr anpassen musst, wenn du neue Makros hinzufügst, bzw dir einiges an Tipparbeit spart, wenn du viele Makros hast.
Gruß, Daniel

Anzeige
AW: Bei Doppelklick Makrobefehl ausführen
22.05.2007 01:07:43
Lena
auch Danke, werde es auch ausprobieren.
Lena

AW: Bei Doppelklick Makrobefehl ausführen
21.05.2007 14:04:00
Jan3
Hi,
Im Tabellenblatt folgenden Code eintragen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "AAA" Then
AAA
End If
If ActiveCell = "BBB" Then
BBB
End If
If ActiveCell = "CCC" Then
CCC
End If
End Sub


AAA, BBB und CCC sind die Makros in einem Modul dieser Arbeitsmappe.
Jan

Anzeige
AW: Bei Doppelklick Makrobefehl ausführen
21.05.2007 23:40:00
Lena
Hallo Jan,
Allerbesten Dank! Klappt! Hätt ich ohne dich nicht hinbekommen!
Gruß
Lena
;

Forumthreads zu verwandten Themen

Automatischer Eintrag durch Doppelklick auf Zelle
Micha

Hallo liebe Spezialisten,
nachdem mir vorhin so Super in diesem Forum geholfen wurde, hier gleich die nächste Frage:
Ist es möglich, das in einem bestimmten Tabellenbereich mir durch einen Doppelklick auf eine Zelle automatisch ein "x" in diese Zelle eingegeben wird?
Würde mich über...
12.02.2009 14:30:00
Thread-ID: 1050071
6 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Doppelklick auf zelle mit eigenem Namen
chris

Hallo VBA Experten,
habe hier eina kurze frage.
Würde mich wie immer über Hilfe freuen.
Ich habe eine Zelle Z.b L8
diese zelle hat den Namen "testzelle_8"
Ist es jetzt möglich irgendwie an diesen Namen zu kommen.
Also wenn ich die zelle Doppelklicke das dann der Name aus...
09.03.2010 15:42:23
Thread-ID: 1144625
11 Beiträge
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
Doppelklick auf farbige Zelle filtert Tabelle mit
Tobias

Hallo,
ich suche nach einer Möglichkeit um folgendes zu erreichen:
doppelklick auf eine blaue Zelle (im Original durch bedingte Formatierung gefärbt):
1. springt excel in ein anderes Tabellenblatt
2. filtert eine Liste mit dem entsprechenden Kriterium
Die genaue Beschreibung...
21.11.2012 15:00:10
Thread-ID: 1287591
8 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
Doppelklick-Event nur auf ungeschützter Zelle
Marcus

Liebe Expertenrunde,
derzeit knabbere ich an einem kleinen Problem.
Folgende Situation: In einem geschützten Tabellenblatt (der Benutzer darf nur ungeschützte Zellen auswählen) ist nur eine Spalte ungeschützt.
Bei der Bewegung mit den Cursor-Tasten und nach erfolgten Eingaben bleibt...
28.03.2013 03:23:00
Thread-ID: 1306269
4 Beiträge
Mit Doppelklick auf eine Zelle Word öffnen und Inh
Sören

Hallo, trotz Fußballfieber habe ich eine Frage:
Ich möchte meine Adressdatei in Excel so erweitern, dass sich durch Doppelklick auf eine Zelle der Inhalt der ganzen Zeile in ein Worddokument überträgt. Das Worddokument soll sich durch den Doppelklick öffnen und die Daten aus der Excel sollen...
30.06.2002 11:11:52
Thread-ID: 132505
7 Beiträge
Anzeige
Doppelklick auf Zelle .. Fehler wenn Wert Leer
Sabrina

Hallo Leute,
Ich habe in dem Bereich A5:T18 sowie A24:T40 per Formel Zahlen ( oder leer ) drinnen stehen.
Wenn man ein Doppelklick drauf macht soll der Inhalt in die Zelle A19 geschrieben werden.
Ich habe Fundstücke zusammengesucht. Es funktioniert außer wenn die Zelle leer ist....
11.10.2015 13:15:11
Thread-ID: 1451738
4 Beiträge
Zellen bei abgelaufenem Datum sperren mit VBA
Andreas

Hallo zusammen,
ich habe heute ein kleines Problem.
Ich habe einen Kalender und möchte dass ab dem abgelaufenen Datum (gestern) keine Einträge mehr eingetragen oder gelöscht werden.
Eintragen kann ich über die Datenüberprüfung lösen, allerdings mag ich die Meldung nicht, die ersche...
23.06.2016 10:40:46
Thread-ID: 1500507
18 Beiträge
VBA Focus auf Zelle in Zeile überspringen
Peer

Hallo.
Ich versuche gerade über VBA folgendes Ereignis zu erzeugen, scheitere aber mangels Wissen daran.
Vielleicht findet von Euch jemand den Fehler oder/und weiß eine bessere Lösung.
Ich möchte bei Auswahl ab Zeile 10 in der Spalte 4, dass der Focus auf in derselben Zeile auf die...
09.08.2017 12:10:35
Thread-ID: 1573445
11 Beiträge
VBA - verweisen auf Wert in Zelle
Fred

Hallo VBA & Excel Profis,
ich möchte den Bereich A1532:N - letzte Zeile löschen.
"Normalerweise" schreibe ich LZ = Sheets("Basis").Cells(Rows.Count, 1).End(xlUp).Row - 0 Sheets("Basis").Range("A1532:N" & LZ).ClearContents
Nun möchte ich allerdings, dass "A1532" nicht im Co...
27.06.2019 14:37:19
Thread-ID: 1699774
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Doppelklick auf Zelle: Makrobefehl ausführen in Excel VBA

Schritt-für-Schritt-Anleitung

Um einen Makrobefehl bei einem Doppelklick auf eine Zelle in Excel auszuführen, gehst Du wie folgt vor:

  1. Öffne die Excel-Arbeitsmappe, in der Du die Funktion implementieren möchtest.

  2. Klicke mit der rechten Maustaste auf den Tab des Arbeitsblatts und wähle "Code anzeigen".

  3. Füge den folgenden Code in das Modul des Arbeitsblatts ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim NA As Name
   For Each NA In Application.Names
       If NA.RefersToRange.Address = Target.Address And NA.RefersToRange.Parent.Name = Me.Name Then
           On Error GoTo Fehler1
           Application.Run "'" & ThisWorkbook.Name & "'!Modul1." & NA.Name
           On Error Resume Next
       End If
   Next
   Exit Sub
Fehler1:
   MsgBox "Makro " & NA.Name & " existiert nicht."
End Sub

  4. Achte darauf, dass die Makros im Modul "Modul1" definiert sind.

  5. Speichere die Arbeitsmappe als Makro-fähige Datei (.xlsm).

Häufige Fehler und Lösungen

  • Fehler: "Makro existiert nicht."

    • Überprüfe, ob der Name des Makros richtig geschrieben ist und im Modul 1 vorhanden ist.

  • Zelle hat einen Wert, nicht einen Namen.

    • Wenn Du die Zelle mit einem Wert (z.B. "AAA") ansprechen möchtest, verwende den folgenden Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   On Error Resume Next
   Application.Run "'" & ThisWorkbook.Name & "'!Modul1." & ActiveCell.Value
   On Error GoTo 0
End Sub

Alternative Methoden

Eine alternative Methode, um Doppelklicks in Excel VBA zu verarbeiten, ist das Eintragen spezifischer Bedingungen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell = "AAA" Then
        AAA
    ElseIf ActiveCell = "BBB" Then
        BBB
    ElseIf ActiveCell = "CCC" Then
        CCC
    End If
End Sub

In dieser Methode wird direkt auf die Werte der Zellen reagiert.

Praktische Beispiele

  • Beispiel 1: Makro für "AAA" ausführen

    Wenn Du einen Doppelklick auf die Zelle mit dem Wert "AAA" machst, wird das Makro "AAA" ausgeführt.

  • Beispiel 2: Unterschiedliche Makros für verschiedene Zellen

    Du kannst verschiedene Makros für unterschiedliche Zellen definieren, indem Du die Werte entsprechend anpasst und die oben genannten Bedingungen anwendest.

Tipps für Profis

  • Namen für Zellen verwenden: Definiere Namen für Deine Zellen (über "EINFÜGEN" → "NAMEN" → "DEFINIEREN"), um die Verwaltung Deiner Makros zu erleichtern.
  • Fehlerbehandlung: Nutze die On Error-Anweisung, um dem Benutzer klare Rückmeldungen zu geben, falls etwas schiefgeht.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass mein Makro immer funktioniert? Überprüfe die Namen Deiner Zellen und stelle sicher, dass sie korrekt in Deinem Makro referenziert werden.

2. Was passiert, wenn ich ein neues Makro hinzufüge? Wenn Du die Methode mit ActiveCell.Value verwendest, brauchst Du das Makro nicht anzupassen, solange der Zellwert dem Namen des neuen Makros entspricht.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige