Office: Autofilter per VBA aus anderer Arbeitsmappe steuern

Sorry, das muss selbstverständlich anders herum heißen:

Code:

denn es sollen A1:Oxxx kopiert werden, wobei xxx die letzte belegte Zeile in Spalte A ist.

 

Hallo...

Nachdem der Code das ganze Jahr sehr gut Funktioniert hat ergibt sich nun ein Problem beim Jahreswechsel.

Das Makro setzt den Filter für Dez.14 auf zwischen 01.12.15 bis 31.12.15.
Grund wird wohl sein weil bei der Abfrage das akt. Jahr verwendet wird.
dblDatum = CDate(DateSerial(Year(Date), Month(Range("E8")) + 1, 0))


Wie muss ich das jetzt ausdrücken wenn ich für die Abfrage ein Jahr in Zelle K5 vorgeben will?

Sheets("Steuerblatt").Select 'Definiert Kriterientabellenblatt
'
Dim lngLetzte As Long
Dim dblDatum As Double
Dim bytMonat As Byte
Dim wkbMappe As Workbook
Dim strFilter1 As String
Dim dblFilter3 As Double
If IsNumeric(Range("E8")) Then
dblDatum = CDate(DateSerial(Year(Date), Month(Range("E8")) + 1, 0))
Else
bytMonat = Month(DateValue("01." & Range("E8") & "." & Year(Date)))
dblDatum = CDate(DateSerial(Year(Date), bytMonat + 1, 0))
End If
Windows("Datendatei.xls").Activate
With wkbMappe
With Worksheets("Data")
.Range("A1").AutoFilter
With .Columns("A:C")
.AutoFilter Field:=1, Criteria1:=">=" & CDbl(CDate(DateSerial(Year(Date), Month(dblDatum), 1))), _
Operator:=xlAnd, Criteria2:="

 

Hi,

genau so wie bei Month(...), bzw. wenn nur die Jahreszahl drin steht, anstelle des gesamten Ausdrucks für das Jahr die Zelladresse.

 

Bin damit bisher noch nicht zum Ergebnis gekommen:

dblDatum = CDate(DateSerial(Year(Range("K5")), Month(Range("E8")) + 1, 0))

Nur da bleibt das Makro in dieser Zeile hängen. Oder muss das Range da raus?

Grüße Wiesel

 

Hi (dies ist die Anrede in einem Beitrag),

(hier folgt der Beitragstext)

Was verstehst du unter "bleibt hängen"?
Also in dem Code selbst kann ich keinen Fehler entdecken. Was steht denn genau in K5? Also ich erhalte - wenn in beiden Zellen ein Datum steht - mit dieser Codezeile keinerlei Fehermeldung:

Code:

(und am Ende eines Beitrages steht ein Gruß mit einem Namen. Ein klein wenig Zeit für etwas Höflichkeit im Umgang miteinander sollte schon übrig sein, denn auf der anderen Seite der Leitung sitzen ebenfalls Menschen und keine Computer *wink.gif*. Eine solche Beitragsgestaltung fördert die Bereitschaft der Helfer, auf Beiträge zu antworten, denn wir tun dies in unserer Freizeit und kostenlos)

 

Richtig... Hi nochmal...

Dann muss ich das nochmal durchspielen. Hatte bereits versucht das selbst so anzupassen. Hab das Makro auf Arbeit. Somit bin ich also nicht zu weit von der Lösung entfernt.

In K5 steht "2014".

Danke für deine schnelle Hilfe... Erstaunlich wie sich das doch auswirkt wenn man im Stress ist *Smilie

Bis Bald Wiesel

 

Hi,

wenn in K5 nur die Jahreszahl steht, dann reicht (wie schon geschrieben):

Code: