autofilter select kopieren
17.09.2007 13:36:12
lisa
Ich habe zwar schon ein Thread, den ich leider nicht wiederfinden kann, über diese Problematik geöffnet, aber leider noch keine Lösung!
Ich möchte per Macro immer den gefundenen Datensatz vom Autofilter in die Tabelle2 kopieren lassen.
Wenn ich das per Macrorecorder aufzeichne ist der Select immer auf der gleiche Zeile. Das nutzt mir aber nichts, da das nicht immer die Zeile ist, in der der gesuchte Wert steht.
Sub Makro1()
Range("A1:D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=""
Range("A6:D6").Select 'Variabel (hier kommt es darauf an was ich suche) _
'Der wert kann auch in Zeile4, 2 oder 100 stehen)
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
Selection.AutoFilter Field:=3
Range("A1:D1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A2").Select
End Sub
Hat hier evtl. jemand eine Idee zu?
Ich bin für jede Hilfe danbar
Gruß Lisa