Hallo zusammen,
ich habe ein Problem mit der Multiplikation eines Prozentwertes (Zahlenformat Prozent) und eines Preises (Zahlenformat Buchhaltung). Über eine Schleife gehe ich alle Zellen in Spalte I und J durch und multipliziere bzw. dividiere den Prozentwert mit dem Preis. Das Ergebnis wird wieder in Spalte J geschrieben.
Das Makro sieht folgendermaßen aus:
With Workbooks("Datei.xlsm").Worksheets("Dokument erstellen")
For ZeileDokErst = 6 To lngPosDokErst
Cells(ZeileDokErst, 10).Value = (Cells(ZeileDokErst, 9).Value + 1) * Cells(ZeileDokErst, 10).Value
Next ZeileDokErst
End With
Ich erhalte immer den Laufzeitfehler '13': Typen unverträglich
Kann mir hier bitte jemand weiterhelfen?
Vielen Dank im Voraus.
Beste Grüße
CG13