AutoFilter ausschalten
villacampo
Brauche Hilfe für folgendes Problem:
Per Button kopiere ich eine Zeile aus Blatt A in Blatt B. Kann jedoch sein dass in Blatt B der Autofilter aktiv ist und nach Wert xy filtert. In diesen Fall klappt die EinfügeMethode letzte Leere Zeile in Blatt nicht.
Kopierte Werte werden mitten in gefilterte Liste, nicht in letzte Zeile eingefügt.
Wie setze ich den Filter vor dem Einfügen der Werte (temporär) zurück?
So lautet der Code hinter dem Kopierbutton:
Private Sub CommandButton1_Click()
Dim lastCell As Long, lastColumn As Integer
Application.ScreenUpdating = False
lastColumn = Sheets("B").UsedRange.Columns.Count
Worksheets("A").Range("A60:EJ60").Copy
Sheets("B").Cells(Sheets("B").Range("B2000").End(xlUp).Offset(1, 0).Row, 2) _
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("F6").Activate
End Sub
folgender Code eingefügt nach Copy-Befehl:
With B
If .FilterMode Then .ShowAllData
End With
auch nicht wenn das Blatt erst aktiviert wird.
Mag jemand helfen?
Gruß
armin
Anzeige