AW: Filtern nach Uhrzeit
18.05.2005 23:39:20
Ramses
Hallo
richtig filtern kannst du das nciht.
Ich habe dir ein Makro geschrieben, dass aber deine Vorgaben erfüllt.
Du musst bloss die Quell- und Zieldaten anpassen.
Option Explicit
Sub Filter_Seconds()
Dim i As Long
Dim qC As Integer, endC As Integer, tarC As Integer
'Spalte qC wo die Daten stehen
'1 = Spalte A
qC = 1
'Spalte wieweit kopiert werden soll
'1 = Spalte A, 2 = Spalte B usw.
endC = 1
'Spalte tarC wo die gefilterten Daten geschrieben werden sollen
tarC = 5
'Überschrift kopieren
Range(Cells(1, qC), Cells(1, endC)).Copy _
Destination:=Cells(1, tarC)
'Filtervorgang starten
For i = 2 To Cells(65536, qC).End(xlUp).Row
Select Case Second(Cells(i, qC))
Case 5, 20, 35, 50
Range(Cells(i, qC), Cells(i, endC)).Copy _
Destination:=Cells(Cells(65536, tarC).End(xlUp).Row + 1, tarC)
End Select
Next i
End Sub
Verwenden kannst du das Makro so:
Mit "Alt"+"F11" den VB-Editor starten
Rechte Maustaste auf "VB-Projekt DeineArbeitsmappe.xls"
Einfügen - Modul
Den Code dort reinkopieren.
Nun kannst du in der Tabelle über "Extras - Makro - Makro ausführen" das Makro starten.
Du erhältst dann genau die gefilterten Daten in der von dir definierten Spalte
Gruss RAiner