VBS - Excelzellen negative Zahlenwerte in positive umwandeln (Absolutausgabe)

[felix_gorgas]

Hallo,

ich versuche gerade in einem VBScript Excelzellen auszufüllen und diese dann in positive Zahlen umzuwandeln. Grund ist die Erstellung einer Stückliste mit Profilanschnitten. Diese werden mir aber teilweise mit negativ Winkeln angegeben. Ich versuche daher diese negativen immer in positive umzuwandeln. Leider haut das mit Absolut nicht hin (=ABS()) da die Zellen der Reihe nach durch das VBS erstellt werden.

BSP:

objExcel.Cells(K1+1,6).Value = GetContent(objExcel,ListSource,"H_§05",K)

wirft mir den Winkel in die Zelle 6 der Spalte K+1. K steigt hierbei natürlich immer weiter an und wird mit

For K = 5 To MyTableLength

bis zum Ende der Tabelle durchgezogen. Die Idee mit

objExcel.Cells(K1+1,6).FormulaR1C1 = "=ABS(K1+1,6)"

geht leider nicht.

Sieht jemand eine Möglichkeit, alle Zahlen immer absolut auszugeben? Perfekt wäre es, wenn man dies über eine Zahlen- bzw. Zellenformatierung hinbekommen könnte.Nachträgliches Anfassen der Zellen ist einfach nicht drin (sind je nach Liste etwa 10000).

MfG

 

[Cokocool]

Ich habe mal 5 Sekunden gegoogelt wie man den Betrag einer Zahl in VB macht Angeblich so "zahl = Abs(zahl)"

EDIT

Ok das hast du wohl schon versucht

 

[ConVuzius]

Vllt. ne kleine Abfrage in die Schleife bevor du die Zelle füllst.

dim a as long
If Winkel = >0 then
objExcel.Cells(K1+1,6).Value = GetContent(objExcel,ListSource,"H_§05",K)
else
a = (GetContent(objExcel,ListSource,"H_§05",K)) * -1
objExcel.Cells(K1+1,6).Value = a

oder so ähnlich

 

[felix_gorgas]

@ConVuzius
dim a as long ist leider nicht möglich. Variablen werden global ohne Hinterlegung für String etc. definiert. Es ist leider nicht VBA sondern VBS...

@Topic
Ich habe eine Lösung in einem anderen Forum gefunden, es kann also hier zu

MfG und Danke für die Hilfe.