Anzeige
Archiv - Navigation
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Transponieren

Transponieren
11.08.2008 17:27:00
jan
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!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Transponieren
11.08.2008 17:54:00
Daniel
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


Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige