Zell- und Schriftfarbe in MsgBox zeigen
08.03.2019 16:33:08
Dieter(Drummer)
mit folgendem Code kann ich per InputBox Zellen markieren und es wird mir per MsgBox die Hintergrundfarbe und die Schriftfarbe gezeigt. Das funktioniert, wenn NUR eine Zelle markiert wird.
Wie muss der Code lauten, dass es bei mehreren markierten Zellen, evtl. auch bei nicht zusammen hängenden, auch die NÄCHSTEN Zellen in MsgBox entsprechend die Farben zeigt?
Anbei eine meine bisherige Musterdatei: https://www.herber.de/bbs/user/128226.xlsm
Mit der Bitte um Hilfe,
grüßt Dieter(Drummer)
Code in Modul1:
Sub ZellFarbe()
Dim RaAuswahl As Range
On Error Resume Next
Set RaAuswahl = Application.InputBox("Zelle(n) auswählen", "Zellfarbe", Type:=8)
MsgBox "Zellfarbe:" & vbLf & RaAuswahl.DisplayFormat.Interior.ColorIndex & vbLf & vbLf & " _
Schriftfarbe:" & vbLf & RaAuswahl.DisplayFormat.Font.ColorIndex
End Sub
Anzeige