von mathias r. vom 12.04.2002 - 09:55:33
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ß
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
Das Archiv des Excel-Forums
