Office: (Office 2010) Spalten in Zeilen umwandeln wenn A1 gleich A2

Helfe beim Thema Spalten in Zeilen umwandeln wenn A1 gleich A2 in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen Ich brauche dringend Hilfe! Ich muss eine 57765 Zeilen lange Liste formatieren. Es geht um Infos zu Produkten, die ca. so aussehen:... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von AnadePinho, 24. April 2018.

  1. AnadePinho Neuer User

    Spalten in Zeilen umwandeln wenn A1 gleich A2


    Hallo zusammen

    Ich brauche dringend Hilfe!

    Ich muss eine 57765 Zeilen lange Liste formatieren.

    Es geht um Infos zu Produkten, die ca. so aussehen:

    [TABLE="class: grid, width: 500"]
    <tbody>[TR]
    [TD][/TD]
    [TD]A[/TD]
    [TD]B[/TD]
    [TD]C[/TD]
    [/TR]
    [TR]
    [TD]1[/TD]
    [TD]201100435[/TD]
    [TD]Beispieltext 1[/TD]
    [TD]Beispieltext 2[/TD]
    [/TR]
    [TR]
    [TD]2[/TD]
    [TD]201100435[/TD]
    [TD]Beispieltext 3[/TD]
    [TD]Beispieltext 4[/TD]
    [/TR]
    [TR]
    [TD]3[/TD]
    [TD]201100435[/TD]
    [TD]Beispieltext 5[/TD]
    [TD]Beispieltext 6[/TD]
    [/TR]
    [TR]
    [TD]4[/TD]
    [TD]540110157[/TD]
    [TD]Beispieltext 7[/TD]
    [TD]Beispieltext 8[/TD]
    [/TR]
    [TR]
    [TD]5[/TD]
    [TD]540110157[/TD]
    [TD]Beispieltext 9[/TD]
    [TD]Beispieltext 10[/TD]
    [/TR]
    [TR]
    [TD]6[/TD]
    [TD]601124785[/TD]
    [TD]Beispieltext 11[/TD]
    [TD]Beispieltext 12[/TD]
    [/TR]
    </tbody>[/TABLE]

    Was ich nun brauche ist, dass die "Informationen" des Produktes auf eine Zeile kommen und nicht auf mehreren Zeilen sind.

    Das würde dann so aussehen:

    [TABLE="class: grid, width: 800"]
    <tbody>[TR]
    [TD][/TD]
    [TD]A[/TD]
    [TD]B[/TD]
    [TD]C[/TD]
    [TD]D[/TD]
    [TD]E[/TD]
    [TD]F[/TD]
    [TD]G[/TD]
    [/TR]
    [TR]
    [TD]1[/TD]
    [TD]201100435[/TD]
    [TD]Beispieltext 1[/TD]
    [TD]Beispieltext 2[/TD]
    [TD]Beispieltext 3[/TD]
    [TD]Beispieltext 4[/TD]
    [TD]Beispieltext 5[/TD]
    [TD]Beispieltext 6[/TD]
    [/TR]
    [TR]
    [TD]2[/TD]
    [TD]540110157[/TD]
    [TD]Beispieltext 7[/TD]
    [TD]Beispieltext 8[/TD]
    [TD]Beispieltext 9[/TD]
    [TD]Beispieltext 10[/TD]
    [TD][/TD]
    [TD][/TD]
    [/TR]
    [TR]
    [TD]3[/TD]
    [TD]601124785[/TD]
    [TD]Beispieltext 11[/TD]
    [TD]Beispieltext 12[/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [TD][/TD]
    [/TR]
    </tbody>[/TABLE]

    Kann mir irgend jemand helfen?

    Vielen Dank!
     
    Zuletzt von einem Moderator bearbeitet: 30. November 2020
    AnadePinho, 24. April 2018
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    wenn in Spalte A

    1. keine Leerzellen vorkommen
    2. die Daten sortiert vorliegen (wie im Beispiel)
    3. nur die Spalten B und C den zu transponierenden Text enthalten

    dann z.B. mit folgendem Makro:

    Code:
    Sub Transformieren()
        Dim lngAnzahl As Long
        Dim lngZeile As Long
        Dim rngBereich1 As Range
        Dim rngBereich2 As Range
        For lngZeile = 1 To Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            lngAnzahl = Application.CountIf(Columns(1), Cells(lngZeile, 1))
            If lngAnzahl > 1 Then
                Set rngBereich1 = Range(Cells(lngZeile, 2), Cells(lngZeile + lngAnzahl - 1, 2))
                Set rngBereich2 = Range(Cells(lngZeile, 3), Cells(lngZeile + lngAnzahl - 1, 3))
                Cells(lngZeile, 2).Resize(1, lngAnzahl) = Application.Transpose(rngBereich1.Value)
                Cells(lngZeile, 2 + lngAnzahl).Resize(1, lngAnzahl) = Application.Transpose(rngBereich2)
                Range(Cells(lngZeile + 1, 1), Cells(lngZeile + lngAnzahl - 1, 1)).ClearContents
                lngZeile = lngZeile + lngAnzahl - 1
            End If
        Next lngZeile
        Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End Sub
    
    
    Bis später,
    Karin
     
    Beverly, 25. April 2018
    #2
  3. lupo1
    lupo1 Tutorial Guru
Thema:

Spalten in Zeilen umwandeln wenn A1 gleich A2

Die Seite wird geladen...
  1. Spalten in Zeilen umwandeln wenn A1 gleich A2 - Similar Threads - Spalten Zeilen umwandeln

  2. Tabellen Spalten in Zeilen umwandeln

    in Microsoft Access Hilfe
    Tabellen Spalten in Zeilen umwandeln: Hallo zusammen, ist es möglich aus einer Tabelle über eine Abfrage (oder gerne auch anders) folgendes darzustellen. So sieht die Ursprungstabelle aus: imgur.com Produkt: Zutat 1:...
  3. Tabellenwerte in Spalte umwandeln

    in Microsoft Excel Hilfe
    Tabellenwerte in Spalte umwandeln: Hallo, Ich habe Monatswerte für mehrere Jahr in einer Tabelle (siehe Muster). Die Tabelle wird über die Jahre weiter wachsen. Nun soll aus diesen Werten auch noch ein Grafik erstellt werden,...
  4. Werte aus einer Spalte - in Zeile umwandeln

    in Microsoft Access Hilfe
    Werte aus einer Spalte - in Zeile umwandeln: Hallo! Bin eben dabei sowas wie einen Veranstaltungskalender zu machen. Ich habe das Event X - an dem eine Reihe an Personen eingeladen werden. Diese Personen gebe ich quasi untereinander in...
  5. Spalten einer Matrix in Zeilen, und Zeilen in Spal umwandeln

    in Microsoft Excel Hilfe
    Spalten einer Matrix in Zeilen, und Zeilen in Spal umwandeln: Hallo! Ich hab folgendes Problem: Ich habe eine Excel Tabelle, bei der ich Spalten und Zeilen vertauschen möchte, ohne alles mühsam händisch umzutippen. Beispiel: statt.... Januar...
  6. Mehrere Spalten in eine einzige Zeile umwandeln

    in Microsoft Access Hilfe
    Mehrere Spalten in eine einzige Zeile umwandeln: Hallo zusammen, ich möchte mit access eine Abfrage erstellen, die einen unendlich langen Link produziert, dies habe ich in einer Tabelle mit zahlreichen Spalten bereits umgesetzt. Aber wie...
  7. Riesen-Probleme mit Spalten in Zeilen umwandeln

    in Microsoft Excel Hilfe
    Riesen-Probleme mit Spalten in Zeilen umwandeln: Hallo Wahrscheinlich gar nicht so schwer wenn man es weiß Habe 5930 Einträge in der Spalte "A". Diese sollen in Zeilen aufgeteilt werden und zwar alle 593 Einträge lang. Also das ganze sollte...
  8. Zeilen in Spalten umwandeln

    in Microsoft Excel Hilfe
    Zeilen in Spalten umwandeln: Hallo, ich suche schon seit einer Std nach einer passenden problemlösung, finde aber nix gescheutes. ich habe folgendes trouble mit einer liste: in einer exel-tabelle sind in jeder zeile...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden