funktionen per vba setzen
18.08.2003 14:41:38
dirk
Ich möchte per VBA-Code in einer Schleife eine Funktion in die erste Spalte jeder Zeile setzen:
Do While Not IsEmpty(fromSheet.Cells(i, 1))
Range("A" & i + 3).Select
dummy = "=IF(RC[1]=R[-1]C[1],0,1)"
ActiveCell.FormulaR1C1 = dummy
i = i + 1
Loop
Das gelingt nur unzuverlässig.
Mal nimmt er die Funktion als Funktion in der Zelle an, mal nimmt er das Ganze als String-Literal.
Das hat dann den Effekt, dass ich in einem Durchlauf (auf ein und demselben Sheet) verschiedene Effekte (je nach Zeile) beobachten kann.
Hätte eigentlich gedacht, dass das dann am Format der einzelnen Zelle liegt, aber auch wenn ich die komplette Spalte markiere und dann alle Zellen einheitlich formatiere, erziele ich unterschiedliche Ergebnisse.
Die höchste Erfolgsquote gibts eindeutig bei "Stadard"-Format, allerdings ist auch das unzuverlässig.
Hat dazu vielleicht jemand eine Idee?
Danke
Dirk