Office: (Office 2016) Wert aus Datenzeile filtern & in eigene Spalte bringen

Hallo Hofladen,

anbei das Makro, es kann zum Beispiel über eine Schaltfläche aufgerufen werden. Habe die Programmzeilen mit Kommentaren versehen, damit du nachvollziehen kannst, was da passiert.

Code:

Option Explicit                                                 ' erzwingt Variablendeklaration. Unbedingt erforderlich

Private Sub CommandButton1_Click()
' Variablen deklarieren
    Dim lngZeile As Long                                        ' Schleifenzähler für Zeilen
    Dim lngSpalte As Long                                       ' Variable für Spalte
    For lngZeile = 3 To Range("B2").End(xlDown).Row             ' laufe von Zeile 3 bis zur letzten Zeile
        lngSpalte = Range("L" & lngZeile).End(xlToRight).Column ' erste Spalte mit einem Inhalt finden
        Cells(lngZeile, 10) = ""                                ' Inhalt der aktuellen Zelle löschen, für den Fall von Änderungen erforderlich
        If lngSpalte < 56 Then                                  ' wenn Treffer im relvanten Bereich, dann ...
            Cells(lngZeile, 10) = CDate(Cells(2, lngSpalte))    ' ... Datum aus Zeile 2 in die aktuelle Zelle schreiben
        End If                                                  ' Ende Definition
    Next lngZeile                                               ' nächste Zeile
End Sub