Horizontale Spalte zuordnen

[Excelfee]

Liebes Excelforum,

Ich habe vereinfachte Beispiele der jetzigen Datei, sowie der Datei in der finalen Version erstellt, Screenshots und eine Beispiel Datei angehängt.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Im Prinzip soll die einzig horizontale Spalte, also das Datum, den vertikalen Werten zugeordnet werden. (Die eingefärbte Spalte gibt es noch nicht)

Für den 1. Januar würde ich eine Wenn Formel erstellen das falls leer, dann leer und sonst den 01. Januar.

Problematisch ist, das pro Tag mehrere Werte und Zahlungstypen vorkommen. Zum Beispiel der 1.Januar mit dem Zahlungstyp AB und D. Folglich benötige ich 2 Zeilen mit jeweils einem Datum:


[
Bild bitte so als Datei hochladen: Klick mich!
]

Ich habe auch die Möglichkeit einer MTRANS-Funktion in Betracht gezogen. Leider geht der Zeitraum über ein Jahr und deshalb gibt es zu viele Daten.

Könnt ihr mit mit diesem Problem weiterhelfen? Ich würde auch gerne noch weitere Infos geben falls benötigt.

Beste Grüße,

eure Excelfee

[chris-ka]

Hi,

Code:

Option Explicit

Sub drehmich()
Dim ws As Worksheet
Dim spalte As Integer
Dim zeile As Long, lRow As Long
Dim ws_base As Worksheet
Set ws_base = Tabelle1
Sheets.Add
Set ws = ActiveSheet
With ws
    .Cells(1, 1).Value = "Typ"
    .Cells(1, 2).Value = "Datum"
    .Cells(1, 3).Value = "Wert"
    With ws_base
        For spalte = 2 To .Cells(1, Columns.Count).End(xlToLeft).Column
            For zeile = 2 To .Cells(Rows.Count, spalte).End(xlUp).Row
                If .Cells(zeile, spalte).Value <> "" Then
                    lRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
                    ws.Cells(lRow, 1).Value = .Cells(zeile, 1).Value
                    ws.Cells(lRow, 2).Value = .Cells(1, spalte).Value
                    ws.Cells(lRow, 3).Value = .Cells(zeile, spalte).Value
                End If
            Next
        Next
    End With
End With
End Sub

  ZuordnungBeispiel.xlsm (Größe: 15,05 KB / Downloads: 5)