Wertübergabe an Variable ohne Nachkommastellen

Forumthread: Wertübergabe an Variable ohne Nachkommastellen

13.01.2005 11:04:15

Manuel

Hallo,
ich übergebe in einem VBA-Projekt wie folgt einen wert von der variable text2 an die variable wert:
wert = Val(Text2)
Das klappt auch, aber leider schluckt wert die zahl 123,33 nur in Form von 123.
Habe die variable wert ganz oben im projekt so deklariert (es aber auch schon ohne probiert):
Dim wert As Currency
Kann mir jemand sagen, wie ich auch die Nachkommastellen mitübertragen bekomme?
Manuel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim wert as double oT

IngoG

AW: klappt leider nicht, immer nur 123

13.01.2005 11:41:05

Manuel

AW: Wertübergabe an Variable ohne Nachkommastellen

IngoG

Hallo Manuel,
dann so:


Sub aaaa()
Dim wert As Double
Dim text As String
text = "123,33"
wert = text * 1
MsgBox text & " -> " & wert
End Sub

ODER: wert = CDbl(text) oT

IngoG

AW: Geklappt, Vielen Dank

Manuel

Danke für die Rückmeldung oT

ingoG

Infobox / Tutorial

Wertübergabe an Variable ohne Nachkommastellen in VBA

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Wenn du in einem VBA-Projekt eine Zahl mit Nachkommastellen an eine Variable übergeben möchtest, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Variable deklarieren: Stelle sicher, dass du die Variable als Double oder Currency deklarierst, um Nachkommastellen zu speichern.
```
Dim wert As Double
```
Wert zuweisen: Übertrage den Wert an die Variable. Du kannst die Multiplikation mit 1 oder die Funktion CDbl() verwenden, um den Text in eine Zahl umzuwandeln.
```
Dim text As String
text = "123,33"
wert = CDbl(text)
```
Überprüfen: Zeige den Wert mit MsgBox an, um sicherzustellen, dass die Nachkommastellen korrekt übernommen wurden.
```
MsgBox text & " -> " & wert
```

Häufige Fehler und Lösungen

Problem mit dem Datentyp: Wenn du wert als Currency deklarierst und die Zahl in einer anderen Form übergibst, kann das zu Verlust von Nachkommastellen führen. Nutze stattdessen Double.
Falsches Trennzeichen: In einigen Regionen wird das Komma als Dezimaltrennzeichen verwendet. Stelle sicher, dass der Text im richtigen Format vorliegt.
Wert wird auf Integer gerundet: Wenn du Val() verwendest, wird der Wert auf die Ganzzahl gerundet. Vermeide diese Funktion, wenn du Nachkommastellen benötigst.

Alternative Methoden

Neben der Verwendung von CDbl() oder Multiplikation gibt es noch weitere Methoden, um Werte mit Nachkommastellen zu übergeben:

CDec(): Diese Funktion konvertiert einen Wert in den Datentyp Decimal, der auch für Geldbeträge nützlich ist.
```
wert = CDec(text)
```
Zellenreferenzen: Du kannst auch Werte direkt aus Zellen in Excel einlesen:
```
wert = CDbl(Range("A1").Value)
```

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Wertübergabe in VBA umsetzen kannst:

Beispiel mit CDbl():

Sub Beispiel1()
   Dim wert As Double
   Dim text As String
   text = "123,45"
   wert = CDbl(text)
   MsgBox "Der Wert ist: " & wert
End Sub

Beispiel mit Multiplikation:

Sub Beispiel2()
   Dim wert As Double
   Dim text As String
   text = "123,45"
   wert = text * 1
   MsgBox "Der Wert ist: " & wert
End Sub

Tipps für Profis

Fehlerbehandlung: Implementiere Error-Handling, um sicherzustellen, dass dein Code auch bei falschen Eingaben robust bleibt.
```
On Error GoTo Fehler
wert = CDbl(text)
Exit Sub
Fehler:
MsgBox "Fehler bei der Umwandlung!"
```
Regional Settings: Achte auf die Ländereinstellungen deines Systems, da das Dezimaltrennzeichen variieren kann.
Code-Dokumentation: Halte deinen Code durch Kommentare übersichtlich, um die Nachvollziehbarkeit zu gewährleisten.

FAQ: Häufige Fragen

1. Welche Datentypen sollte ich verwenden? Verwende Double oder Currency, um sicherzustellen, dass Nachkommastellen korrekt behandelt werden.

2. Was ist der Unterschied zwischen Val() und CDbl()? Val() wandelt nur Ganzzahlen um und ignoriert Nachkommastellen, während CDbl() den gesamten Wert, einschließlich der Nachkommastellen, umwandelt.

Beliebteste Forumthreads (12 Monate)

Wertübergabe an Variable ohne Nachkommastellen

Forumthread: Wertübergabe an Variable ohne Nachkommastellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Wertübergabe an Variable ohne Nachkommastellen in VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Wertübergabe an Variable ohne Nachkommastellen

Forumthread: Wertübergabe an Variable ohne Nachkommastellen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Wertübergabe an Variable ohne Nachkommastellen in VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread