Forum des VBA-Tutorials

Formel nur in sichtbare Zeilen übertragen (VBA)

Martin Asal, Donnerstag, 23. März 2017, 21:41 (vor 93 Tagen) @ Sascha

Da dir For offenbar mehr liegt als Do, hier einmal der komplette Code (ungetestet, so aus dem Bauch raus mit Copy&Paste)

 
With WB_Analyse_Tool.Worksheets("ZCOHF_Basis")
    UsedRange = .Range("AJ100000").End(xlUp).Row
 
    For i = 2 To UsedRange
        If Not .Cells(i, "A").Rows.Hidden Then 
            .Cells(i, "AL").Value = Application.VLookup(.Cells(i, "N").Value, WB_Analyse_Tool.Worksheets("Hilfsdaten").Range("A:D"), 2, False)
        End If
    Next
End With
 

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum