Office 2010: Excel - Temperaturen nach Suchleiste sortieren

[erkek007]

Hallo,

ich hab ein größeres Problem in Excel und hoffe jmd kann mir weiterhelfen.
und zwar habe ich eine spalte mit sekundengenauer fortlaufender UHrzeit die jeweils eine Temperatur anzeigt um diese Uhrzeit zb 00:00:01 Uhr war temperatur 200C° und dann habe ich noch eine Suchliste mit jeweils 2 Uhrzeiten, Anfang und Ende .

Jetzt benötige ich zu diesen Zeiten in der Suchliste von anfang bis ende Uhrzeit die Temperaturen die jeweils daneben stehen chronologisch in einer neuen spalte.
Hier noch ein bild von dem Problem unter
http://imageshack.us/photo/my-images/849/problemexcel.png/

Kann mir da jmd weiterhelfen wie man das hinbekommt? weil die listen sind ewig lang

[ae]

Hallo,
das kannst Du über Spezialfilter lösen.
Entweder manuell oder via VBA automatisiert.

Ich hab Dir mal ein Beispiel gebastelt, in dem Deine Ursprungsdaten im Tabellenblatt Rohdaten liegen.

Im Bereich A2 und A3 des Tabellenblattes Gefiltert gibst Du die Zeiten von und bis an.
Ändert sich in einer der beiden Zellen der Wert, wird automatisch der Spezialfilter ausgelöst und die Werte entsprechend Deiner Vorgaben gefiltert (Ab Zeile 10 Tabellenblatt gefiltert).

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2.    Dim Bereich As Worksheet ' Tabellenblatt Rohdaten
3.   Dim bereichList As Range
4.    Dim bereichCriteria As Range
5.    Dim bereichwerte As Range
6.    
7. Set bereichwerte = Worksheets("Gefiltert").Range("A2:A3")
8.    Set Bereich = Worksheets("Rohdaten")
9.    Set bereichCriteria = Sheets("Gefiltert").Range("C1:D2")
10.    Set bereichList = Bereich.Range("A1:B" & Bereich.UsedRange.Rows.Count)
11.    
12.    ' es wird nur neu gefiltert, wenn sich im Bereich der Kriterien etwas ändert
13.   If Not (Application.Intersect(bereichwerte, Target) Is Nothing) Then
14.    
15.  
16.       bereichList.AdvancedFilter _
17.       Action:=xlFilterCopy, _
18.       CriteriaRange:=bereichCriteria, _
19.       CopyToRange:=Sheets("gefiltert").Range("A10:B10"), _
20.       Unique:=False
21.    
22.    End If
23.    
24.    Set Bereich = Nothing
25.    Set bereichList = Nothing
26.    Set bereichCriteria = Nothing
27. End Sub