Office: Farbpalette über VBA aufrufen

und noch was...
trotz suche nicht fündig geworden :-)

ich möchte das farbauswahlmenue in eine userform integrieren (die aufgerufen wird bei klick in die zelle) um damit nach einem mausklick die selektierte zelle zu markieren und wenn möglich noch die farbe als text in die zelle daneben...?
hat jemand eine idee?

Gruß
Steffen

:)

 

Moin, Steffen,

schon möglich, aber reicht nicht auch die folgende Vorgehensweise aus:

Code:

 

HAllo Steffen

Versuch mal sowas:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
Dim FarbDialog As Object
Set FarbDialog = CreateObject("MSComDlg.CommonDialog")
On Error Resume Next
With FarbDialog
.cancelerror = True
.Flags = 2
.showcolor
If Err = 0 Then
ActiveCell.Interior.Color = .Color
ActiveCell.Offset(0, 1).Value = .Color
End If
End With
Set FarbDialog = Nothing
End Sub


ransi