---

Eine blöde Frage:

zur Konstruktion von Höhenlinien habe ich ein kleines Makro geschrieben, das u.a. Texte mit Höhenangaben aus einer Zeichnung ausliest. Die Nachkommastellen sind manchmal durch einen Punkt und manchmal durch ein Komma getrennt, die Anzahl der Nachkommastellen variiert ebenfalls. Gibt es eine einfache Möglichkeit, diese Texte  in Zahlen mit 2 Nachkommastellen zu transformieren?

Danke im Voraus

Piet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Piet,

zB:

Sub sdf()
Dim s1$, s2$
s1 = "1,2345678": s2 = "12.3456"
Debug.Print Round(CDbl(s1), 2), Round(Val(s2), 2)
End Sub

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich machs immer so - die zahlen bleiben unverändert es wird nur im Fall eines Punktes dieser in der Funktion durch ein Komma ausgewechselt - der Fall das eh ein Komma drin ist wird mit dem Fehler abgefangen.

Sub PunktKomma()
s1 = "1,2345678": s2 = "12.3456"
Debug.Print sdf(s1)
Debug.Print sdf(s2)
End Sub

Function sdf(W)
On Error GoTo Fehler
sdf = Left(W, InStr(W, ".") - 1) & "," & _
      Right(W, Len(W) - InStr(W, "."))
Exit Function
Fehler:
sdf = W
End Function

------------------
leute: vielen dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich verwende gerne die Funktion Format
z.B.

Code:

---

Dim Zahl as String
Dim Wert as String

Zahl = Format (1.23568, "0.00")
Wert = Replace (Zahl, ",", ".")

---

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank für die Antworten, ich konnte viele Anregungen sammeln, ich probier die verschiedenen Lösungen mal aus.
(Replace scheint allerdings bei VBA ACAD 2000 eine andere Bedeutung zu haben)

Piet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das stimmt, da geht es noch nicht 

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP