Kopiere adskilte celleområder (kolonneform) over til rækker

Er det ikke lidt det samme som http://www.eksperten.dk/spm/288019

Den sidste makro i ovennævte spm. kan gøre det HVIS
1. alle data er i kolonne A
2. Der er ALTID ens antal celler pr celleområdet.

Data findes i flere kolonner og der er IKKE altid ens antal celler pr. celleområde!!Hjælp!
Henrik

Ok, så prøv lige denne her af. Den virker ikke på celler med formler..


Sub tester()
Dim rArea As Range
Dim i As Integer
Dim rNewPlace As Range
Dim rOldPlace As Range
Set rOldPlace = Application.InputBox("Marker området der skal transponeres", Type:=8)
Set rNewPlace = Application.InputBox("Placering af 1. nye celle", Type:=8)
rOldPlace.SpecialCells(xlCellTypeConstants, 23).Select
For Each rArea In Selection.Areas
    rArea.Copy
    rNewPlace.Offset(i, 0).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
    i = i + 1
Next
End Sub

Takker. Jeg forsøger så snart tiden tillader det.Over and out.

Jeg bukker, nejer og takker. Det funker!!!