Ich möchte mit meinem VBA-Code eine Zelle abfragen, die verschiedene Einheiten haben kann. Je nachdem welche Einheit in der Zelle steht, habe ich ein Array mit dem ich den Wert dann in meine gewünschte Zieleinheit Umrechnen kann. Ist für die meisten Einheiten kein Problem, es sei denn es kommen Hochzahlen ins Spiel, wie bei Kubickmeter. in dem Falls steht in der Zelle dann m3, mit hochgestellter 3. Ist es möglich auch das abzufragen? Der code sieht in etwa so aus:
Dim Umrechnungsarray(1 to 5, 1 to 2) as string
Umrechnungsarray(1,1)= "kg"
Umrechnungsarray(1,2)= "1000"
Umrechnungsarray(1,1)= "g"
Umrechnungsarray(1,2)= "1000000"
'Hier sollte jetzt die Abfrage mit Kubickmeter hin
for i=1 to 5
if Cells(1,1)=Umrechnungsarray(i,1) then
Cells(1,3)=Cells(1,2)*Umrechnungsarry(i,2
end if
next