Hallo
brauche ein Möglichkeit eine Tabelle untereinander aufzuführen
In Spalte A sind Datümer für 365 Tage und darunter entsprechende Werte.
Nun brauche ich das alles in zwo Spalten (Datum und Werte) zusammengefasst wobei vor jedem Wert das entsprechende Datum stehen muss
Gruss
Hallo,
Voraussetzung:
-alle Spalten der Ursprungstabelle sind gleich weit (Zeile) befüllt
-rechts neben der Ursprungstabelle stehen keine Daten
Code:
Option Explicit
Public Sub Test()
Dim loLetzte As Long, loLetzteZiel As Long, loSpalte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Tabellenblatt1")
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To loSpalte
loLetzteZiel = .Cells(.Rows.Count, loSpalte + 3).End(xlUp).Offset(1).Row
If .Cells(1, loSpalte + 3) = "" Then loLetzteZiel = 1
.Cells(1, i).Copy
.Cells(loLetzteZiel, loSpalte + 3).Resize(loLetzte - 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Range(.Cells(2, i), .Cells(loLetzte, i)).Copy
.Cells(loLetzteZiel, loSpalte + 4).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Next i
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
Hi, ob der Code bei Maxcel läuft..?
Hallo Jörg,
hab ich gar nicht gesehen.
Gruß Werner
Moin!
Mit PowerQuery ein Klacks:
- A1:C7 (automatisch) markieren,
- Daten, aus Tabelle
- Spalten A:C markieren
- Transformieren, entpivotieren
- Spalte A sortieren
- Übergabe an Excel
Ob der Mac PQ hat, kann ich allerdings nicht sagen …
Gruß Ralf
Hallo, wohl eher nicht...
E1[:F18]:
=INDEX($A$1:$C$7;WENN(SPALTE(A1)=1;1;REST(ZEILE(A1)-1;6)+2);ZEILE(A6)/6)
- An den 6ern und 7ern kannst Du nun Dinge wie ANZAHL2() anlehnen, um Dein Beispiel zu verallgemeinern. Oder Du ersetzst sie durch die tatsächlichen Dimensionen, bspw. 8344 und 8345.
- Formatieren tust Du selbst.