|
Hallo,
da die Anzahl der Zeilen dynamisch sind und ich die Formeln nicht immer einzeln verlängern will bzw. kontrollieren möchte.
und irgendwie interessiert es mich auch
Mit der Funktion:
varDat = Evaluate("CHOOSECOLS(FILTER(A:AI,AI:AI>=" & rngKrit.Value & "),1,3,8,15,23,25)")
For lngZeile = LBound(varDat) To UBound(varDat)
Debug.Print varDat(lngZeile, 1)
Next lngZeile
.Range("A1").Resize(lngZeile - 1, 6).Value = varDat
scheint es auch zu funktionieren, ich bin mir nur nicht sicher, wie ich hier Tabellenblatt übergreifend ich das mache. Sprich in Tabelle 1 ist die Wuelle und in Tabelle2 das Ergebnis.
|