27.12.2017, 21:15
Hallo Comunity!
Ich habe ein Problem mit einer VBA-Prozedur und hoffe ihr könnt mir helfen:
Konkret möchte ich in eine variable Range "=Formelbereich" eine Formel einfügen. Diese beginnt bei K9 bzw. 9,11 und geht bis zur letzten ermittelten Zeile und Spalte. Leider bringt er mir immer eine Fehlermeldung (Die Mehode Range für das Objekt .... ist fehlgeschlagen)
Könnt ihr mir helfen? Vielen Dank im voraus!
@Mod: Sorry, 2 x gepostet - bitte eines löschen!
Anmerkung: Die Formel "=IF...." - die stimmt. An dieser liegt es nicht. Ich schaffe es nur nicht, die Formel dem Bereich zuzuweisen...
Ich habe ein Problem mit einer VBA-Prozedur und hoffe ihr könnt mir helfen:
Konkret möchte ich in eine variable Range "=Formelbereich" eine Formel einfügen. Diese beginnt bei K9 bzw. 9,11 und geht bis zur letzten ermittelten Zeile und Spalte. Leider bringt er mir immer eine Fehlermeldung (Die Mehode Range für das Objekt .... ist fehlgeschlagen)
Könnt ihr mir helfen? Vielen Dank im voraus!
@Mod: Sorry, 2 x gepostet - bitte eines löschen!
Anmerkung: Die Formel "=IF...." - die stimmt. An dieser liegt es nicht. Ich schaffe es nur nicht, die Formel dem Bereich zuzuweisen...
Code:
Option Explicit
Sub berechnen()
Dim s As Long, z As Long, Formelbereich As Range
s = Worksheets("Erfassung").Range("F65536").End(xlUp).Row
z = Worksheets("Erfassung").Cells(5, Columns.Count).End(xlToLeft).Column
Set Formelbereich = Range(Cells(9, 11), Cells(s, z))
Range(Formelbereich).FormulaR1C1 = "=IF(Erfassung!RC=""x"",IF(R7C=""m2"",(RC6+R1C)*RC7*RC8,IF(R7C=""ml"",(RC6+R1C+RC7+R2C)*RC8,IF(R7C=""Stk."",RC8))),"""")"
End Sub