Spalten durchsuchen bis

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Spalten durchsuchen bis
von: Luca Meier
Geschrieben am: 27.10.2015 11:29:04

Hallo zusammen
ich habe eine Range bestehend aus einer Spalte und einigen Zellen ( Bsp Range("E2:E5"))
Nun soll er rechts davon so lange suchen bis die gleichgrosse Range frei ist, sprich wenn in F3 etwas ist soll er weitersuchen bis z.b. in G die Range daneben frei ist, sprich G2:G5 frei ist.
Wie funktioniert das? mit .find und do loop ist es mir nicht gelungen bis jetzt...
Gruss

Bild

Betrifft: AW: Spalten durchsuchen bis
von: Daniel
Geschrieben am: 27.10.2015 12:07:06
Hi

dim rngFrei as range
set rngFrei = Range("E2:E5")
Do
    Set rngFrei = rngFrei.Offset(0, 1)
Loop Until Worksheetfunction.CountA(rngFrei) = 0
Msgbox rngFrei.Address
Gruß Daniel

Bild

Betrifft: AW: Spalten durchsuchen bis
von: Luca Meier
Geschrieben am: 27.10.2015 12:50:18
Danke Daniel ! :D du hilst mir oft weiter hier ;)

Bild

Betrifft: AW: Spalten durchsuchen bis
von: Luca Meier
Geschrieben am: 27.10.2015 13:03:11
Hallo Daniel, hab noch ne Frage
gibt es ne Möglichkeit die Anzahl der Loop die er braucht zu notieren?
Ich möchte nämlich, dass alle nachfolgenden Berechnungen ("=R[0]C[1] etc. ) sich dann immernoch auf die ursprüngliche Range beziehen ( da die Inputs ja nicht an einen anderen Ort gesetzt werden ) und nur die Berechnungen an eunem neuen Ort sind ... daher hatte ich die Idee die Anzahl Loops als Variable zu notieren und so die Ziel Zellen dann jeweils zu verschieben .. sprich
statt Werte.Cells(0,5) dann halt Werte.Cells(0,5+i) zu schreiben...

Bild

Betrifft: AW: Spalten durchsuchen bis
von: Daniel
Geschrieben am: 27.10.2015 13:25:25
Hi
die absolute Spaltennummer bekommst du mit rngFrei.Column
den relativen Versatzt kannst du dann doch einfach ausrechnen. (SpaltenNummer_2 - Spaltennummer_1)
Wenn ich per VBA Formeln schreibe, verwende ich so oft wie möglich die absoluten Zellbezüge und relative nur dann, wenn's sein muss.
Gruß Daniel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten durchsuchen bis"