Bereichspos obenrechts und unten links abfragen
Peter
Mit den unten angefügten Funktionen frage ich die erste (oben links) resp. die letzte (unten rechts) Zelle eines Bereichs ab.
Nun möchte ich auch noch die Zelle rechts der ersten Zeile des Bereichs und die Zelle links der letzten Zelle abfragen können.
Beispiel:
Bereich = B5:J39
Function sErsteZelle(Bereich) = B5
Function sLetzteZelle(Bereich) = J39
neue Funktionen (gesucht)
Function sErsteZelleObenRechts(Bereich) = J5
Function sLetzteZelleUntenLinks(Bereich) = B39
Wie kann ich die gesuchen Zellen innerhalb eines bestimmten Bereiches abfragen?
Gruss, Peter
Public Function sErsteZelle(Bereich As String)
sErsteZelle = Range(Bereich)(1).Address(0, 0)
End Function
Public Function sLetzteZelle(Bereich As String)
sLetzteZelle = Range(Bereich)(Range(Bereich).Cells.Count).Address(0, 0)
End Function
Anzeige