Format von Bezeichnungsfeld ändern

Forumthread: Format von Bezeichnungsfeld ändern

24.04.2009 15:38:56

Bezeichnungsfeld

Hallo,
ich habe mir eine Userform mit unter anderem 2 Bezeichnungsfeldern gebastelt die ich bei der Initialisierung der Userform füllen lasse. Leider stört mich das Format und ich weiß nicht wie ich es abändern kann. Hier der verwendete Teilcode:


Private Sub UserForm_Initialize()
Me.lblShelfLife1.Caption = Range("B17")  ' Prozent (gewünschtes Format: 78,0%)
Me.lblLetztesAnkunfsdatum1.Caption = Range("B18")  ' Datum (gewünschtes Format: 01.01.2009)
End Sub

Wie kann ich das gewünschte Format in obigen Code einbauen.
Vielen Dank für Eure Hilfe.
Gruß,
Jakob

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Format von Bezeichnungsfeld ändern

24.04.2009 15:40:39

Bezeichnungsfeld
AW: Format von Bezeichnungsfeld ändern

24.04.2009 16:24:54

Bezeichnungsfeld
Format(Range ....... )

24.04.2009 16:36:52

Matthias
AW: Format von Bezeichnungsfeld ändern

24.04.2009 18:00:06

Bezeichnungsfeld
AW: Format von Bezeichnungsfeld ändern

27.04.2009 09:10:53

Bezeichnungsfeld
AW: Format von Bezeichnungsfeld ändern

27.04.2009 22:46:12

Bezeichnungsfeld

AW: Format von Bezeichnungsfeld ändern

24.04.2009 15:40:39

Bezeichnungsfeld

Hallo Jakob,
falls die Zelle schon das Format hat schreibe noch .Text noch dahinter. Ansonsten der Befehl FORMAT()

AW: Format von Bezeichnungsfeld ändern

24.04.2009 16:24:54

Bezeichnungsfeld

Hallo Hajo,
mit ".Text" dahinter hat es geklappt. Aber Interessehalber wie müßter der Code mit den Formatbefehl aussehen? Ich habe es mit folgenden Code versucht aber leider keinen Erfolg gehabt.
Me.lblLetzerVersand1.Caption = Range("B19").Format(Date, "DD.MM.YYYY")
2. Frage
Die Schriftfarbe der beiden Bezeichnungsfelder soll rot sein wenn der Wert in der Zelle D23 kleiner als der Wert in der Zelle B17 ist. Wie könnte ich das in den Code einbauen?
Vielen Dank schon mal für Deine Hilfe.
Gruß,
Jakob

Format(Range ....... )

24.04.2009 16:36:52

Matthias

Hallo

Ich empfehle aber .Text
Gruß Matthias

AW: Format von Bezeichnungsfeld ändern

24.04.2009 18:00:06

Bezeichnungsfeld

Hallo Jakob,
Format(Range("A1"),"dd.mm.yy")
zu 2 benutze doch bedingte Formatierung.
Gruß Hajo

AW: Format von Bezeichnungsfeld ändern

27.04.2009 09:10:53

Bezeichnungsfeld

Hallo Hajo,
im Tabellenblatt habe ich es mit bedingter Formatierung gelöst, aber wie kann ich das auch in der Userform realisieren?
Gruß,
Jakob

AW: Format von Bezeichnungsfeld ändern

27.04.2009 22:46:12

Bezeichnungsfeld

Hi,
Schriftfarbe ist ForeColor, die bedingung kannst du wohl selbst formulieren.
Fraglich ist nur, aus welchem Anlass die Färbung erfolgen soll?
mfg Frieder

Beliebteste Forumthreads (12 Monate)

Format von Bezeichnungsfeld ändern

Forumthread: Format von Bezeichnungsfeld ändern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread