worksheetfunction aufweiten
09.05.2005 14:49:52
Harald
ich knusper schon ne Weile an diesem vba-Keks und kriegs nicht hin.
Es geht darum mehrere 6-stellige Ziffern per Schleife in 3 Stellen rechts und 3 Stellen links zu splitten und mit der darunterliegenden Zelle zu summieren.
Die 6-stellige Ziffer ist als Text formatiert.
Bsp. in A2 steht 001000 und darunter in A3 steht 002003 (jeweils Text)
Nach Makrodurchlauf soll in B3 eine 3 für die linken Werte stehen (001 + 002) und in C3 auch eine 3 (000 + 003)
Hier mein Ansatz per worksheetfunction.Er meckert mir jedesmal die Funktion an.
;-((
Sub test()
For i = 83 To 121 Step 2
Cells(15, i) = WorksheetFunction.Sum(Left(Cells(2, i), 3), Left(Cells(3, i)))
For n = 84 To 121 Step 2
Cells(15, n) = WorksheetFunction.Sum(Right(Cells(2, n), 3), Right(Cells(3, n)))
End Sub
Ein Versuch mit worksheetfunction.sum(value(left...etc hat auch nix gebracht.
Die Texte vorher umzuwandeln geht auch nicht. (000003 würde zu 3 rechts und 3 links)
Die vba- Hilfe gibt dazu keine Beispiele. Vielleicht kann mir jemand von euch weiterhelfen.
Wäre prima.
Gruß
Harald
Rückmeldung folgt garantiert morgen. Hab jetzt (zum Glück für meinen unwilligen PC)Feierabend. ;-))
Anzeige