Wenn-Schleife in Zelle nicht programmierbar
23.11.2004 11:02:41
Martin
folgendes Problem ist bei mir aufgetreten.
Möchte in eine Zelle eine Unterscheidung einbauen, aber VBA unterstützt dies nicht.
Kann mir jmd sagen, was ich falsch mache.
Hier das Beispiel:
Sub Zelle_belegen ()
n_contract = 5
For i_contract = 1 To n_contract
Range("A" & i_contract).Select
ActiveCell.FormulaR1C1 = "=Wenn(Zahl_" & i_contract & "*Zahl_" & i_contract + 1 & "<0;0;1)"
End Sub