Guten Tag,
ich bin schier am Verzweifeln und zwar schaffe ich es nicht eine Formel die im Excel wunderbar funktioniert in VBA Code mit FormulaLocal umzuwandeln. Zudem möchte ich statt der Zeilennummer eine Variable einsetzen, was mein Vorhaben nicht einfacher macht.
Vielleicht hat ja jemand Erbarmen ;)
Es handelt sich um folgenden Code:
Sub Datum()
Dim Zelle As Range
Dim Nr As Long
For Each Zelle In ActiveSheet.Range("B2:B30")
Nr = Zelle.Row
Zelle.FormulaLocal = "hier meine Formel"
Next Zelle
End Sub
Die Formel aus Excel sieht folgendermaßen aus:
=WENN(D31="";"";WENN(ODER(TEXT(P31;"MM")="01";TEXT(P31;"MM")="02";TEXT(P31;"MM")="03");"Q1";&"'"&TEXT(P31;"JJJJ"))
Sprich ich möchte ein Datum prüfen. Bei Monat 1,2,3 soll Q1 sowie das angegebene Jahr ausgegeben werden, gleiches bei Q2, Q3, Q4. (welche ich der Einfachheit halber hier jetzt rausgenommen habe...)
Ich hoffe ich konnte mein Anliegen einigermaßen rüberbringen :)
Vielen Dank im Voraus!
Grüße
Christian |