Zelladresse oberhalb, resp. aus Zeile 1 ermitteln
28.11.2014 12:24:44
Peter
Mit nachstehender Funktion möchte ich die Position einer Zelle ermitteln, in der ein "x" steht, ausgehend von einer Zelle die als Range übergeben wird - die gesuchte Zelle ist oberhalb der übergebenen Zelle. Falls dort kein "x" gefunden wird, wird die Adresse der ersten Zeile der entsprechenden Spalte übergeben.
In meiner Beispieldatei funktioniert das, solange ein "x" oberhalb gefunden wird. Falls kein "x" gefunden wird, erhalte ich nicht die erste Zelle der Spalte zurück.
Wer kann mir helfen?
Gruss, Peter
Option Explicit
Function xZellAdr(rng As Range)
Dim zNr As Long, sNr As Long, strTab As String
strTab = Application.Caller.Parent.Name
zNr = rng.Row
sNr = rng.Column
With ThisWorkbook.Sheets(strTab)
Do
zNr = zNr - 1
If zNr = 0 Or .Cells(zNr, sNr).Value = "x" Then Exit Do
Loop
If zNr = 0 Then xZellAdr = .Cells(1, sNr).Address(0, 0) Else xZellAdr = .Cells(zNr, sNr). _
Address(0, 0)
End With
End Function
https://www.herber.de/bbs/user/94096.xls
Anzeige