Gefilterte Daten auslesen

31/07/2008 - 09:18 von Holger D. | Report spam
Hallo Experten,

ich habe eine Frage zum Auslesen von Werten bei gefilterten Einstellungen
mit VB.

Ich habe eine Excelmappe nach bestimmten Kriterium gefiltert. Das
funktioniert. Aus den gefilterten Daten suche ich den MIN/ MAX-Wert mit z.B.
minlg = Application.WorksheetFunction.Subtotal(5, Range("J:J")). Das
funktioniert auch!

Nun möchte ich jedoch die Daten ohne Duplikate aus den gefilterten Daten in
einer andere Arbeitsmappe übernehmen. Dazu habe ich folgendes in einer
Schleife geschrieben:

If Worksheets(Tab_Name).Cells(Index, 16).Value <>
Worksheets(Tab_Name).Cells(Index - 1, 16).Value Then
lg = Worksheets(Tab_Name).Cells(Index, 16).Value

Worksheets("Matrix").Cells(laeufer + 1 + zusatz, wertezahl1 + 8).Value = lg
wertezahl1 = wertezahl1 + 1

End If

Und wenn ich dieses ausführe, dann bezieht sich das komischer weise nicht
mehr auf die gefilterten Daten, sondern VB durchforstet dabei aus der
jeweiligen Spalte alle Zellen; also auch die "Unsichtbaren".

Hat da jmd. eine Idee, wie ich dieses Problem lösen kann. Ich sitze nun
schon Stunden davor und komme einfach nicht auf eine Lösung.

Herzlichen Dank für die Hilfe!!

Schöne Grüße,
Holger
 

Lesen sie die antworten

#1 Peter Schleif
31/07/2008 - 10:08 | Warnen spam
Holger D. schrieb am 31.07.2008 09:18 Uhr:

Nun möchte ich jedoch die Daten ohne Duplikate aus den gefilterten Daten in
einer andere Arbeitsmappe übernehmen.



Kannst Du nicht einfach die gefilterten Werte kopieren? Entweder die
ganze Spalte (inkl. Kopfzeile). Oder nur den Werte-Bereich.

Peter


'/ganze Spalte filtern und kopieren/
'--
Sheets(Tab_Name).[J:J].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Matrix").[A:A], Unique:=True

'/Bereich filtern und kopieren/
'--
Sheets(Tab_Name).[J1:J10].AdvancedFilter xlFilterInPlace,,,True
Sheets(Tab_Name).[J2:J10].Copy Sheets("Matrix").[B1]

Ähnliche fragen