Filtervorgang
11.02.2004 17:31:28
Markus
Ich habe ein Problem und vielleicht könnt ihr mir weiterhelfen:
Ein Makro übernimmt bei mir eine Reihe von Werten von einem Blatt in ein anderes. Dabei kann es vorkommen, dass auch die sog. #NV-Werte mit eingefügt werden. Nun sollen diese übernommenen Werte so gefiltert werden, dass die #NV-Werte nicht mehr sichtbar sind. Anbei zwei Dateien, die diese beiden Zustände nochmals verdeutlichen.
Ist-Zustand:
Soll-Zustand:
Die Datei https://www.herber.de/bbs/user/3573.jpg wurde aus Datenschutzgründen gelöscht
Mein Makro nimmt diese Aufgabe (wie ihr auch an den Bildern sehen könnt)allerdings nur teilweise wahr und lässt die Daten in ihrem Ursprungszustand fast unverändert.Nun meine Frage: Was soll/kann ich an meinem Quelltext ändern, damit diese Daten wie auf den Bildern gesehen gefiltert werden? Herzlichen Dank!
Gruß
Daniel
Quelltext:
Sub Makro99()
Sheets("Bericht (sortiert)").Select
Sheets("Bericht (sortiert)").Range("E7").Value = Sheets("Bericht").Range("E7").Value
For i = 13 To 990
For j = 1 To 10
Sheets("Bericht (sortiert)").Cells(i, j).Value = Sheets("Bericht").Cells(i, j).Value
Next j
Next i
Range("A13:J89").Select
Selection.Sort Key1:=Range("A13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A12").Select
Range("E7").Select
Sheets("Bericht (sortiert)").Select
End Sub