Probleme bei FormulaR1C1 für variablen Bereich
15.03.2018 11:53:27
ThoScho
Habe da mal wieder ein kleines Problem.
Ich will mit einem Makro auf einem Arbeitsblatt im Bereich H2 bis zu einer variablen Tabellengröße eine Formel eintragen.
Ich haba mir diese Formel zusammengebaut:
Dim wks As Worksheet
Dim Zeile_T As Long, Zeile_1 As Long, Zeile_L As Long, Spalte As Long, Spa_L As Long
Dim abst As Long
abst = DateDiff("m", CDate(frmSprintabfrage.txtStartDate.Value), CDate(frmSprintabfrage. _
txtEndDate.Value)) + 8
letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set wks = Worksheets("Monat_auf_Sprint")
Spalte = 8
Zeile_T = 1
Zeile_1 = Zeile_T + 1
With wks
Spa_L = abst
Zeile_L = .Cells(.Rows.Count, Spalte).End(xlUp).Row
If Zeile_L >= Zeile_T Then
.Range(.Cells(2, 8), .Cells(letzte, abst)).FormulaR1C1 = _
"=MAX(NETWORKDAYS(MAX(R1C;RC2);MIN(R1C[1]-1;RC3))/NETWORKDAYS(R1C;R1C[1]-1);0)"
Else
MsgBox "Keine Daten ab Zeile " & Zeile_1, vbOKOnly, "Formeln einfgen"
End If
End With
Bekomme dabei allerdings immer einen Laufzeitfehler
Habe mir die Formel für den FormulaR1C1 Bereich aus der vorhandenen aber händische eingegebenen Formeln anzeigen lassen
Diese lautet:
=MAX(NETTOARBEITSTAGE(MAX(Z1S;ZS2);MIN(Z1S(1)-1;ZS3))/NETTOARBEITSTAGE(Z1S;Z1S(1)-1);0)
=MAX(NETTOARBEITSTAGE(MAX(H$1;$B2);MIN(I$1-1;$C2))/NETTOARBEITSTAGE(H$1;I$1-1);0)
Kann mir da vielleicht jemand weiterhelfen ?
Beste Grüße und schon einmal vielen Dank !