Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte in Zeile transponieren (mit Makro)

Forumthread: Spalte in Zeile transponieren (mit Makro)

Spalte in Zeile transponieren (mit Makro)
23.03.2016 10:47:13
Christian
Hallo Zusammen,
ich benötige mal wieder eure Hilfe.
Ich möchte gerne eine Exceldatei etwas umbauen mit einem Makro, da ich diese Datei täglich in der Form erhalte.
In der Quelldatei sind Spalte A, B, C, D, E, F, G solange gleich, wie in Spalte H Nummern stehen, die quasi zu der lfd. Nr. (in Spalte A) gehören.
Die Spalten I, J, K sind irrelevant.
Ich bräuchte jetzt quasi die Spalte H transponiert in eine Zeile.
Ziel ist es, in Zeile A jede "lfd. Nrummer" nur noch 1x zu haben.
Ab Spalte N sollen quasi die Zellen aus Zeile H transponiert werden. (Das kann mal 1 Spalte bedeuten, kann aber auch mal 50 oder mehr Spalten bedeuten)
In Spalte M benötige ich die Anzahl der durch die transponierung gefüllten Spalten.
Ich habe mal eine Datei angehängt, mit 2 Mappen. Mappe1 ist der Ursprung und Mappe 2 mein zu erreichendes Ziel.
Ich habe schon ein wenig probiert, aber ich scheitere an der Transponierung bei unterschiedlichen Zeilenzahlen je "lfd. Nummer".
Ich hoffe es kann mir hierbei jemand helfen.
Vielen Dank schonmal vorab!
https://www.herber.de/bbs/user/104553.xls

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 11:02:13
Fennek
Hallo,
es gibt zwei Wege, mit denen du dich annähern kannst.
Mit dem Makrorekorder einfach copy und Inhalte einfügen - transponieren
In vba: application.transpose
Mfg

AW: es geht aber auch ohne VBA mit 3 Formeln! owT
23.03.2016 11:10:06
...
Gruß Werner
.. , - ...

AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 11:10:33
ChrisL
Hi Christian
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, tempZeile As Variant
Set WS1 = Worksheets("Ursprung")
Set WS2 = Worksheets.Add
WS2.Range("A1:AE1") = "div. Titel"
For iZeile = 2 To WS1.Cells(WS1.Rows.Count, 1).End(xlUp).Row
tempZeile = Application.Match(WS1.Cells(iZeile, 1), WS2.Columns(1), 0)
If IsNumeric(tempZeile) Then
WS2.Range("IV" & tempZeile).End(xlToLeft).Offset(0, 1) = WS1.Cells(iZeile, 8)
Else
tempZeile = WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row + 1
WS2.Range(WS2.Cells(tempZeile, 1), WS2.Cells(tempZeile, 11)).Value = _
WS1.Range(WS1.Cells(iZeile, 1), WS1.Cells(iZeile, 11)).Value
WS2.Cells(tempZeile, 14) = WS1.Cells(iZeile, 8)
End If
WS2.Cells(tempZeile, 13) = WS2.Cells(tempZeile, 13) + 1
Next iZeile
End Sub

cu
Chris

Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 15:00:29
Christian
Hallo Chris,
das ist riesig. Klappt genau so wie ich es mir vorgestellt habe!!! Vielen Dank dafür.
ich hab es jetzt in mein Import-Makro eingebaut und hab nur noch eine kleine Frage.
Ich sortiere die Spalten in der Zieltabelle etwas um. ich nutze dafür:

With .Range(.Cells(1, 1), .Cells(zaehler_4, 1))   'Spalte A ---> C
.Copy
wksAlle.Cells(Zeile_K, 3).PasteSpecial Paste:=xlPasteValues
End With
With .Range(.Cells(1, 2), .Cells(zaehler_4, 2))   'Spalte B ---> A
.Copy
wksAlle.Cells(Zeile_K, 1).PasteSpecial Paste:=xlPasteValues
usw...
Allerdings will ich jetzt für die transponierten Spalten nicht für jede Spalte eine seperaten Codeteil schreiben (ich würde bis Spalte "SS" machen --> das sind dann 500 transponierte).
gibt es dafür nicht eine Möglichkeit ala "Letzte Spalte"?

Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 15:56:06
ChrisL
Hi Christian
Schwer zu beurteilen ohne Zusammenhang.
Grundsätzlich stellt sich die Frage, ob es beim Umsortieren ein bestimmtes Muster gibt oder ob es ein "willkürliches" Umsortieren ist.
Wenn es kein Muster gibt, kann man mit folgendem Vorgehen (beispielhaft) ein paar Buchstaben sparen.
Sub DeinMakro()
Call HilfsMakro(1, 3) ' von A nach C
Call HilfsMakro(2, 1) ' von B nach A
End Sub 
Private Sub HilfsMakro(lVon As Long, lNach As Long)
Cells(1, lVon).Copy Cells(1, lNach)
End Sub

cu
Chris

Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 17:45:13
Christian
Hallo Chris,
manchmal hab ich auch ein Brett vor dem Kopf. Das geht auch so ganz leicht :)
With .Range(.Cells(1, 14), .Cells(zaehler_4, 513))   'Spalte N-SS ---> AI-TN
.Copy
wksAlle.Cells(Zeile_K, 35).PasteSpecial Paste:=xlPasteValues
Aber Danke nochmal für deine großartige Hilfe :)
Anzeige
;

