---

Hallo Forum,

ich benutze ein VBA-Makro, um Text an einer Linie auszurichten. Das funktioniert
auch wie gewünscht. Ich wollte das Programm jetzt so erweitern, dass ich auf
Wunsch ein Präfix vor den Text stellen kann. Nun habe ich aber das Problem, dass
die Formatierung nicht mehr funktioniert (es werden mehr als zwei Stellen nach dem
Komma ausgegeben). Hier ein Ausschnitt aus dem VBA-Code:

Case acText
                         
                Set objText = Elem
                    
                               
                objText.Alignment = acAlignmentCenter
                objText.TextAlignmentPoint = EPText
               
                If CheckBox1.Value = True Then
                präfix = "#"
                Else
                präfix = "L="
                End If
               
               
                If OptionButton1.Value = True Then
                        
                objText.textString = Format(präfix & lang, "0.00")
                Else
                objText.textString = Format(präfix & Elem, "0.00")
                End If

Danke für jede Hilfe

Gruß Jörg

so geht's: objText.textString = präfix & (Format(lang, "0.00"))

------------------
AutoCAD 2006 DEU

[Diese Nachricht wurde von jobau am 09. Nov. 2006 editiert.]

[Diese Nachricht wurde von jobau am 09. Nov. 2006 editiert.]

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

---

Hallo Jörg,

mach es doch mal so

Code:

---

objText.textString = präfix & Format(Elem, "0.00")

---

Dann wirds klappen

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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