806/99
04.06.2004 15:42:17
Peter
ich habe eine Tabelle mit Hilfe eines Formulares erstellt. alle im Formular enthaltene Daten sollen und werden in die Tabelle kopiert. Jetzt will ich über das Beispiel 806/99 die Datensätze auf Dublette und Leerzeilen kontrollieren lassen und doppelte und leere Zeilen löschen. Das hat auch zunächst funktioniert. jetzt bekommen ich jedoch einen Laufzeitfehler! Warum?
Ich danke bereits im voraus!
Peter Schwank
Sub Filtern()
With ActiveSheet.UsedRange
.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Cells(1, .Columns.Count + 1), Unique:=True
.EntireColumn.Delete
End With
End Sub