xlDialog zeigen, Code kürzen
26.03.2022 09:32:55
Dieter(Drummer)
in der Bespieldatei (anbei) sind xlDialoge, B6:B264, mit Wert und Beschreibung gelistet.
Wenn ich eine Zelle, z.B. Zelle B7 den Mauszeiger setzte, soll bei Klick auf den blauen Button, der den Code "test_Mx" unter Tabellenblatt1 ausführt, der entsprechende xlDialog, hier "xlDialogActiveCellFont", Wert 476, gezeigt werden. Das geht mit meinem Code:
Sub test_Mx()
Cells(2, 3) = ActiveCell
Application.Dialogs(Cells(2, 3)).Show
End Sub
https://www.herber.de/bbs/user/152050.xlsm
Leider wird der Wert erst aus der aktiven Zelle, Spalte A, in "Cells(2,3) gesetzt und dann der Wert aus C2 genommen und der xlDialog wird gezeigt.
Ich suche einenn kürzeren Code, der direkt aus der aktiven Celle, per Klick auf den blauen Button, den xlDialog zeigt. Meine Vesuche haben nicht funktiioniert.
Mit der Bitte Hilfe zum kürzeren Code, grüßt
Dieter(Drummer)