Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten in Zeilen umwandeln

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

Anzeige

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

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
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
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
Anzeige
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
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
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
zwei Spalten in einem zusammenfassen
Yuki

Morgen Leute,
Könnt Ihr mir bitte erklären, wie man zwei Spalten in Excel-Datei mit Marko in einem Spalt zusammenfassen kann?
Beispiel:
vorher
Spalt A: hello Spalt B: kitty
nachher
Spalt A: hello kitty
Danke schön!
07.11.2008 09:54:43
Thread-ID: 1022541
6 Beiträge
Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Spalten in Zeilen vor Import in Access DB
mat

Hallo,
ich soll im Rahmen eines kleines Projektes einen SAP Export in eine Access DB importieren.
Das Problem liegt darin, dass die Exceldatei alle Umsätze und Absätze in einer Zeile hat. Hierbei bildet jeder Monat eine Spalte.
Für eine Datenbank macht es natürlich mehr Sinn je Mona...
08.12.2008 19:10:00
Thread-ID: 1031167
3 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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