AW: VBA farbige Zellen kopieren und in
25.06.2019 01:17:38
Werner
Hallo Fidi,
so:
Sub Auswahl_kopieren()
Dim strBlatt As String, loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Kopie")
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
.Range("$A$1:$CZ$" & loLetzte).AutoFilter Field:=6, Criteria1:= _
RGB(255, 255, 0), Operator:=xlFilterCellColor
With .AutoFilter.Range
strBlatt = Format(.SpecialCells(xlCellTypeVisible).Areas(2).Cells(1, 5), "MMMM")
'## nur diese Codezeile geändert ##
.Columns("C:F").Offset(1).Resize(.Rows.Count - 1).Copy
End With
With Worksheets(strBlatt)
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Row
.Cells(loLetzte, 2).PasteSpecial Paste:=xlPasteAll
End With
End With
Application.CutCopyMode = False
End Sub
Gruß Werner