Thema Datum  Von Nutzer Rating
Antwort
30.01.2023 16:59:38 Gast30775
NotSolved
Blau VBA Excel Filter + Paste
30.01.2023 18:50:19 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
30.01.2023 18:50:19
Views:
164
Rating: Antwort:
  Ja
Thema:
VBA Excel Filter + Paste

leider kann ich deiner Beschreibung nicht so recht folgen. 

Aber ich habe mal versucht etwas draus zu machen.  Die nicht weggefilterten Zeilen sollten in "Zusammenfassung" an den Datenbereich unten angefügt werden. Wenns nicht funktioniert leigts am Fehlen einer Beispieldatei.  Ohne Testdatei, gibts nur Ratespielchen.

Sub Update()

'Filterung
  With Sheets("Tabelle1").Cells(1, 1).CurrentRegion
    .autofilter Field:=10, Criteria1:=">=" & CLng(StartDate), Operator:=xlAnd, Criteria2:="<=" & CLng(EndDate)
    .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible).Copy
  End With
  Application.CutCopyMode = False

  With Workbooks("Zusammenfassung.xlsm").Worksheets("Referenz")
     .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Paste
  End With
     
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.01.2023 16:59:38 Gast30775
NotSolved
Blau VBA Excel Filter + Paste
30.01.2023 18:50:19 ralf_b
NotSolved