[Excel VBA] Script für dynamisches Dropdownmenü will nicht recht

VBAoderichtVBA Gast #6715084
Lesenswert?
• ▲
▼ 
Hey Leute,

Bei einem Excel Sheet will ich gerne ein dynamisches DropDownmenü für 
die Auswahl via rechter Maustaste haben. Warum ich keines von Excel 
verwende -> Weil ich bei den Excel Dropdowns keinen eigenen Text (falls 
benötigt) einfügen kann.

Zur Sache:
Das gewünschte Script wird ausgeführt, aber die Einträge werden nicht 
zugeordnet.
Das erste Script ist ähnlich, wird aber richtig ausgeführt.

Nachvollziehbarkeit:
Excel öffnen und danach entweder in der Spalte C (ab Zeile 2) mit der 
rechten Maustaste aufrufen (Geht).
Was nicht geht: Spalte D ab Zeile 2 mit rechter Maustaste drücken.
Menü wird dann leider nicht aufgrufen.

Wer sich nicht traut das MacroSheet zu öffnen, kann die Macros auch als 
Anhang ansehen.

Mit Dankesschön für ein Feedback verbeibe ich mfgG
Angehängte Dateien:
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Rolf R. #6718720
Lesenswert?
• ▲
▼ 
Ich bin kein Excel VBA Experte. Ich habe mir die Dateien aber mal 
angesehen.

An deiner Stelle würde ich es erst mal mit nur einem Eintrag versuchen 
und damit testen und Änderungen ausprobieren, bis es so funktioniert, 
wie du es haben willst. So, wie ich das interpretiere, wird in deiner 
Version nämlich das gleiche für viele Zellen gemacht. Fang erst mal 
einfach an, dann ist es auch übersichtlicher.
Antwort Zitieren Bearbeiten Löschen Beitrag melden
VBAoderichtVBA Gast #6719613
Lesenswert?
• ▲
▼ 
Gefunden!
Da war ein Call Zurueck zuviel drinnen.
So klappt der Aufruf:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal 
Target As Range, Cancel As Boolean)
If (Sh.Name = "1. Quartal 1.1.-31.3." Or Sh.Name = "2. Quartal 
1.4.-30.6." Or _
Sh.Name = "3. Quartal 1.7.-30.9." Or Sh.Name = "4. Quartal 
1.10.-31.12.") Then
    If Target.Row >= 2 Then
        If Target.Column = 4 Then
            Call KonTextMenu
        Else
            If Target.Column = 5 Then
               Call ArtenMenuee
            Else
                Call Zurueck
            End If
        End If
    Else
        Call Zurueck
    End If
End If
End Sub
Antwort Zitieren Bearbeiten Löschen Beitrag melden
MaWin Gast #6720115
Lesenswert?
• ▲
▼ 
VBAoderichtVBA schrieb:
> Gefunden!
> Da war ein Call Zurueck zuviel drinnen.
> So klappt der Aufruf:
> Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal
> Target As Range, Cancel As Boolean)
> If (Sh.Name = "1. Quartal 1.1.-31.3." Or Sh.Name = "2. Quartal
> 1.4.-30.6." Or _
> Sh.Name = "3. Quartal 1.7.-30.9." Or Sh.Name = "4. Quartal
> 1.10.-31.12.") Then
> If Target.Row >= 2 Then
> If Target.Column = 4 Then
> Call KonTextMenu
> Else
> If Target.Column = 5 Then
> Call ArtenMenuee
> Else
> Call Zurueck
> End If
> End If
> Else
> Call Zurueck
> End If
> End If
> End Sub

Was sagt uns das jetzt?
Genau. Das du unfähig bist und wegen so kleiner Anfängerprobleme gleich 
ein Forum brauchst.
Lass es bleiben !
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt. Bitte hier nur auf die ursprüngliche Frage antworten, für neue Fragen einen neuen Beitrag erstellen.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.