Hallo,
prinzipiell gibt es 2 Möglichkeiten.
Einmal ermittelst du am Anfang von deinem die aktuelle Zeile und merkst dir diese in einer Variablen vom Typ Long.
Dim aktuelleZeile As Long
aktuelleZeile = Selection.Row
Dann kannst du über Cells(aktuelleZeile, 7) z.B. auf G52 zugrefen.
Die Zweite Möglichkeit wäre sich die ausgewählte Zelle dirkekt in einer Variable vom Type Range zu merken.
Dim aktuelleZelle As Range
Set aktuelleZelle = Selection.Cells(1, 1)
Dann kann man über aktuelleZelle.offset(zeilen,Spalten) auf andere Zellen zugreifen.
Ich würde zu Variante eins tendieren, denn dann musst du nur die richtige Zeile auswählen, und es ist egal welche Spalte zu geählt hast.
Die obere Zeile, unter der letzten beschriebenen kann man dann z.B. so ermitteln.
Dim aktuelleZeile As Long
Dim obereZeile As Long
aktuelleZeile = Selection.Row
obereZeile = Cells(aktuelleZeile, 7).End(xlUp).Row + 1
|