Labelfunktion mit verschiedenen Schriftarten
19.07.2003 09:26:57
Markus
Ich habe eine Userform mit einem Label. Das Label beinhaltet folgenden Code:
Private Sub Label1_Click()
Label1.Caption = Format(CDate(Range("A1")), "hh:mm")
End Sub
Nun habe ich das Symbol Uhr der Schriftart Wingdings auf dieser Userform um o. g. Code zu aktivieren. Allerdings wird nach Aktivierung des Symbols die Uhrzeit auch in Wingdings angezeigt!
Gibt es eine Möglichkeit das Uhrensymbol zu belassen und trotzdem eine andere Schriftart zu aktivieren?
Gruß und Danke
Markus