Verschachelte Wenn-Formel mit VBA und Parametern.

[mumpel]

Hallo!

Ich scheitere gerade an einer Umsetzung einer verschachtelten Wenn-Formel mit VBA. Eine einfache Wenn-Formel ist kein Problem.

For lngCount = 3 To 55
    Range("F" & lngCount).Formula = "=IF(Vorverteilung!K" & lngZelle & "<>"""","" + "" &Vorverteilung!K" & lngZelle & ",Vorverteilung!" & lngZelle & "),"""")"
    lngZelle = lngZelle + 12
Next lngCount
On Error GoTo 0

VBA/HTML-CodeConverter, AddIn für Excel 2002-2019 (32-bit) und Excel 365 (32-bit Desktop-Version) - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:René Holtz
Code erstellt und getestet in Excel 365 32-bit Desktopversion - Codedarstellung mit VBAHTML 12.6.0 erstellt.

Kommt aber eine Verschachtelung dazu komme ich nicht ganz zurecht. Die folgende Formel soll umgesetzt werden (mit der im Beispiel vorhandenen Schleife).

Arbeitsblatt mit dem Namen 'Kompaktansicht'
	F	G
3		+ ATH Me

Zelle	Formel
F3	=WENN(Vorverteilung!K9<>"";WENN(E3<>"";" + " &Vorverteilung!K9;Vorverteilung!K9);"")
G3	=WENN(Vorverteilung!R9<>"";WENN(UND(E3="";F3="");Vorverteilung!R9;" + " &Vorverteilung!R9);"")

Wie macht man es richtig? Danke!

Gruß, René

[00202]

Hallo, :19:

deine beiden gezeigten Formeln aus F und G klappen bei mir so: :21:

Code:

Range("F" & lngCount).Formula = "=IF(Vorverteilung!K" & lngZelle & "<>"""",IF(E" & lngZelle & "<>"""","" + "" &Vorverteilung!K" & lngZelle & ",Vorverteilung!K" & lngZelle & "),"""")"
Range("G" & lngCount).Formula = "=IF(Vorverteilung!R" & lngZelle & "<>"""",IF(AND(E" & lngZelle & "="""",F" & lngZelle & "=""""),Vorverteilung!R" & lngZelle & ","" + "" &Vorverteilung!R" & lngZelle & "),"""")"

[mumpel]

Danke! Da schau ich gleich mal wo mein Fehler liegt.