Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige