Office: Nach Farbe Filtern markieren kopieren

Guten Tag

Ich habe noch einen Schönheitsfehler in meinem Makro
Das mit dem Filtern klappt leider bekomme ich es nicht hin dass er nur die jetzt gefilterten Zeilen von A bis N ohne die Überschrift auswählt damit ich sie dann in ein anderes Tabellenblatt kopieren kann.


Sub Nach_Farbe_filtern()

Application.DisplayAlerts = False ' dieser Befehlt deaktivert alfällige Fehlermeldungen die sind bei Makros nur lästig
For x = 1 To 100000
For y = 1 To 10000
Next
Next
Sheets("GK").Select
Range("D3").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("GK").ListObjects("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("GK").ListObjects("Tabelle1").Sort.SortFields.Add( _
Range("Tabelle1[[#All],[Ausgang]]"), xlSortOnCellColor, xlAscending, , _
xlSortNormal).SortOnValue.Color = RGB(198, 224, 180)
With ActiveWorkbook.Worksheets("GK").ListObjects("Tabelle1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=3, Criteria1:= _
RGB(198, 224, 180), Operator:=xlFilterCellColor
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

End Sub


Vielen Dank

 

Hallo Gutschi,

zu deiner Anfrage könnte man einen Roman schreiben. Versuche aber es kurz zu machen:

äußerste Vorsicht mit solchen Anweisungen, Fehlermeldungen habe schon einen Sinn! Besser ist darauf achten, dass keine Fehler ausgelöst werden.

Was soll das? Bringt nur eine Zeitverzögerung. Ansonsten: verzichte auf Select-Anweisungen, die sind in aller Regel überflüssig. Bezug auf den Titel deiner Anfrage: Auswertungen nach Zellformaten sollte man nicht vornehmen.

 

Hallo,

Code:

With ActiveSheet.ListObjects("Tabelle1").Range
  .AutoFilter Field:=3, Criteria1:= _
RGB(198, 224, 180), Operator:=xlFilterCellColor
   .Offset(1).Copy
End With 

Oder:

Code:

With ActiveSheet.ListObjects("Tabelle1").DataBodyRange
  .AutoFilter Field:=3, Criteria1:= _
RGB(198, 224, 180), Operator:=xlFilterCellColor
   .Copy
End With

 

Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

 

Vielen Dank HSV hat super geklappt.
@Hajo deine Version habe ich versucht mit aber da hat es mir auch leider immer den Titel mit kopiert.

 

@HSV hättest Du mir noch gerade einen Tipp wie ich dann denn Markierten Bereich also den Inhalt nach dem kopieren löschen kann.
Mit Selection.ClearContents funktioniert das leider nicht.

 

Mit

Code:

With ActiveSheet.ListObjects("Tabelle1").DataBodyRange
  .AutoFilter Field:=3, Criteria1:= _
RGB(198, 224, 180), Operator:=xlFilterCellColor
   .Copy
   .delete
   .autofilter
End With