Tabellenkalkulation

VBA Format

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Guten Morgen! # Hab nochmal schnell ne Frage an Euch! Möchte beim Einlesen von einem Datum aus einer Zelle, dieses im Format TTTT, TT. MMMM JJJJ im label anzeigen lassen. Hab es so probiert, klappt aber nicht: Format(Sheets("Daten").Range("T3").Value, "TTTT, TT. MMMM JJJJ") Danke schon mal!

Antwort 1 von Beverly

Hi Mona,

du musst im ersten Schritt den Wert einlesen und im nächsten Schritt dem Label das Format zuweisen

Bis später,
Karin

Antwort 2 von Mona2008

Hey,

danke für deine Antwort, aber:

Me.lab_datum.Caption = Sheets("Daten").Range("T3").Value
Me.lab_datum = Format("TTTT, TT. MMMM JJJJ")

das funktioniert nicht!

Antwort 3 von Teerbaby

Das müsste auch in einem Schritt gehen. Ich schätze, du musst nur den Value noch in ein Datum umwandeln. D.h. noch ein .toDate (oder was es da gibt) hinter das .Value hängen.

Antwort 4 von Beverly

Hi Mona,

sorry, ich hatte es nicht getestet. Mit dieser einen Zeile sollte es funktionieren

Me.lab_datum.Caption = Format(Sheets("Daten").Range("T3").Value, "dddd, dd. mmmm yyyy")

Das Problem lag nicht an der Zuweisung sondern am Format, welches in VBA immer in der englischen Schreibweise angegeben werden muss.

Bis später,
Karin

Antwort 5 von Mona2008

Danke, das wars!! ;-)