weiß jemand Rat? Ich habe ein Makro, dass im nachfolgenden Code auch funktioniert.
Nun wollte ich
- die Zellbezüge etwas anders schreiben (dann funktioniert das Makro nicht mehr)
- und den Zellbezug der letzten Zeile durch eine Variable, die die letzte Zeile abfragt, ersetzen (dann funktioniert das Makro ebenfalls nicht mehr)
Weiß jemand, woran das liegt bzw. wie das Makro geändert werden muss?
Schönen Gruß
Burghard
===================================
Diese Makro funktioniert:
Sub Auswertung()
Dim letzte As Long
Dim letztezeile
letzte = Range("a65536").End(xlUp).Rows
letztezeile = ActiveSheet.Cells(65536, 3).End(xlUp).Row
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=ROUND(IF(RC[-2]=1,R2C3*13%,MAX(10.5,R2C3*0.5%)+POWER((MAX(R3C1:R26C1)-RC[-2]),2) / _
SUMPRODUCT(POWER((MAX(R3C1:R26C1)-R3C1:R26C1)*(R3C1:R26C11),2))*(R2C3*87%-MAX(10.5,R2C3*0.5%) *(COUNT(R3C1:R26C1)-SUMPRODUCT(--(R3C1:R26C1=1))))),2)"
Range("C3:C26").Select
Selection.FillDown
Range("C2").Select
End Sub
======================================
Fehler, wenn ===> RC[-2] durch ==> A3 ersetzt wird.
Sub Auswertung()
Dim letzte As Long
Dim letztezeile
letzte = Range("a65536").End(xlUp).Rows
letztezeile = ActiveSheet.Cells(65536, 3).End(xlUp).Row
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=ROUND(IF(A3=1,R2C3*13%,MAX(10.5,R2C3*0.5%)+POWER((MAX(R3C1:R26C1)-RC[-2]),2) / _
SUMPRODUCT(POWER((MAX(R3C1:R26C1)-R3C1:R26C1)*(R3C1:R26C11),2))*(R2C3*87%-MAX(10.5,R2C3*0.5%) *(COUNT(R3C1:R26C1)-SUMPRODUCT(--(R3C1:R26C1=1))))),2)"
Range("C3:C26").Select
Selection.FillDown
Range("C2").Select
End Sub
========================================
Fehler, wenn ===> R26C1 durch ==> $A$" & letzte & " ersetzt wird.
Sub Auswertung()
Dim letzte As Long
Dim letztezeile
letzte = Range("a65536").End(xlUp).Rows
letztezeile = ActiveSheet.Cells(65536, 3).End(xlUp).Row
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=ROUND(IF(RC[-2]=1,R2C3*13%,MAX(10.5,R2C3*0.5%)+POWER((MAX(R3C1:$A$" & letzte & ")- _
RC[-2]),2) /SUMPRODUCT(POWER((MAX(R3C1:R26C1)-R3C1:R26C1)*(R3C1:R26C11),2))*(R2C3*87%-MAX(10.5,R2C3*0.5%) *(COUNT(R3C1:R26C1)-SUMPRODUCT(--(R3C1:R26C1=1))))),2)"
Range("C3:C26").Select
Selection.FillDown
Range("C2").Select
End Sub