Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Format ändern

Format ändern
22.01.2007 10:06:48
Thomas
Hallo Leute,
habe folgendes Problem. Möchte ein Wert aus einem Excelsheet bei Aufruf einer Userform in eine ComboBox übergeben, was auch klappt. Allerdings bin ich noch nicht mit dem Format zu frieden.
Möchte dass der Wert in Prozent angegeben wird. Kann mir da jemand helfen?
Unten ist der Code der den Wert in Zelle "P8" in die ComboBox übergibt. Jetzt müsste ich nur noch wissen, wie das Format in der ComboBox geändert werden kann. Möchte den Wert in Prozent haben.
Sheets("Kredit").Activate
UserForm1_Swap_J.ComboBox10.Value = Sheets("Kredit").Cells(8, 16)
Gruß und Danke im Voraus,
Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format ändern
22.01.2007 10:28:05
Erich
Hallo Thomas,
100 * Sheets("Kredit").Cells(8, 16) & "%"
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Format ändern
22.01.2007 10:38:26
Thomas
Hallo,
das funktioniert nicht so wie sie das gesagt haben.
100 * Sheets("Kredit").Cells(8, 16) & "%"
Ich denke mal, dass der Code in Format() drin stehen muss.
Bzw. was auch ne Möglichkeit wäre, aber funktioniert leider nicht so ganz, dass man sagt
Sheets("Kredit").Activate
UserForm1_Swap_J.ComboBox10.Value = Sheets("Kredit").Cells(8, 16)
ComboBox10 = Format(ComboBox10, "%")
Oder ?!? Kann mir jemand weiterhelfen !?!
Viele Grüße
Thomas
Anzeige
AW: Format ändern
22.01.2007 10:44:11
Erich
Hallo Thomas,
nein, mit Format hat das nichts zu tun. Angezeigt wird ein Text:
UserForm1_Swap_J.ComboBox10.Value = 100 * Sheets("Kredit").Cells(8, 16) & "%"
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Format ändern
22.01.2007 10:44:51
Thomas
Hallo,
ich habe die Lösung !!! :-)
Sheets("Kredit").Activate
UserForm1_Swap_J.ComboBox10.Value = Sheets("Kredit").Cells(8, 16)
UserForm1_Swap_J.ComboBox10 = Format(Sheets("Kredit").Cells(8, 16), "0.000") * 100 & "%"
Nochmal Danke!
Gruß
THomas
AW: Format ändern
22.01.2007 10:45:41
fcs
Hallo Thomas,

UserForm1_Swap_J.ComboBox10.Value = Sheets("Kredit").Cells(8, 16).Text
oder
UserForm1_Swap_J.ComboBox10.Value = Format(Sheets("Kredit").Cells(8, 16).Value, "0.00%")

Die erste Variante über nimmt die Dartsellung aus dem Tabellenblatt, die 2. stellt die Zahl im gewünschten Format dar.
Gruß
Franz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige