Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: erkek007 am Januar 11, 2012, 21:47:28 Nachmittag

Titel: Office 2010: Excel - Temperaturen nach Suchleiste sortieren
Beitrag von: erkek007 am Januar 11, 2012, 21:47:28 Nachmittag
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 :'(
Titel: Antw:Office 2010: Excel - Temperaturen nach Suchleiste sortieren
Beitrag von: ae am Januar 12, 2012, 06:36:37 Vormittag
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