Hallo VBA-Forum,
Ich habe unten stehende kleine Schleife in einem ziemlich großen Hauptprogramm laufen.
Ich bekomme auch keinen Fehler angezeigt, wenn ich die Schleife laufen lasse. Aber leider wird mir nix in "Cells(x,4)" ausgegeben.
Wenn ich stattdessen folgende Formel verwende
Cells(1, 4) = "=if(iserror(Average(A1:A6)),"""",(Average(A1:A6)))"
funktioniert alles.
Weiss jemand, warum es dann nicht mit variablen Zellen funktioniert? Wenn ich mit dem Befehl Range mehrere Zellen markieren will geht es ja genau so.
Ich habe heute schon ziemlich lange nach dem Problem gesucht und nichts gefunden. :-(
Ich würde schon ganz gerne variable Zell-Aufrufe nutzen, da sonst mein Programm knapp 500 Zeilen lang immer wieder nur eine einzige leicht abgewandelte Zeile enthalten würde.
Dim i As Integer
Dim d As Date
Dim x As Integer
Dim y As Integer
Dim z As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
x = 1
y = 1
z = 6
Do
Cells(x, 4) = "=if(iserror(Average(Cells(y,1), Cells(z,1))),"""",(Average(Cells(y,1), Cells(z,1))))"
x = x + 1
y = y + 6
z = z + 6
Loop While x < 48 And y < 283 And z < 288
Vielen Dank für die Hilfe.
mfg
Frank
|