Also folgendes Problem: ausgangslage ist eine Excel-Tabelle mit 4 Spalten, wobei die letzte Spalte "d" für den Filter verwendet wert.
ich habe folgende zahlen berechnet: H11: 0; H12: 82,01708
Spalte "D" soll nun nach werten suchen, die zwischen diesen Zahlen liegen, und diese Zeile (Spalte A bis D) kopieren.
Meine Alternative, die immerhin zum teil funktioniert: Tabelle kopieren, und dann alle Reihen, die NICHT zwischen diesen werten sind, löschen.
Ich bin mit google immerhin soweit gekommen, dass die Tabelle kopiert wird. auch gelöscht wird irgendwas, allerdings nicht das was es soll.
mein code bis jetzt (mir ist durchaus bewusst, dass die zahl "90" im code nicht mit meiner angabe übereinstimmt, ändert aber leider nichts daran dass es nicht funktioniert):
Sub Makro1()
ActiveSheet.Range("a5", ActiveSheet.Range("a5").End(xlDown).End(xlToRight)).Select
Selection.Copy
Sheets("TaskA").Select
Range("a5").Select
ActiveSheet.Paste
ActiveSheet.Range("d1", ActiveSheet.Range("d5").End(xlDown)).Select
Dim oZelle As Object
Dim i As Integer
For Each oZelle In Worksheets("TaskA").Range("d5", ActiveSheet.Range("d5").End(xlDown))
i = i + 1
If oZelle
im optimalen fall gibt es zu der gefilterten tabelle noch eine schöne grafik über die Zeit (in Spalte "A" sind Tage)Kann mir bitte jemand helfen?