Autofilter ohne activate
24.10.2021 03:51:34
Peter
könnt ihr mir bitte helfen. In Tabelle1 habe ich die zu filternden Werte. In Tabelle2 sollen diese eingetragen werden.
Wenn ich die Tabelle1 aktiviere, funktioniert das u. a. Makro. Wenn ich jedoch die Tabelle2 markiere wird in Tabelle1 falsch gefiltert und dann nur die Überschrift von Tabelle1 in Tabelle2 übertragen. Geht das auch ohne Tabelle1.activate?
Sub Makro3b_Filter_Datum()
Dim datVon As Double
Dim datBis As Double
Dim i As Integer
datVon = CDbl(Range("h1"))
datBis = CDbl(Range("i1"))
If Sheets("Tabelle2").Range("b10") > "" Then
Sheets("Tabelle2").Range("b10:H" & Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
End If
With Sheets("Tabelle1")
.Activate 'erforderlich
If Sheets("Tabelle1").AutoFilterMode Then Sheets("Tabelle1").AutoFilterMode = False ' Autofilter ausschalten
Sheets("Tabelle1").Range("b9:H" & Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row).AutoFilter Field:=1, _
Criteria1:=">=" & datVon, Operator:=xlAnd, Criteria2:="Peter
