Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie Variant trennen in Integer und Bruch?

Forumthread: Wie Variant trennen in Integer und Bruch?

Wie Variant trennen in Integer und Bruch?
04.01.2006 09:40:27
urs
Hallo zusammen
Gibt es einen Befehl in VBA der mir aus dem Wert 1,23456 die Werte Integer 1
und Bruch (oder wie nennt VBA das?) 0,23456 trennt?
Gruss urs
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie Variant trennen in Integer und Bruch?
04.01.2006 10:06:26
Andi
Hi,
das ginge so:
Dim ganzzahl As Integer
Dim bruch As Double
ganzzahl = Int(1.23456)
bruch = 1.23456 - Int(1.23456)
Schönen Gruß,
Andi
AW: Wie Variant trennen in Integer und Bruch?
04.01.2006 10:17:16
Manfred
Hallo Andi,
deine Lösung gefällt mich noch besser, als meine. ;o)
Gruss Manfred
Danke an Andy und Manfred
04.01.2006 10:42:33
urs
Hallo Miteinander
Was für ein Service!!!!
Danke für Eure Mithilfe. Die Lösung von Andy ist idealer für mich, da kann die Ganzzahl auch mehrstellig sein.
Vielen Dank
Urs
Anzeige
Gern geschehen... (ot)
04.01.2006 10:45:09
Andi
.
Danke an Andy und Manfred
04.01.2006 10:42:37
urs
Hallo Miteinander
Was für ein Service!!!!
Danke für Eure Mithilfe. Die Lösung von Andy ist idealer für mich, da kann die Ganzzahl auch mehrstellig sein.
Vielen Dank
Urs
AW: Wie Variant trennen in Integer und Bruch?
04.01.2006 10:06:59
Manfred
Hallo urs,
hier eine Variante, bei der der Wert in Zelle "A1" (1,23456) folgendermaßen geteilt wird: Zelle "B1" (1) und Zelle "C1" (0,23456)

Sub NachkommaTrennen()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],(SEARCH("","",RC[-1])-1))"
Range("C1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("A1").Select
End Sub

Vielleicht hilft es dir weiter, bei deinem weiterem Vorgehen.
Gruss Manfred
Rückmeldung wäre nett
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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