Hallo zusammen,
ich möchte eine Dynamische Liste erstellen, die auf Basis der Anzahl der Einträge in bestimmte Zellen eine Formel hinterlegt.
Die Bestimmung der Zellen (wo soll was hin, passt soweit, da ich Str Bausteine über ähnliche Schleifen bereits verteilt habe. Jedoch übernimmt es die Formeln nicht in die Liste. Habt ihr einen Tipp für mich?
Hier ist der Ausschnitt mit dem ich die Formeln generieren möchte:
For i = 0 To 11
For x = 1 To lngNames
strFormel = "=Zählenwenn(B" & 1 + intOffsetStartKal + (i * (lngNames + 2)) + x &_
":AF" & 1 + intOffsetStartKal + (i * (lngNames + 2)) + x & _
";" & Chr(34) & "U" & Chr(34) & ")"
'=Zählenwenn(B6:AF6;"U") --> gewünschter Ausdruck für Zeile 6
ThisWorkbook.Worksheets(strWsname).Range(1 + intOffsetStartKal + (i * (lngNames + 2)) + x, 34).FormulaLocal = Chr(34) & strFormel & Chr(34)
Next x
Next i
Office 365 auf Windows 10 Pro.
Vielen Dank vorab für eure Unterstützung!
|