Wie effizient durch Zellen schleifen?

Hallo liebe Forumskollegen,
für ziemlich viele Aufgabenstellungen schleife ich durch Zellbereiche.
Ich löse das immer wieder anders, es klappt zwar, jedoch ist es nie effizient und wahrscheinlich viel zu kompliziert. Ich brauche immer die Adresse der jeweils aktuellen Zelle, da ich mit Offset Zellen links und rechts ansprechen bzw auslesen möchte. Meistens arbeite ich mit einer LOng und einer integer Variable für die Zeile und die Spalte. Dann finde ich die letzte Zelle heraus und packe den Wert auch in eine integer Variable. Es geht sobald los mit

Sub SONICHT For each c in Range(blabla) If intZeile > lngLastRow then exit sub Cells(lngZeile, ingtCol).Value blablabla intZeile = intZeile + 1 Next c
End Sub Ziemlich kompliziert und nicht effektiv, schließlich will ich mal was lernen.
Hier also die Aufgabe, bei der ich eure Hilfe brauche:
Ich will ab Zeile 7 von A7 bis J100 den Range Bereich einschränken.
Es sollen die Zellen von A7 bis A100 durchgeschleift werden.
Pro Zelle brauche ich die Cell Adresse, damit ich mit OffSet (wie genau geht das eigentlich), Werte von z.B A7 bis J7 auslesen kann.
Das ganze soll schnell und schick und effizient sein ohne mein kompliziertes Blabla.
Kollegen, wie geht sowas?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Warum_Nicht() Dim srcRng As Range, myC As Range Set srcRng = Range("A7:A100") For Each myC In srcRng 'Offset 1. Zahl bezieht sich auf die Zeile im Verhältnis zur geprüften Zelle. 'Hier "myC" 'Offset 2. Zahl bezieht sich auf die Spalte im Verhältnis zur geprüften Zelle. 'In diesem Beispiel wird in die Nachbarzelle der gleichen Zeile geschrieben myC.Offset(0, 1) = "Test" 'Die Zahlen können auch ins Minus gehen 'In diesem Beispiel wird in die Zelle links oberhalb der aktiven Zelle geschrieben myC.Offset(-1, -1) = "Test" Next myC End Sub

Hallo Holger,

Nur kapiere ich ihn nicht ganz.
MyC wird doch nirgendwo definiert was es ist

doch hier:


Dim srcRng As Range, myC As Range

Du hast es schon ganz recht Interpretiert,
For each "klappert" in dem vorgegebennen Bereich


srcRng

immer Spaltenweise dann Zeilenweise den Bereich ab.
in deinem Fall ist aber nur eine Spalte vorhanden ,so gehts dann nur Zeilen mäßig weiter...
Offset gibt den Bereich(Range)gegen über den angegebenen Bereich(in deinem Fall myC)den Versatz zurück.
Offset(Versatz Zeile,Versatz Spalte)
in Sachen Performance ist die For Each für Größere Bereiche recht langsam ,schneller gehts mit Arrays.
Eine Inspiration hierzu findest Du hier:
http://www.online-excel.de/excel/singsel_vba.php?f=47
und hier:
http://www.online-excel.de/excel/singsel_vba.php?f=152
viele Grüße
Steffen

Beliebteste Forumthreads (12 Monate)

Wie effizient durch Zellen schleifen?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread