Thema Datum  Von Nutzer Rating
Antwort
Rot Advanced Filter Problem
09.12.2021 18:20:58 Julia
NotSolved
10.12.2021 09:01:57 Gast65327
NotSolved

Ansicht des Beitrags:
Von:
Julia
Datum:
09.12.2021 18:20:58
Views:
108
Rating: Antwort:
  Ja
Thema:
Advanced Filter Problem

Hey zusammen,

in meinem Code funktioniert der Part mit dem AdvancedFilter nicht..
Ich kann mir vorstellen, dass es an der Zuordnung rgCriteria liegt..
Ich suche im Prinzip nach einem Datum in zwei verschiedenen Spalten..aber obwohl das Datum vorkommt, wird es weggefiltert
Die zu filternden Daten sind auch beide vom Typ Datum...
Ich weiß ist kompliziert ohne Datei.

Danke schon einmal.

 

Option Explicit

Sub AdvancedFilter()

Dim my_wb As Workbook
Dim my_ws As Worksheet
Dim my_wb2 As Workbook
Dim my_ws2 As Worksheet

 

Dim Verz As String, Datei As String

Verz = "C:\Users\julia\Desktop\"


Workbooks.Open Filename:=Verz & "Lenkungsliste.xlsx"


Set my_wb = Workbooks("Lenkungsliste.xlsx")
Set my_ws = my_wb.Worksheets("PZM21")
Set my_wb2 = Workbooks("Hallo.xlsm")
Set my_ws2 = my_wb2.Worksheets("Tabelle1")

 

my_ws.Activate


my_ws.Range("A1:AE400").Copy _
Destination:=my_ws2.Range("A1")

my_ws2.Range("O9:O300").Copy
my_ws2.Range("O9:O300").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Range("Q9:Q300").Copy
Range("Q9:Q300").PasteSpecial xlPasteValues
Application.CutCopyMode = False

my_ws2.Range("A8:R8").Copy _
    Destination:=my_ws2.Range("T1")


Dim Datumplus As Date
Dim d As String

Datumplus = DateAdd("d", 3, Date)

my_ws2.Range("AH2").Value = Datumplus
my_ws2.Range("AJ2").Value = Datumplus

my_ws2.Range("AH2").Copy
my_ws2.Range("AH2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

my_ws2.Range("AJ2").Copy
my_ws2.Range("AJ2").PasteSpecial xlPasteValues
Application.CutCopyMode = False


Dim rgData As Range, rgCriteria As Range
Set rgData = my_ws2.Range("A8").CurrentRegion
Set rgCriteria = my_ws2.Range("T1").CurrentRegion
 
rgData.AdvancedFilter xlFilterInPlace, rgCriteria

 
Range("A1:AM5").Clear
ActiveSheet.Columns("A:R").EntireColumn.AutoFit

my_wb.Close savechanges:=False

 

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
Rot Advanced Filter Problem
09.12.2021 18:20:58 Julia
NotSolved
10.12.2021 09:01:57 Gast65327
NotSolved