title image


Smiley Re: Color dialog box (vb - excel)
ich hab´s gefunden :-)



Function GetColorindex(Optional Text As Boolean = False) As Long



Application.Dialogs(xlDialogPatterns).Show

GetColorindex = ActiveCell.Interior.ColorIndex

If GetColorindex = xlColorIndexAutomatic And Not Text Then

GetColorindex = xlColorIndexNone

End If

Application.ScreenUpdating = False

' MsgBox (GetColorindex)

End Function



danke noch mal

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: