Komma einfügen



Excel-Version: 2000
nach unten

Betrifft: Komma einfügen
von: Markus
Geschrieben am: 12.04.2002 - 09:23:50

Hallo VBA Künstler,

ich habe zwei Input Boxen erzeugt und lasse dort zwei unterschiedliche Zahlen eintragen. Diese beiden Zahlen durchlaufen diverse Formeln und werden in ihrem Wert verändert. Endgültig sollen die beiden veränderten Zahlen durch ein Komma getrennt zusammengeführt werden und in eine Zelle geschrieben werden : z.B.
Zahl 1 = 3
Zahl 2 = 54
Ergebnis = 3,54
Wie kann ich das lösen ?
Danke und Gruß

nach oben   nach unten

Re: Komma einfügen
von: mathias r.
Geschrieben am: 12.04.2002 - 09:55:33


Sub zusammen()
Dim zahl1 As Double
Dim zahl2 As Double
Dim ergebnis As Double
  zahl1 = 3
  zahl2 = 54
  'funktioniert mit Komma als eingestelltem Dezimaltrennzeichen
  ergebnis = CDbl(CInt(zahl1) & "," & CInt(zahl2))
  'funktioniert immer
  ergebnis = CInt(zahl1) + zahl2 / (10 ^ (Int(Log(zahl2) / Log(10)) + 1))
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink"