Transponer med absolutte referencer på relative referencer

Hvis dine referencer ligner hinanden, kan du lave en "søg og erstat". Indsæt et dollartegn i dine referencer foran henholdsvis række og kolonne. Et eksempel: $A$1

Hvis alle dine referencer eksempelvis relaterer sig til kolonne A, kan du erstatte A med $A$

Søg og erstat er en løsning! Er der rigtig rigtig mange med forskellige referencer - er noget VBA løsningen

En løsning kunne være at sætte/slette ' foran celler  :

Select område og kør :
Sub pling()
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Select
a = Cell.Formula
Cell.Formula = "'" & a
Next Cell
End Sub

Så kopierer du dit område og transponerer m.m.
Derefter selecter du dit nye område og kører :

Sub pling_væk()
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Select
a = Mid(Cell.Formula, 1, 100)
Cell.Formula = a
Next Cell
End Sub

Fo god ordens skyld må
a = Mid(Cell.Formula, 1, 100)
hellere erstattes med
a = Mid(cell.Formula, 1, Len(cell.Formula))

Hej Aheiss

Det ser rigtigt godt ud. Jeg prøver det lige af efter mit møde..

Her en forbedret udgave. Marker område og kør makro.

Sub transponer_absolut()
Application.ScreenUpdating = False
On Error GoTo slut
Dim b As Range
Set b = Selection
Dim ud As Range
Set ud = Range(InputBox("Eksempel:      F7", "Output - startcelle"))
For Each cell In b
cell.Select
c = cell.Formula
cell.Formula = "'" & c
Next cell
b.Copy
ud.Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
pling_væk
b.Select
pling_væk
b(1, 1).Select
Application.CutCopyMode = False
slut:
End Sub
Sub pling_væk()
For Each cell In Selection
cell.Select
a = Mid(cell.Formula, 1, 100)
cell.Formula = a
Next cell
End Sub

igen !!
a = Mid(Cell.Formula, 1, 100)  = 
a = Mid(cell.Formula, 1, Len(cell.Formula))

Det virker kanon - tak for hjælpen Aheis. Lægger du lige et svar så du kan få nogle velfortjente points ?

Godt du kan bruge det - og her et svar :-)

Det er da en god kode - tak for hjælpen og god weekend.