Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 13:08:11
VBA Versions-Wechsel von Office 2016 auf 2019 64 Bit Fehler
17.05.2024 13:03:50
Minuten mehrerer Zeiteinträge für ein Zeitintervall summier
17.05.2024 12:55:57
Tolles Forum, tolle Informationen, danke ... doch leider
17.05.2024 12:45:34
Abwesenheiten Auswertung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1956to1960
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten in Zeilen umwandeln

Spalten in Zeilen umwandeln
05.12.2023 15:18:20
Olaf_1968
Hallo Zusammen,

ich benötige mal Euere Hilfe.

Ich möchte aus dieser Tabelle

Userbild

diese Tabelle ´herstellen´.

Userbild


Dabei ist es egal, ob ich die Tabelle in ein neues Tabellenblatt oder eine andere Tabelle kopieren muss.

Über eure Lösungsvorschläge freue ich mich.
Vielen Dank schon mal im voraus

Gruß
Olaf

Ich bin nicht so oft online; habt also Geduld mit mir.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit Power Query (PQ) "andere Spalten entpivotieren" owT
05.12.2023 15:35:26
neopa C
Gruß Werner
.. , - ...
AW: Spalten in Zeilen umwandeln
05.12.2023 16:04:33
UweD
Hallo

versuch das mal 

Private Sub Olaf()

    Dim TB1 As Worksheet, TB2 As Worksheet, i As Long

    Dim Sp1 As Integer, Sp2 As Integer, ZE As Integer, LR1 As Long, LC1 As Integer, LR2 As Long

    

    '*** bescheunigt das Makro

    Application.ScreenUpdating = False

    

    '*** Stammdaten Anfang

    Set TB1 = Sheets("Tabelle1")

    Set TB2 = Sheets("Tabelle2")

    Sp1 = 1 'Spalte A

    Sp2 = 5 'Spalte E

    ZE = 5 'ab Zeile

    '*** Stammdaten Ende

    

    

    With TB2

        LR1 = TB1.Cells(TB1.Rows.Count, Sp1).End(xlUp).Row 'letzte Zeile der Spalte

        LC1 = TB1.Cells(ZE, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile

        LR2 = .Cells(.Rows.Count, Sp1).End(xlUp).Row

        

        'Reset

        .Rows(2).Resize(LR2).Delete



        For i = ZE + 1 To LR1

            LR2 = .Cells(.Rows.Count, Sp1).End(xlUp).Row + 1

            .Cells(LR2, 1).Resize(LC1 - Sp2 + 1, 1) = TB1.Cells(i, 1)

            .Cells(LR2, 2).Resize(LC1 - Sp2 + 1, 1) = Application.Transpose(TB1.Cells(ZE, Sp2).Resize(1, LC1 - Sp2 + 1))

            

            .Cells(LR2, 4).Resize(LC1 - Sp2 + 1, 1) = Application.Transpose(TB1.Cells(i, Sp2).Resize(1, LC1 - Sp2 + 1))

        

            .Cells(LR2, 7).Resize(LC1 - Sp2 + 1, 1) = TB1.Range("B2")

            .Cells(LR2, 8).Resize(LC1 - Sp2 + 1, 1) = TB1.Range("B3")

        

        Next i

    End With

End Sub


LG UweD
Anzeige
AW: Spalten in Zeilen umwandeln
06.12.2023 07:00:08
Olaf_1968
Schon mal vielen Dank bis hierhin.

Ich werde es mir mal in Ruhe anschauen.
AW: Spalten in Zeilen umwandeln
06.12.2023 08:13:34
Olaf_1968
Hallo Uwe,

das klappt super. Vielen Dank

Gruß
Olaf

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige