Microsoft Excel

Herbers Excel/VBA-Archiv

diverse Probleme - Textfelder befüllen | Herbers Excel-Forum


Betrifft: diverse Probleme - Textfelder befüllen von: stefan
Geschrieben am: 27.11.2009 15:05:56

hallo zusammen,

ich nochmal. ich habe folgenden quelltext:

Sub zeigeAuswertung()

Dim datum

' Formular zeigen '
   frmAuswertung.Show
 
' Datum ermitteln '
   datum = Date
   frmAuswertung.lblStand.Caption = Format(datum, "dd.mm.yyyy")
   
' Gesamtumsatz ermitteln '

   frmAuswertung.lblEigenumsatz.Caption = Cells(8, 5).Value
      
End Sub
dazu habe ich fragen bzw probleme.

- wenn das makro starte, wird im ersten schritt zwar das datum ausgegeben, aber der zweite schritt (umsatz) nicht. erst wenn ich es nochmal starte.

- wie kann ich in einem textfeld.caption den zellenwert formatiert in € ausgeben?

danke für eure hinweise

  

Betrifft: AW: diverse Probleme - Textfelder befüllen von: Martin S.
Geschrieben am: 27.11.2009 15:22:48

Hallo Sefan,

wenn die UserForm gestartet wurde mir frmAuswertung.Show, arbeites das Makro erst weiter, wenn die UserForm wieder geschlossen wurde.

Schreibe in die UserForm folgenden Code:

Private Sub UserForm_Initialize()
    lblStand.Caption = Format(Date, "dd.mm.yyyy")
    lblEigenumsatz.Caption = Cells(8, 5).Value
End Sub
Und in dein bisheriges Makro:

Sub zeigeAuswertung()
frmAuswertung.Show
End Sub


  

Betrifft: AW: diverse Probleme - Textfelder befüllen von: stefan
Geschrieben am: 27.11.2009 15:30:55

ahh, danke.

kannst du mir noch sagen, wie ich die textfelder.caption jeweils in € und % formatiert bekomme?


  

Betrifft: AW: diverse Probleme - Textfelder befüllen von: ptonka
Geschrieben am: 27.11.2009 15:37:05

Hallo,

die Formatierung bekommst Du folgendermaßen hin:

lblStand.Caption = Format(Cells(2, 1), "TT.MM.YYYY")
lblEigenumsatz.Caption = Format(Cells(2, 1), "0.00 €")

Gruß,
Ptonka


  

Betrifft: AW: diverse Probleme - Textfelder befüllen von: stefan
Geschrieben am: 27.11.2009 15:48:46

ahha, super.

wie krieg ich jetzt noch den 1000der punkt hin?

danke dir/euch.

viele grüße


  

Betrifft: AW: diverse Probleme - Textfelder befüllen von: ptonka
Geschrieben am: 27.11.2009 15:32:08

Hallo,

versuche, das Formular erst später zu öffnen. Also:

Sub zeigeAuswertung()

Dim datum

' Datum ermitteln '
   datum = Date
   frmAuswertung.lblStand.Caption = Format(datum, "dd.mm.yyyy")
   
' Gesamtumsatz ermitteln '

   frmAuswertung.lblEigenumsatz.Caption = Cells(8, 5).Value

' Formular zeigen '
   frmAuswertung.Show
      
End Sub



Beiträge aus den Excel-Beispielen zum Thema "diverse Probleme - Textfelder befüllen"