Microsoft Excel

Herbers Excel/VBA-Archiv

Transponieren

Betrifft: Transponieren von: jan
Geschrieben am: 11.08.2008 17:27:36

Hi hab folgende Liste

Spalte A Spalte B
100200 Text1
100300 Text2
100200 Text3
100200 Text4
100300 Text5

Brauche rat für ein makro welches folgendes ergebnis bezweckt:

Spalte A SpalA SpalC SpalD
100200 Text1 Text3 Text4
100300 Text2 Text5

Hat hier jemand eine idee? wäre super, zerbreche mit hier schon mit transponieren und filter
die ganze zeit den kopf!

  

Betrifft: AW: Transponieren von: Daniel
Geschrieben am: 11.08.2008 17:54:12

Hi
das macht das folgende Marko
die Daten müssen im Blatt "Tabelle1" stehen und werden ins Blatt "Tabelle2" kopiert.

Sub Test2()
Dim Quelle As Range
Dim Ziel As Range
With Sheets("Tabelle2")
For Each Quelle In Sheets("Tabelle1").UsedRange.Columns(1).Cells
    Set Ziel = .Columns(1).Find(what:=Quelle.Value)
    If Ziel Is Nothing Then
        Set Ziel = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Ziel.Value = Quelle.Value
    End If
    .Cells(Ziel.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Quelle.Offset(0, 1). _
Value
Next
.rows(1).delete
End With
End Sub