Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige