Heute komme ich mit einem Standardproblem ... ich stolper da immer wieder drüber, aber bis jetzt kann ich mir die Lösung nicht merken oder die richtigen Begriffe für Google finden ...
Ich habe eine Struktur in der ein "Modell Name" und Elemente (Sensoren) gespeichert sind. Nun gehe ich ein Array dieser Struktur nach und nach durch und suche das jeweilige Element in einer entsprechenden Tabelle. Aus dem gefundenen Wert extrahiere ich die Spalte.
In der Tabelle, in der ich den Wert gefunden habe, stehen Daten. Ich möchte nun nach und nach das Minimum, das Maximum, den Median und das arith. Mittel berechnen. Ich weiß, das ich dafür die WorksheetFunctions nehmen kann. Ich komme aber nicht auf die Bestimmung der Range.
Snippet bisher:
For i = 0 To UBound(Models)
For j = 0 To UBound(Models(i).Sensors)
Set srcCell = Worksheets(Models(i).ModelName).Cells.Find(Models(i).Sensors(j))
If Not srcCell = "" Then
'Split(srcCell.Address, "$")(1) 'results in column letter
Worksheets("Statistics").Cells(lastRow + j, 1) = Models(i).Sensors(j)
' Compute minimum, write in statistics column B
' Worksheets("Statistics").Cells(lastRow + j, 2) =
' Compute maximum, write in statistics column C
' Worksheets("Statistics").Cells(lastRow + j, 3) =
' Compute median, write in statistics column D
' Worksheets("Statistics").Cells(lastRow + j, 4) =
' Compute average, write in statistics column E
' Worksheets("Statistics").Cells(lastRow + j, 5) =
Else
End If
Next j
lastRow = lastRow + j
Next i
(warum das Forum das Snippet nicht als Code akzeptiert weiß ich nicht).
Mir kann bestimmt jemand weiterhelfen die entsprechende Range zu definieren ... Ich vermute, dass mit einem Konstrukt ala
Range(Cells(,Split(srcCell.Address, "$")(1)),Cells(,Split(srcCell.Address, "$")(1)))
gehen müsste. Aber ich bekomme es nicht so richtig hin.
Über sachdienliche Hinweise bin ich dankbar :)
Viele Grüße