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

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

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

Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen
04.04.2024 15: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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Meine Sendkeys-Variante...
04.04.2024 16: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
Anzeige
AW: Dialog "Zellen formatieren-Ausfüllen-Benutzerdef." öffnen
04.04.2024 16: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
Anzeige
Super!
04.04.2024 16:16:37
{Boris}
Hi Peter,

das ist doch wesentlich eleganter als die Sendkeys-Variante.

Danke Dir!

Viele Grüße

Boris

Beliebteste Forumthreads (12 Monate)

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