Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

AutoFilter wird gelöscht

AutoFilter wird gelöscht
01.11.2008 15:10:06
Pet

Hallo an alle,
muss euch schon wieder nerven.
Bei unten aufgeführten VBA wird in Tabelle1 der Autofilter leider gelöscht.
Wie kann ich dies verhindern?
Vielen Dank für eure Unterstützung.
Gruß, Pet
Option Explicit

Sub SORT()
Dim Tab1 As Worksheet, Tab4 As Worksheet
Dim A As Long
Dim kritBereich As Range
Set Tab1 = Tabelle1 'Quelltabelle
Set Tab4 = Sheets("Temp") 'Ziehltabelle
Tab4.Range("A6:Z" & Tab4.Rows.Count).Clear  'Bereich leeren
With Tab1
For A = 1 To 14
'Filterkriterium festlegen************************
If A = 1 Then
Set kritBereich = Tab4.Range(Tab4.Cells(1, A), Tab4.Cells(3, A))
Else
Set kritBereich = Tab4.Range(Tab4.Cells(1, A), Tab4.Cells(2, A))
End If
Debug.Print kritBereich.Address
'Spezialfilter anwenden***************************
.Range("A3:AR10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
kritBereich, CopyToRange:=Tab4.Cells(5, A), Unique:=False
Next A
Tab4.Range("A6:N" & Tab4.Cells.SpecialCells(xlCellTypeLastCell).Row).Copy
Tabelle3.Range("A6").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Tab4.Range("A6:Z" & Tab4.Rows.Count).Clear  'Bereich leeren
End With
Set Tab1 = Nothing
Set Tab4 = Nothing
End Sub


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hat sich erledigt!
01.11.2008 17:08:00
Pet
Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige