Office: Zurück zur bestimmter Zelle im Schleifenmodus

Hallo,

für einen Schleifecode muss ich immer wieder von Zellen in der ersten Spalte aus starten.

Die Schleife funktioniert so, dass Werte aus einer Tabelle jeweils nach rechts weg ausgelesen werden. Ist die letzte befüllte Zelle erreicht, muss ich zur ersten Spalte der gleichen Zeile zurück.

z.B. ActiveCell.Offset(0, (-1)).Range("a1").Select

Wie komm ich genau (!) zu dieser Zelle, ohne sie fest zu definieren?
Kann jemand helfen?

 

Hallo,

wenn Du vor der Wanderung nach rechts der Ausgangszelle einen Namen gibst,

ActiveWorkbook.Names.Add Name:="Ausgangszelle", RefersToR1C1:=ActiveCell

dann kannst Du später jederzeit wieder mit

Application.Goto reference:="Ausgangszelle"

zu ihr zurückfinden.

 

Hallo leMatze,

probiere es hiermit...

Cells(ActiveCell.Row, 1).Activate

... damit springst du immer in der selben Zeile in Spalte "A".. deshalt am ende die "1" ;-)

Gruß
Martin

 

Dat funzt!!!! Super!

Die nächste Frage folgt promt auf den Fuß:
Ausgehend von dieser Zelle in Spalte A will ich zu einer bestimmten Spalte (gleiche Zeile) zurück, um den entsprechenden Wert auszulesen. Die Spalte wird über den Spaltenkopf definiert.

Meine Idee:
Ich definiere die gesamte Spalte zuvor als Bereich "BB" und springe dann ausgehend von Spalte A hin. Aber wie schreibe ich das als Code???

 

Problem hat sich mit Probieren geklärt !!! War doch nicht so schwer...
Ausgangspunkt ist letzte Zeile in bestimmter Spalte:

Cells(1, ActiveCell.Column).Range("A1").Activate
ActiveCell.Offset(0, 1).Range("A1").Select 'Versetze aktiven Bereich 0 Zeilen/1 Spalte nach rechts
ActiveWorkbook.Names.Add Name:="Fachbereich", RefersToR1C1:=ActiveCell 'Benenne neuen Bereich als Fachbereich (>>>ursprl. Fachbereich-Zuordnung wird aufgehoben)
a = ActiveCell.Value

Danke trotzdem!

PS:
Großes Lob an alle, die dieses Forum am Laufen halten! Ich konnte mir bei Euch schon ne Menge Anregungen holen und Antworten kommen idR. sehr zeitnah und effektiv…