Abfolge alle untereinander

[Enzo3]

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

[Werner.M]

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

[Jockel]

Hi, ob der Code bei Maxcel läuft..?

[Werner.M]

Hallo Jörg,

hab ich gar nicht gesehen.

Gruß Werner

[RPP63]

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

[Jockel]

Hallo, wohl eher nicht...

[LCohen]

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.