Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Transpose, aber wie?

Forumthread: Transpose, aber wie?

Transpose, aber wie?
22.11.2016 20:51:36
Ben
Hallo VBA-Profis,
ich bin auf der Suche nach einem Makro, welches mir eine Menge Arbeit ersparen könnte.
Ich würde gerne, dass das Marko meine Daten so transponiert, wie in dem angehängten File beschrieben.
Für mich ist es schwierig, dass immer zwei Zellen kopiert und transponiert werden müssten.
Würde mich freuen, wenn Ihr mir helfen könnt :)
LG
Hier die Datei:
https://www.herber.de/bbs/user/109649.xlsx
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nix transponse
22.11.2016 21:49:52
EtoPHG
Hallo Ben,
Was soll den da transponiert werden? Ein Transpose ist das Vertauschen von Horizontaler und Vertikaler!
Bei deinem Problem geht es nur um eine Aufteilung von Zeilen-Bereichen auf mehrere Einzel-Zeilen.
Mit einfacher Schulmathe und Funktionen wie Index, Spalten und Zeilen Berechnungen geht das mit Standarformeln. Für ein Makro (was ich für überflüssig halte) müsste man die genauen Ausgangsadresse und die erste Zieladresse, sowie die Tabellennamen und/oder Indices der Blätter kennen.
Gruess Hansueli
Anzeige
AW: ....oder festlegen.
22.11.2016 22:16:06
Gerd
Hallo

Sub test()
Dim Y, Z, X
Dim a As Long, b As Long
With Worksheets("Tabelle1")
X = .Range("A5").Value
Y = .Range(.Range("B5"), .Range("B5").End(xlToRight)).Value
End With
ReDim Z(1 To UBound(Y, 2) / 2, 1 To 3)
For b = 1 To UBound(Y, 2) Step 2
a = a + 1
Z(a, 1) = X
Z(a, 2) = Y(1, b)
Z(a, 3) = Y(1, b + 1)
Next
Worksheets("Tabelle2").Range("A2").Resize(UBound(Z), 3) = Z
End Sub
Gruß Gerd
Anzeige
AW: Transpose, aber wie?
22.11.2016 22:17:34
Piet
Hallo Ben,
ich habe dein Beispiel geladen aber noch nicht verstanden was du da kopierst?
Meinst du damit die Eingabe in der Zeile 5 nach Ausgabe in Zeile 10 Kopieren?
Wenn ja, soll die naechste Eingabe unten angehangen werden, oder die alte
Eingabe nach unten geschoben werden. Alles machbar. Was ist dein Anliegen?
mfg Piet
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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