For-Each in Range und Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Daniel,
aber sicher ist x im 1.Fall As Range und im 2. As Variant deklariert (es ist ohnehin nur Objekt oder Variant möglich!). Ist XXX Variant, enthält es im 1.Fall einen Bereich, im 2. ein Datenfeld. Datenfelder haben aber keinen direkten Bezug zu ihrem evtl HerkunftsBereich mehr! Das wäre bei allen SchleifenTypen so und damit hätte der auch nur indirekt mit diesem Problem zu tun.
Wenn du in diesem Fall den ZellInhalt automatisch ändern willst, benötigst du 1. einen im ProzedurKopf ByRef (Standard) und As Range deklarierten BereichsParameter und 2. muss dessen Bezug auch erhalten bleiben, damit du den neuen Wert dem jeweiligen Feld direkt zuordnen kannst. Das Ändern des durch die LaufVariable repräsentierten Elements des Variant-Arrays nutzt gar nichts, da nicht mal das Original-Element geändert wird. Das müsstest du mit seinen PositionsIndizes ansprechen, wobei die bei diesem Schleifentyp separat hochgezählt wdn müssten, wobei einiges zu beachten ist (ZellBereiche wdn zeilen-, Datenfelder spaltenweise durchlaufen!).
Ein Ändern eines Zellwerts in einer Variant-For Each-Schleife stellt den Sinn der Variant-Bildung infrage. Deshalb sollte hier das einzelne Element des Variants geändert wdn, was nur über die Indizes, nicht per LaufVariabler fktt. Nach SchleifenDurchlauf kann dann das Ergebnis in Gänze in den ursprüngl ZellBereich zurückgeschrieben wdn. Das wäre das übliche Vorgehen in diesem Fall.
Luc :-?

Public Sub DurchArray2() Dim MeinFeld, g, i MeinFeld = Array(1, 2, 3) For Each g In MeinFeld Debug.Print "FE1: " & g g = 5 Next g For Each g In MeinFeld Debug.Print "FE2: " & g Next g For i = LBound(MeinFeld) To UBound(MeinFeld) Debug.Print "For To 1: " & MeinFeld(i) MeinFeld(i) = 5 Next For Each g In MeinFeld Debug.Print "FE3: " & g Next g End Sub

…Frage von MichaV, Daniel,
an die ich mich Jahre später erinnert und dafür eine Abhilfe geschaffen hatte, die das separate Hochzählen eines Index in einer For Each-Schleife ggf überflüssig macht. Allerdings setzt das die Anlage einer speziellen Fkt und ihre Anwendung im Kopf der Schleife voraus, was die Abarbeitungsgeschwindigkeit ggf etwas verzögern könnte, da zuerst diese Fkt abgearbeitet wird, die das Datenfeld um eine vorangestellte lfdNr ergänzt. Diese kann dann in der Schleife als Index benutzt wdn. Gleichzeitig wird aber aus einem (bzw mehreren) normalen Vektoren (auch EinzelSpalten oder -Zeilen eines Bereichs) ein vertikaler Vektor erzeugt, dessen Elemente aus Datenfeldern (über die Spalten/Zeilen der jeweiligen Zeile/Spalte) bestehen. Dazu findet man Ausführungen von mir im hiesigen Archiv und im alten OL-Xl(VBA)Forum. Solche UDFs habe ich Pair, VPairs oder Paar bzw Paare genannt, wenn es um maximal 2 Vektoren geht, bei mehr als 2 Couple. Ein AnwendungsBsp dafür (UDF SubSet) wird demnächst im OX/CP-Forum (Online-Excel/CodeProjekt) zu finden sein.*
* Hier im Archiv schwer, das Richtige zu finden; habe die einzige Stelle mit BspCode selbst nicht mehr gefunden → viele Irrwege!
Luc :-?

Sub Indexbildung() Dim A, Z ReDim B(0) A = Array(1, 2, 3): MsgBox Join(A, "; ") For Each Z In A If Len(B(0)) Then ReDim Preserve B(UBound(B) + 1) B(UBound(B)) = 2 * Z Next A = B: MsgBox Join(A, "; ") End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

For-Each in Range und Array

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread