[Excel] Kolom transponeren in tabbladen

[Aristos]

Is er een mogelijkheid om een kolom te "transponeren" in tabbladen? Zo wordt dus een kolom A1:A10 getransponeerd in 10 tabbladen met daarin in A1 de celwaarde...

Iemand (dit kon vroeger wel in Lotus)?

[Verwijderd]

eerst het bereik selecteren dat je aldus wil transponeren en dan onderstaand uitvoeren :

Visual Basic:

Sub TransposeToTabs()
  Dim AantalTabs        As Long
  Dim RangeToTranspose  As Range
  
  Set RangeToTranspose = Selection
  For AantalTabs = 1 To RangeToTranspose.Rows.Count
    If (AantalTabs > Worksheets.Count) Then
      Worksheets.Add(after:=Worksheets.Count).Range("a1").Value = _
          RangeToTranspose.Cells(AantalTabs)
    Else
      Worksheets(AantalTabs).Range("a1").Value = RangeToTranspose.Cells(AantalTabs)
    End If
  Next
  RangeToTranspose.Resize(AantalTabs - 1).Offset(1).Clear
End Sub

en hoe deed je dit in lotus? (zeg nu niet ommmm...)

[Falcon]

Ja dat kan met de optie Plakken Speciaal.

[Verwijderd]

Falcon schreef op dinsdag 08 december 2009 @ 15:08:
Ja dat kan met de optie Plakken Speciaal.

een kolom met gegevens automatisch verdelen over meerdere tabbladen (1 cel per tabblad)? don't think so. maar als ik iets kan bijleren, houd ik me aanbevolen.

[Aristos]

Falcon schreef op dinsdag 08 december 2009 @ 15:08:
Ja dat kan met de optie Plakken Speciaal.

Precies, bijleren! VBA actie is kundig, maar kan het ook makkelijk?

[Falcon]

Jullie hebben inderdaad gelijk. Te snel gereageerd zie ik nu in.