Filter setzen und gefilterte Kopieren
25.02.2019 12:26:16
Heinz
Habe einen Code zum Filtern für den Bereich E4:G4
der auch funktioniert.
Der 2. Code soll mir den Bereich in "Ausdruck" E2 kopieren.
Funktioniert nur bedingt.
Es wird nämlich der Bereich B2:C2 mitkopiert.
Es sollte aber nur E4:G4 kopiert werden.
Hätte jemand eine Ahnung warum?
Danke
SG, Heinz
Public Sub AutofilterHE()
Range("E4:G4").AutoFilter Field:=2, Criteria1:="0"
Call KopierenFilterbereichHE
End Sub
Public Sub KopierenFilterbereichHE()
Dim lngFilterRow As Long, lngFilterColumn As Long
Dim lngFilter As Long
With Worksheets("Ausgabe")
If .AutoFilterMode Then
If .FilterMode Then
With .AutoFilter
lngFilterRow = .Range.Row
lngFilterColumn = .Range.Column
With .Filters
For lngFilter = 1 To .Count
If .Item(lngFilter).On Then Exit For
Next
End With
End With
.Range(.Range(.Cells(lngFilterRow + 1, lngFilterColumn), _
.Cells(lngFilterRow + 1, _
lngFilterColumn + .AutoFilter.Filters.Count - 1)), _
.Cells(Filterring, lngFilter).End(xlDown)).Copy _
Worksheets("Ausdruck").Range("E2")
Else
MsgBox "Der Autofilter ist nicht gesetzt.", 48, "Hinweis"
End If
Else
MsgBox "Kein Autofilter in der Tabelle.", 48, "Hinweis"
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub
