Format & Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label
Bild

Betrifft: Format & Userform von: Eleni
Geschrieben am: 10.02.2005 08:18:46

Hi Forum,

Habe ein Userform, welches mir gewisse Daten (Zahlen mit 2 Dezimalstellen) aus bestimmten Zellen in Labels anzeigt und per Klick auf ein Controlbutton bestätigt und in eine andere Tabelle einfügt werden. Leider werden die Zahlen in den Labels nicht mehr mit 2 Dezimalstellen angezeigt und auch in der anderen Tabelle ohne Dezimalstellen eingefügt. Kann ich den Labels nicht ein Format zuweisen, und wenn ja, wie?


Ciao, Eleni

Bild


Betrifft: AW: Format & Userform von: Willie
Geschrieben am: 10.02.2005 08:35:21

Hallo Eleni

Hast du es schon mal mit Text Format verucht?
z.B. label1.caption = cells(1,1).text

Gruß

Willie

Rückmeldung wäre nett!


Bild


Betrifft: AW: Format & Userform von: Eleni
Geschrieben am: 10.02.2005 08:56:34

Hi Willie,

Hab ich schon versucht, bekomme den Fehler, dass Methode oder Eigenschaft nicht unterstützt wird. Anderer Vorschlag?


Danke, Eleni


Bild


Betrifft: AW: Format & Userform von: Willie
Geschrieben am: 10.02.2005 09:05:26

Eleni kannst du da Makro hier reinstellen?
Vielleich bekomme ich es ja hin!
Willie


Bild


Betrifft: AW: Format & Userform von: Eleni
Geschrieben am: 10.02.2005 09:22:42

Hi Willie,

Hier der Code:

Userform2.Label21 = ThisWorkbook.ActiveSheet.Cells(3, 1)
Userform2.Label22 = ThisWorkbook.ActiveSheet.Cells(3, 2)
Userform2.Label23 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 21).End(xlUp)
Userform2.Label24 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 18).End(xlUp)
Userform2.Label25 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 14).End(xlUp)
Userform2.Label26 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 15).End(xlUp)
Userform2.Label27 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 16).End(xlUp)
Userform2.Label28 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 17).End(xlUp)


If ThisWorkbook.ActiveSheet.Cells(1, 20).Value <> "" Then
Userform2.Label29 = ThisWorkbook.ActiveSheet.Cells(1, 20)
Userform2.Label30 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 19).End(xlUp)
Userform2.Label31 = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 20).End(xlUp)
Else: Userform2.Label29 = ""
Userform2.Label30 = ""
Userform2.Label31 = ""
End If

Userform2.Show


Ciao, Eleni


Bild


Betrifft: AW: Format & Userform von: Ralf (Schwabenland)
Geschrieben am: 10.02.2005 09:17:42

Hallo Eleni,

hier mal eine kleine Beispielmappe:

https://www.herber.de/bbs/user/17763.xls

Hoffe es hilft.

Gruß
Ralf


Bild


Betrifft: Danke, funktioniert einwandfrei von: Eleni
Geschrieben am: 10.02.2005 09:28:57

Hi Ralf,

Danke, funktioniert einwandfrei.


Ciao, Eleni


Bild


Betrifft: Geschlossen, o. T. von: Eleni
Geschrieben am: 10.02.2005 09:29:41

o. T.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Format & Userform"