|
Hallo,
ich bin davon ausgegegangen, dass die Zelle z.B. H3 sichtbar ist, da ich vorher den Autofilter gesetzt habe und auch noch mit " If rng.RowHeight > 0 Then" mich absichern wollte, dass die Zelle sichtbar ist.
Ich habe hier mal den Auszug allerdings noch mit der Umgehungslösung mit Variable.
Vielleicht kannst du mir weiterhelfen. Das wäre nett.
Schöne Grüße und besten Dank für jede Hilfe,
Thomas
wsamd.ShowAllData
wsamd.Range("A1:W" & lngletzteZeile).AutoFilter Field:=11, Criteria1:="=" & ">35" 'Autofilter auf DLZ >35 Tage gefiltert
wsamd.Range("A1:W" & lngletzteZeile).AutoFilter Field:=7, Criteria1:="=" & "x" 'Autofilter auf geschlossene CMPs gefiltert
wsamd.Range("A1:W" & lngletzteZeile).AutoFilter Field:=9, Criteria1:="=" & Date
lnglast_row = wsfilt.Cells(Rows.Count, 1).End(xlUp).Row 'benutzter Bereich in Sheet
i = lnglast_row + 1
For Each rng In wsamd.Range("I1:I" & lngletzteZeile)
If rng.RowHeight > 0 Then
If wsamd.Cells(rng.Row, 9).HasFormula Then
wsamd.Range("A" & rng.Row & ":C" & rng.Row).SpecialCells(xlCellTypeVisible).Copy 'Kopieren der gefilterten Datensätze
wsfilt.Range("A" & i & ":C" & i).PasteSpecial (xlPasteValuesAndNumberFormats) 'Einfügen der auf ("Heute")Formel geprüften Zeile
strvariable = wsamd.Range("H" & rng.Row) ' .SpecialCells(xlCellTypeVisible).Copy
wsfilt.Range("D" & i & ":E" & i).Value = strvariable 'PasteSpecial (xlPasteValuesAndNumberFormats)
|