Einzelnen Beitrag anzeigen
Alt 12.01.2018, 22:59   #8
aloys78
MOF Meister
MOF Meister
Standard

Hallo Oelis,

beim Vergleich Deiner Beschreibung mit der Beispieldatei fällt mir auf:

Zitat:

ich habe in Zeile2 eine Datumsangabe in jeder Spalte

Ich sehe die in Zeile 1

Zitat:

in einem anderen Blatt1 habe ich Werte welche sich wöchentlich verändern. Diese Werte stehen immer an gleicher stelle.
Beispiel ZelleD5 bis Zelle D30

Ich sehe diese Werte in D5 bis D33

Ggf kannst Du meinen Lösungsvorschlag ja anpassen.
Code:

Option Explicit

Sub Kopieren()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim c As Long, s As Long
    Dim LCol1 As Long
    Dim LCol2 As Long
    Dim erg As Variant
    
    Set ws1 = Worksheets("Blatt1")
    Set ws2 = Worksheets("Blatt2")
    
    With ws1
        LCol1 = .Cells(2, Columns.Count).End(xlToLeft).Column
        LCol2 = ws2.Cells(1, Columns.Count).End(xlToLeft).Column
        For c = 4 To LCol1
            erg = Application.Match(.Cells(2, c), ws2.Range(ws2.Cells(1, "B"), ws2.Cells(1, LCol2)), 0)
            If IsNumeric(erg) Then
                s = erg + 1
                ws2.Range(ws2.Cells(2, s), ws2.Cells(31, s)).Copy .Cells(4, c)
            End If
        Next c
    End With
End Sub
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten