Hallo!
Ich möchte in einem Makro eine Reihe von Konfidenzintervallen erstellen... Und zwar sollen die hinterher alle im Bereich Q47:BN87 stehen. Für jeden Wert benötige ich 3 Argumente, die jeweils in den beiden Feldern vor der jeweiligen Zeile (also Ox und Px) und in dem Feld über der jeweiligen Spalte (also x46) stehen. Bisher sieht das so aus:
Dim iRow As Long
Dim iColumn As Long
iRow = 47
iColumn = 17
For iRow = 47 To 87
For iColumn = 17 To 66
Cells(iRow, iColumn).Activate
ActiveCell = "=Confidence(Cells(iRow,15),Cells(iRow,16),Cells(46,iColumn))"
Next iColumn
Next iRow
Der Bereich wird damit richtig ausgewählt und durchlaufen, nur leider ohne brauchbaren Wert. Das Problem besteht wohl darin, dass entweder die Laufvariablen iRow und iColumn nicht in der Funktion CONFIDENCE verwendet werden können, oder aber dass hier nicht mit CELLS gearbeitet werden darf. Mit RANGE wusste ich nicht wie ich das realisieren soll mit der Laufvariablen für die Spalte, da diese ja mit einem Buchstaben gekennzeichnet wird.
Ich habe schon gegoogelt wie blöd und schon verschiedene Möglichkeiten ausprobiert, wie z.B.:
Dim iRow As Long
Dim iColumn As Long
Dim Arg1 As Double
Dim Arg2 As Double
Dim Arg3 As Double
iRow = 47
iColumn = 17
Arg1 = Cells(iRow, 15)
Arg2 = Cells(iRow, 16)
Arg3 = Cells(46, iColumn)
For iRow = 47 To 87
For iColumn = 17 To 66
Cells(iRow, iColumn).Activate
ActiveCell = "=Confidence(Arg1, Arg2, Arg3,)"
Next iColumn
Next iRow
Auch hier wurde das gesamte Feld angewählt und durchlaufen, allerdings auch ohne brauchbaren Wert, da jetzt die Argumente aus den in entfernten Galaxien liegenden Zellen ARG1, ARG2 und ARG3 geholt wurden, wo halt nichts drin stand. Was muss man da machen, damit die Variablen Arg1, Arg2 und Arg3 in der Funktion verwendet und auch mit den Laufvariablen hochgezählt werden?
Kann mir jemand von euch weiterhelfen?