Navigation

   Hej,
Jeg har brug for en funktion, der returnerer værdierne for adressen på hhv. start- og slutcellen i en Range, f.eks. 1, 1 og 3, 3 - hvis Rangen går fra A1 til C3.

Det tætteste jeg kan komme er følgende kode :

Dim oRange As Range
Dim startRow As Integer
Dim endRow As Integer
Dim startCol As Integer
Dim endCol As Integer

With Selection
    startRow = .Rows(1).Row
    startCol = .Columns(1).Column
    endRow = .Rows(Selection.Rows.Count).Row
    endCol = .Columns(Selection.Columns.Count).Column

End With

Range("a1") = startRow
Range("b1") = startCol
Range("a2") = endRow
Range("b2") = endCol

Makroen returnerer de 4 værdier, jeg har brug for - men i hver sin celle. Hvordan får jeg mon "samlet" værdierne startRow/startCol - og endRow/endCol - i en variabel eller celle?

Håber, det giver mening 

Med venlig hilsen
Erik

Navigation

Adresse på start/slut i en Range?