Forumthreads zu verwandten Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Anzeige
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Anzeige
Spalten mit Zeilen tauschen ?
Holger

Hallo zusammen,
gibt es in Excel eine Möglichkeit, Daten einer oderer mehrere Spalten nun quasi um 90° zu drehen und alles in eine oder mehrere Zeilen zu kopieren.
Gruss
Holger Wächter
18.09.2008 10:26:00
Thread-ID: 1010640
4 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Spalte ausblenden, wenn in Zeile 9, die Füllfarbe?
Selma

Hallo Leute,
wie kann ich die Spalten die in Zeile 9 folgende Füllfarbe 6, 39, 46, 48, 51, 52, 53 haben, ausblenden?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
13.10.2008 11:06:05
Thread-ID: 1015964
17 Beiträge
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Spalte in Zeile transponieren mit VBA und Excel-Formeln

Schritt-für-Schritt-Anleitung

Um eine Spalte in eine Zeile zu transponieren, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste in das Projektfenster und wähle Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub t()
   Dim WS1 As Worksheet, WS2 As Worksheet
   Dim iZeile As Long, tempZeile As Variant
   Set WS1 = Worksheets("Ursprung")
   Set WS2 = Worksheets.Add
   WS2.Range("A1:AE1") = "div. Titel"
   For iZeile = 2 To WS1.Cells(WS1.Rows.Count, 1).End(xlUp).Row
       tempZeile = Application.Match(WS1.Cells(iZeile, 1), WS2.Columns(1), 0)
       If IsNumeric(tempZeile) Then
           WS2.Range("IV" & tempZeile).End(xlToLeft).Offset(0, 1) = WS1.Cells(iZeile, 8)
       Else
           tempZeile = WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row + 1
           WS2.Range(WS2.Cells(tempZeile, 1), WS2.Cells(tempZeile, 11)).Value = _
           WS1.Range(WS1.Cells(iZeile, 1), WS1.Cells(iZeile, 11)).Value
           WS2.Cells(tempZeile, 14) = WS1.Cells(iZeile, 8)
       End If
       WS2.Cells(tempZeile, 13) = WS2.Cells(tempZeile, 13) + 1
   Next iZeile
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle t und klicke auf Ausführen.

Mit diesem Makro kannst Du die Spalte H in eine Zeile umwandeln und die Werte aus der Spalte transponieren.

Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 9: Index außerhalb des gültigen Bereichs.“

    • Lösung: Stelle sicher, dass die Arbeitsblätter „Ursprung“ und das Ziel-Worksheet bereits existieren.

  • Fehler: „Typenkonflikt.“

    • Lösung: Überprüfe, ob die Daten in den Zellen korrekt sind und keine leeren Zellen das Skript stören.

  • Fehler: „Das Makro kann nicht gefunden werden.“

    • Lösung: Überprüfe, ob das Makro im richtigen Modul gespeichert ist und dass Du es korrekt auswählst.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch Excel-Formeln nutzen:

  1. Verwende die Funktion TRANSPOSE:

    • Markiere den Bereich, in dem die transponierten Werte erscheinen sollen.
    • Gebe die Formel =TRANSPOSE(A1:A10) ein und drücke CTRL + SHIFT + ENTER (bei älteren Excel-Versionen).

  2. Kopieren und Transponieren:

    • Kopiere die Daten aus der Spalte.
    • Klicke mit der rechten Maustaste in die Zielzelle und wähle Inhalte einfügen > Transponieren.

Diese Methoden sind nützlich, wenn Du in Excel schnell Werte aus Spalten in Zeilen umwandeln möchtest.

Praktische Beispiele

  1. Beispiel mit VBA:

    • Angenommen, Du hast in Spalte H mehrere IDs, die Du in Zeile N transponieren möchtest. Das oben genannte Makro erledigt dies automatisch.

  2. Beispiel ohne VBA:

    • Wenn Du die Werte aus Spalte B in Zeilen umwandeln möchtest, kannst Du die TRANSPOSE-Funktion verwenden: 
      =TRANSPOSE(B1:B10)

Tipps für Profis

  • Verwende dynamische Bereiche: Um die Anzahl der transponierten Spalten zu zählen, kannst Du die Funktion COUNTA verwenden, um die Anzahl der gefüllten Zellen in einer Spalte zu ermitteln.

  • Automatisiere den Prozess: Integriere das Transponieren in ein größeres Makro, das alle notwendigen Schritte zur Datenverarbeitung enthält.

  • Behalte die Originaldaten: Bevor Du Daten transponierst, erstelle immer eine Sicherungskopie der Originaldaten, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten gleichzeitig transponieren?
Mit VBA kannst Du die Schleife anpassen, um mehrere Spalten gleichzeitig zu verarbeiten.

2. Kann ich die Transponierung auch ohne VBA durchführen?
Ja, Du kannst die TRANSPOSE-Funktion oder die Funktion „Inhalte einfügen“ in Excel verwenden, um Spalten in Zeilen umzuwandeln.

3. Was mache ich, wenn die Daten nicht richtig transponiert werden?
Überprüfe die Quellwerte auf leere Zellen oder Ungenauigkeiten, die das Ergebnis beeinflussen könnten.

4. Wie kann ich die Anzahl der transponierten Spalten zählen?
Verwende die Funktion COUNTA, um die Anzahl der nicht leeren Zellen in der transponierten Zeile zu zählen.

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