Werte in Zellen einer Zeile in Spalten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

let Quelle = Excel.CurrentWorkbook(){[Name="tab_Daten"]}[Content], #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Wert1", Int64.Type}, {"Wert2", Int64.Type}, {"Wert3", Int64.Type}, {"Wert4", Int64.Type}}), #"Entpivotierte andere Spalten" = Table.UnpivotOtherColumns(#"Geänderter Typ", {"Wert1"}, "Spalte", "Daten"), #"Entfernte Spalten" = Table.RemoveColumns(#"Entpivotierte andere Spalten",{"Spalte"}) in #"Entfernte Spalten"

Sub Danni() Dim LR As Long, LC As Integer, Z As Long Dim TB1 As Worksheet, TB2 As Worksheet Dim NZ As Long Set TB1 = Sheets("Tabelle1") ' Quelle Set TB2 = Sheets("Tabelle2") ' Ziel 'Reset TB2.Cells.Delete With TB1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte For Z = 1 To LR LC = .Cells(Z, .Columns.Count).End(xlToLeft).Column - 1 'Anzahl Werte ab B TB2.Cells(NZ + 1, 1).Resize(LC, 1) = .Cells(Z, 1) TB2.Cells(NZ + 1, 2).Resize(LC, 1) = WorksheetFunction.Transpose(.Cells(Z, 2).Resize(1, LC)) NZ = NZ + LC Next End With End Sub

Hallo Dani,
... hier im thread wurden Dir neben einer VBA-Lösung und Formellösungen auch eine Lösung mit der Power Query (PQ) Funktionalität von Excel aufgezeigt. Nur Du entscheidest, welche für Dich die geeignetste ist.
Ich möchte Dir hier dazu noch folgendes mit auf den Weg geben: Keine der Lösungen sind ohne entsprechende eigene Vorkenntnisse (und oder Aufwendungen solche zu erreichen) gleich richtig einzusetzen oder gar wirklich zu verstehen.
Nachfolgend noch meine persönliche Einschätzung zu (jeglicher) PQ-Lösung. Natürlich muss man sich mit PQ auch erst erst einmal "bekanntmachen", um diese richtig einsetzen und verstehen zu können. Das gilt aber generell für jede Lösungsart. Meine persönliche Meinung aber ist, dass man im Vergleich zu VBA für PQ nur einen Bruchteil an Zeit (und Nerven) braucht, um sich damit vertraut zu machen und gar selbst eigene Lösungen zu erstellen. Ich selbst beherrsche zwar auch nur ein Bruchteil der Möglichkeiten von PQ, würde diese keinesfalls mehr missen wollen.
Einen guten Einstieg in PQ findest Du übrigens z.B. u.a. hier: https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/ oder hier: https://www.excel-ist-sexy.de/ oder eben sonst wo im www.
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C	D	E
1	Preise	Anzahl	HS		Werte
2	103	4	0		103
3	99	2	4		103
4	99	3	6		103
5			9		103
6					99
7					99
8					99
9					99
10					99
11

Zelle	Formel
C2	=WAHL(1+(A1="")+(A1&gt0)2(C1>"HS");0;"";B1+C1)
E2	=WENN(ZEILE(E1)&gtMAX(C:C);"";INDEX(A:A;VERGLEICH(ZEILE(E1)-1;C:C)))

Werte in Zellen einer Zeile in Spalten

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte in Zellen einer Zeile in Spalten

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread