Kopiere celler i forhold til markerede celle

Public Sub CopySpeciel()
Dim A As Variant, FR As Long, LR As Long
A = RangeRowColumns(Selection)
FR = A(2)
LR = A(4)
Range("B" & FR & ":B" & LR & ",F" & FR & ":F" & LR & ",S" & FR & ":S" & LR).Copy
End Sub

Function RangeRowColumns(rtest As Range) As Variant
    Dim st As String
    Dim x As Integer
    st = rtest.Address
    st = Replace(st, ":", "")
    RangeRowColumns = Split(st, "$")
End Function

Det virker jo smukt! "Dim x as Integer" - du bruger da ikke variabel x nogle steder, eller hva'? Smid et svar, og tak for hjælpen!

du har ret med X, bare slet linjen.

et svar ;-))