Herbers Excel/VBA-Archiv

Von Startzelle leere Zelle unterhalb

• Von Startzelle leere Zelle unterhalb von Hummi vom 13.10.2020 10:29:21
• AW: Von Startzelle leere Zelle unterhalb - von Daniel am 13.10.2020 10:37:40

Betrifft: Von Startzelle leere Zelle unterhalb von: Hummi
Geschrieben am: 13.10.2020 10:29:21

Hallo zusammen,

ich möchte in einer Spalte einen Wert finden. Excel soll dann, wenn er den Wert gefunden hat, von dort aus solange weiter runter gehen, bis er eine leere Zelle gefunden hat. Von dort aus soll er dann 6 Spalten nach rechts gehen und den dortigen Wert zurückgeben.

Eine Idee wie das funktionieren kann?

Vielen Dank :-)

Hummi

  

Betrifft: AW: Von Startzelle leere Zelle unterhalb
von: Daniel
Geschrieben am: 13.10.2020 10:37:40

probiers mal so

Zelle als Range und Ergebnis als Variant deklarieren.

set Zelle = Columns(…).Find(what:="Wert")
if not Zelle is Nothing then 
    if Zelle.Offset(1, 0) = "" then
        Ergebnis = Zelle.Offset(1, 6).value
     else
        Ergebnis = Zelle.End(xldown).Offset(1, 6).value
    end if
end if

Gruß Daniel