Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 09:06:52
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Format & Userform

Forumthread: Format & Userform

Format & Userform
10.02.2005 08:18:46
Eleni
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format & Userform
Willie
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!
AW: Format & Userform
10.02.2005 08:56:34
Eleni
Hi Willie,
Hab ich schon versucht, bekomme den Fehler, dass Methode oder Eigenschaft nicht unterstützt wird. Anderer Vorschlag?
Danke, Eleni
Anzeige
AW: Format & Userform
Willie
Eleni kannst du da Makro hier reinstellen?
Vielleich bekomme ich es ja hin!
Willie
AW: Format & Userform
10.02.2005 09:22:42
Eleni
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
Anzeige
Danke, funktioniert einwandfrei
10.02.2005 09:28:57
Eleni
Hi Ralf,
Danke, funktioniert einwandfrei.
Ciao, Eleni
Geschlossen, o. T.
10.02.2005 09:29:41
Eleni
o. T.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige