Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Währungsformat

Betrifft: Währungsformat von: schulzi
Geschrieben am: 11.09.2004 23:03:29

Hallo an alle,

ich habe einen aussetzer. Ich möchte aus einer Zelle einen Wert (Währung) in ein UserForm Label übertragen. Wie kann ich die Formatierung machen, dass der Wert in *.** € angezeigt wird.

Danke im voraus

Cu schulzi

  


Betrifft: AW: Währungsformat von: PeterW
Geschrieben am: 11.09.2004 23:11:04

Halle Schulzi (Realvornamen sind hier im Forum erwünscht und üblich),

beispielsweise so:
Private Sub UserForm_Initialize()
  Label1 = Format(Cells(1, 1), "#,000.00 €")
End Sub

Gruß
Peter


  


Betrifft: AW: Währungsformat von: schulzi
Geschrieben am: 11.09.2004 23:39:13

Danke das funktioniert soweit.

Außer der Wert ist Null, dann gibt er im Label "000.00 €" zurück


  


Betrifft: AW: Währungsformat von: Udo
Geschrieben am: 11.09.2004 23:51:21

Private Sub UserForm_Initialize()
  Label1 = Format(Cells(1, 1), "#,##0.00 €")
End Sub


Udo


  


Betrifft: AW: Währungsformat von: PeterW
Geschrieben am: 11.09.2004 23:51:57

Hallo Wer_Auch_Immer,

mit deinem Level VBA gut hättest du den Fehler selber sehen können. ;-)
Label1 = Format(Cells(1, 1), "#,##0.00 €")

Gruß
Peter