Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen

Forumthread: Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen

04.04.2024 17:39:34

{Boris}

Hallo zusammen,

wie kann man den Dialog "Zellen formatieren - Ausfüllen - Weitere Farben - Benutzerdefiniert" am Einfachsten per VBA öffnen?
Gibt`s da einen "direkten" Weg oder muss das via Sendkeys geschehen?

Userbild

Viele Grüße

Boris

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Meine Sendkeys-Variante...

04.04.2024 18:00:34

{Boris}
AW: Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen

04.04.2024 18:11:50

peter
Super!

04.04.2024 18:16:37

{Boris}
AW: Super!

04.04.2024 22:23:00

schauan

Meine Sendkeys-Variante...

04.04.2024 18:00:34

{Boris}

Hallo zusammen,

...sieht bisher wie folgt aus:

Sub Dialog_Hintergrundfarbe_benutzerdefiniert_oeffnen()

With Application

    .SendKeys "%e"

    .SendKeys "{RIGHT}"

    .Dialogs(84).Show

End With

End Sub

Es funktioniert auch - aber falls es einen direkten Aufruf gibt, würde ich den natürlich gerne verwenden :-)

VG, Boris

AW: Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen

04.04.2024 18:11:50

peter

Hallo





Sub ColorPicker()

    If Application.Dialogs(xlDialogEditColor).Show(1, 100, 100, 100) Then

        FullColorCode = ActiveWorkbook.Colors(1)

        ActiveCell.Interior.Color = FullColorCode

    End If

End Sub

Peter

Super!

04.04.2024 18:16:37

{Boris}

Hi Peter,

das ist doch wesentlich eleganter als die Sendkeys-Variante.

Danke Dir!

Viele Grüße

Boris

AW: Super!

04.04.2024 22:23:00

schauan

Hallo Boris,

die komplette Dialogübersicht findest Du dort
https://learn.microsoft.com/en-us/office/vba/api/excel.xlbuiltindialog
und die Parameter findest Du über die Suche nach xlDialogname Enumeration