Farbzahl, Farbnummer, Format in MsgBox
11.08.2024 16:11:34
Dieter(Drummer)
Mit dem Code erhalte ich die Farbzahl (Farbnummer) des Tabellenblattregisters. In meinem Fall ist das Ergebnis in der MsgBox: 65280.
Die Farbzahl soll aber das Format: 65.280.
Mein Versuchscode funktioniert nicht wie gewünscht.
Ich weiß nicht, was in meinem Code falsch ist, damit das Ergebnis 65.280 ist und nicht 65280?
Mit der Bitte um Hilfe, wie das Format im Code richtig definiert sein muss.
Gruß,
Dieter(Drummer)
'Ursächlicher Code von: Herber: daniel 08.08.2024 19:27:56
'Eigene Version
Sub TabFarbe()
Dim Zahl As Long
MsgBox "Register Farbe: " & ActiveSheet.Tab.Color & Format(Zahl, "#,##")
End SubAnzeige