Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Transponieren

Forumthread: 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!

Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige