Office: "=Wenn" in VBA in eine hochzählende .range einbauen

Hallo Liebe Community,
Ich bin aktuell dabei die Formeln für mehrere Spalten (z.B. P2:P8731) eines Photovoltaikprojekts in VBA zu programmieren. Nun gibt es Formeln, welche erst nach einer Wenn-Abfrage greifen sollen. If Then Abfragen sind mir bekannt, nur fällt es mir schwer diese in dem Fall einzubauen.
Vielleicht könnt ihr mir weiterhelfen, ich würde mich über Lösungsvorschläge freuen :)!

'Azimut
Dim azimut As Long
With Tabelle3
azimut = .Range("H" & "L" & .Rows.Count).End(xlUp).Row
.Range("P2:P" & azimut).Formula = "=WENN(F2+$B$10/60<=12+(15-$B$8)/15-H2/60;ARCCOS(L2)/$B$2;360-ARCCOS(L2)/$B$2)"

End With

 

Moin!

Zunächst mal programmierst Du nicht, sondern willst Formeln per VBA in eine Spalte schreiben.
Eine deutsche Formel musst Du mit .FormulaLocal übergeben.

Was soll folgendes bezwecken:
.Range("H" & "L" & .Rows.Count).End(xlUp).Row
dann kannst Du doch gleich schreiben:
.Range("HL1048576").End(xlUp).Row
Ist das so gewollt?

Gruß Ralf

 

Moin Ralf, das FormulaLocal hat gut geklappt, allerdings trägt es die Formel nur in die erste Zelle ein. Habe bereits deine Idee zur .Range probiert, leider ohne Erfolg. Meine Range soll dazu führen, dass die Formel in allen Spalten greift/steht, wo in derselben Zeile H und L auch etwas drin steht. (die Zellen benötige ich für die Formel)
Komischerweise funktioniert das ganze (meine .Range) bei 5 Spalten und bei 2 Spalten nicht.
Gruß Hannes

 

Update: Konnte nun alles Lösen, vielen Dank für deine Hilfe!