Office: Nach Farbe Filtern markieren kopieren

Helfe beim Thema Nach Farbe Filtern markieren kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Gutschi, 9. Dezember 2023.

  1. Gutschi Neuer User

    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
     
    Gutschi, 9. Dezember 2023
    #1
  2. Klaus-Dieter Erfahrener User
    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.
     
    Klaus-Dieter, 9. Dezember 2023
    #2
  3. HSV
    HSV User
    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
     
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Nach Farbe Filtern markieren kopieren

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

    Nach Farbe Filtern markieren kopieren GrußformelNach Farbe Filtern markieren kopieren Homepage
     
    Hajo_Zi, 9. Dezember 2023
    #4
  5. Gutschi Neuer User
    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.
     
    Gutschi, 9. Dezember 2023
    #5
  6. Gutschi Neuer User
    @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.
     
    Gutschi, 9. Dezember 2023
    #6
  7. HSV
    HSV User
    Mit
    Code:
    With ActiveSheet.ListObjects("Tabelle1").DataBodyRange
      .AutoFilter Field:=3, Criteria1:= _
    RGB(198, 224, 180), Operator:=xlFilterCellColor
       .Copy
       .delete
       .autofilter
    End With
     
Thema:

Nach Farbe Filtern markieren kopieren

Die Seite wird geladen...
  1. Nach Farbe Filtern markieren kopieren - Similar Threads - Farbe Filtern markieren

  2. Serienbrief Seriendruckfeld Farbe ändern

    in Microsoft Word Hilfe
    Serienbrief Seriendruckfeld Farbe ändern: Hallo, ich habe in Excel Daten gesammelt, diese möchte ich nun in einen Serienbrief ausgeben. Das ist mir soweit bekannt. Meine Frage kann man die Übergabe auch die Formatierung der Schrift...
  3. Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.

    in Microsoft Excel Hilfe
    Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.: Guten Tag, ich habe, eigentlich, ein simples Problem und bekomme einfach nicht die Funktion korrekt geschrieben. Ich würde gerne eine Bedingte Formatierung durchführen für eine Zelle, die Bezug...
  4. versch. Wörter (Farben) aus Text filter und in neue Spalte kopieren

    in Microsoft Excel Hilfe
    versch. Wörter (Farben) aus Text filter und in neue Spalte kopieren: Hallo, Ich benötige dringend eine Formel um mehrere Schlagwörter (alles Farben) aus verschiedenen Spalten mit Text herauszufiltern und in eine neue Spalte einzufügen. Ich habe eine große Tabelle...
  5. nach Farben filtern

    in Microsoft Excel Hilfe
    nach Farben filtern: Hallo Leute, ich weiß nicht wie ich mich ausdrücken soll aber ich tue es mal *Smilie Ich habe in der Tabelle 3 Spalten: Namen; Datum/Stunde; Ort ich möchte separat (neues Blatt-Registerblatt)...
  6. warum ist nach Farbe filtern inaktiv?

    in Microsoft Excel Hilfe
    warum ist nach Farbe filtern inaktiv?: hallo, in anhängender Datei möchte ich z.B. Spalte D nach Farbe filtern. Leider ist der Punkt nicht aktiv! Warum nicht bzw. was muss ich an der Tabelle ändern damit ich filtern kann? Grüße Stefan...
  7. nach farben filtern

    in Microsoft Excel Hilfe
    nach farben filtern: Ein wunder schönen guten morgen alle zusammen..... Kann mir einer sagen ob es möglich ist alle farbiegen spalten in ein extra blatt zu kopieren oder zu filtern?!? dickes danke schon mal.....
  8. Filtern nach Farben

    in Microsoft Excel Hilfe
    Filtern nach Farben: Hallo wieder einmal, Ich habe eine Tabelle in der in verschiedenen Zellen bedingte Formatierungen hinterlegt sind. Nun würde ich mir gerne in der kompletten Tabelle alle Zellen anzeigen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden