Horizontaal / verticaal

[bbroeders]

Hallo,

Ik kan wel een paar formules in Excel uitvoeren maar ik ben op zoek naar het volgende:

Ik heb een Excel werkblad waar horizontaal een aantal getallen staan in bijv. rij 25

Rij 25 5 4 4 3 5 6

Nu wil ik in een ander Excel werkblad (binnen hetzelfde bestand) dezelfde getallen maar dan onder kolom B.

Kolom B
5
4
4
3
5
6



Hoe dat ik dat? (zonder dit handmatig over te moeten nemen).

Ik hoop dat het duidelijk is wat ik bedoel en dus wil.
Zo niet mail / reageer een aub.

Alvast bedankt.

Groeten,

Barbara Broeders

 

[MJONK]

Hallo Barbara,

Kopieer je rij met getallen,

in het andere tabblad rechter muisknop, plakken speciaal, transponeren aanvinken.

en zie wat het doet!

Mvg,

MJONK

 

[bbroeders]

Super bedankt voor de tip transponeren.

Maar...

Weet iemand ook of dit gekoppeld kan worden aan elkaar?

Dus als ik iets invul in de Rij dat het automatisch ook in de kolom in het andere werkblad aangepast wordt.

Kan dit?

Ik hoor het wel.

Groeten,

Barbara

 

[MJONK]

bedoel je gewoon celverwijzing??

je zult ze dan wel handmatig in moeten voeren per cel. Daarna wijzigen ze mee.

bijvoorbeeld:


Onderstaande formule geeft de waarde weer die in cel E16 op blad 2 staat.

=Blad2!E16

 

[bbroeders]

Hai MJONK,

Bedankt voor je snelle reactie.
Ik ben niet helemaal volledig geweest met mijn info.
Van de verwijzing ben ik inderaad op de hoogte.
Maar dan zou het gaan om ongeveer 850 cellen.
En dat vind ik best veel om handmatig te doen.

Ik haal uit werkblad1 25 getallen die in en rij staan.
Die wil ik in werkblad30 in kolom A hebben.

Dan haal ik uit werkblad2 weer 25 getallen die in een rij staan
Die wil in werkblad30 in kolom B hebben.

En zo ga ik 34 werbladen af.

Als ik alleen voor de verwijzing ga dan kan ik deze wel naar "beneden" kopieren maar dan pakt hij ook automatisch een cel verder. Ik heb graag dat ie dan in dezelfde rij blijft maar een kolom opschuift.

Ik weet niet zeker of mijn verhaal er duidelijker op geworden is.

Ik hoor het wel.

Groeten,

Barbara

 

[Joske2000]

Hi Barbara,

Dit gaat met de functie transponeren.

Wel invoer als matrixformule.

Zie vb

Joske

 

[MJONK]

Waarschijnlijk is het met een formule wel te realiseren, hiervoor zou ik een voorbeeldbestandje posten.


Wat je ook kunt doen.... met plakken speciaal en dan "koppeling plakken". dan krijg je alle formules, vervolgens met zoeken/vervangen de = vervangen voor een # en dan transponeren. Dan daarna omgekeerd zoeken/vervangen. Dus de # weer een = maken en je hebt je formules.

Ik geef toe dat het niet makkelijk is.


nog een optie;



De verwijzingen na "koppeling plakken" absoluut maken met onderstaande code en dan daarna naar de plaats plakken waar je hem wilt hebben:

'Convert_Reference Type Macro
'A Visual Basic module to convert absolute references to relative
'references or relative references to absolute references.
Sub Conv_RefType()
    Dim Conv As String
    'Prompt user to change to relative or absolute references
    Conv = Application.InputBox _
        ("Type A to convert to Absolute, R to Relative Reference(s)", _
        "Change Cell Reference Type")
      'If changing relative to absolute references
      If UCase(Conv) = "A" Then
          'Loop through each cell selected
          For Each Mycell In Selection
          If Len(Mycell.Formula) > 0 Then
                'Stores cell's formula as variable
                MyFormula = Mycell.Formula
                'Converts formula to absolute reference style
                NewFormula = Application.ConvertFormula _
                    (Formula:=MyFormula, _
                    fromReferenceStyle:=xlA1, _
                    toReferenceStyle:=xlA1, _
                    toAbsolute:=xlAbsolute)
                'Replaces old formula with new absolute formula
                Mycell.Formula = NewFormula
            End If
        Next
    'If changing absolute to relative references
    ElseIf UCase(Conv) = "R" Then
           'Loop through each cell selected
           For Each Mycell In Selection
               If Len(Mycell.Formula) > 0 Then
                   'Stores cell's formula as variable
                   MyFormula = Mycell.Formula
                   'Converts formula to relative reference style
                   NewFormula = Application.ConvertFormula _
                    (Formula:=MyFormula, _
                    fromReferenceStyle:=xlA1, _
                    toReferenceStyle:=xlA1, _
                    toAbsolute:=xlRelative)
                'Replaces old formula with new relative formula
                Mycell.Formula = NewFormula
            End If
        Next
    'Display Error message if choice entered is invalid
    ElseIf UCase(Conv) <> "FALSE" Then
        MyMsg = "Enter A for Absolute, R for Relative Reference(s)"
        MyTitle = "Option Not Valid"
        MyBox = MsgBox(MyMsg, 0, MyTitle)
    End If
End Sub

 

[MJONK]

die functie van joske kende ik nog niet! super oplossing. weer wat geleerd.

 

[bbroeders]

Joske,

Heb Excel bestand is wat ik bedoel.
Ik neem aan dat het ook nog mogelijks is in verschillende werkbladen.

Ik begrijp alleen niet helemaal hoe je dit voor elkaar hebt gekregen.

Ik denk dat je eerst de reeks getallen horizontaal hebt ingevuld.
En daarna het verticaal gedeelte pas.
Het lukt me wel om dit in 1 cel te doen maar hoe krijg je de rest dan ook.

Ik hoop dat je het me stap voor stap uit kunt en wilt leggen.

alvast bedankt.

Barbara

 

[Joske2000]

Hi,

Ik heb eerst de cijfers horizontaal ingegeven.

Dan breng je in een cel (A2 bv) de volgende formule in :

=TRANSPONEREN($A$25:$F$25)

Deze kopieer je naar beneden

Dan duid je het bereik aan (in mijn geval A2 tot A7), je drukt of [F2] en dan sluit je af met Ctrl+Shift+Enter

Groetjes,

Joske

 

[bbroeders]

SUPER BEDANKT.

Het is me gelukt.
Echt geweldig.

 

[Joske2000]

Dat horen we graag.
Kan je de vraag nog op opgelost plaatsen .

Bedankt,

Joske :thumb: