Die Datei ist nur ein winzig kleiner Ausschnitt aus der Tabelle. Die geht nach links und nach unten noch sehr viel weiter.
Die gesamte Matrix ist wie gesagt so groß, dass ich nicht per Hand um jeden Zeitpunkt das Intervall rauskopieren kann.
Tut mir leid, dass ich evtl nicht so genau beschreiben kann, was genau mein Problem ist.
Ich kann auch gerne die gesamte Datei hochladen?
Viele Grüße
Hallo Nini,
(20.08.2017, 12:17)Nini schrieb: [ -> ]Ich kann auch gerne die gesamte Datei hochladen?
ja bitte, aber direkt als .xlsx .
Gruß Uwe
Hi Uwe,
hier ist der gesamte Datensatz [
attachment=12889]
ich hab in den ersten zwei Paaren von x-y-Koordinaten mal beispielhaft farbig markiert.
Die müssten am Ende dann auf gleicher Höhe sein :)
Hallo Nini
Ich versuche, das Problem zu begreifen. Dein Zahlenfriedhof macht aber alle bisherigen Ansätze kaputt. Ich denke, Du solltest mal händisch (auch wenn das eine riesige Arbeit sein sollte) ein Resultat darstellen...oder einfach hoffen, dass ein cleverer Kerl die Aufgabe erfasst.
Gruss
Okay :)
Ich hab in Tabelle 2 der Arbeitsmappe mal die ersten drei Koordinatenpaare händisch geordnet
[
attachment=12890]
Vielleicht hilft das zu verstehen was ich meine
Danke :D
Prima! Ich kann die Logik die ich glaube verstanden zu haben bis zur Zelle H4 (2510) fortsetzen. Dann ist aber Schluss und fertig: Den Wert der Zelle J4 (2,66) und die folgenden finde ich nicht in der Spalte A. Was ist dann das Ergebnis da?
Gruss
Hi Helvetier
die x und Werte zum Zeitpunkt 2,66 ist in Spalte A wohl unter 2,660 zu finden
also als x Wert 4,462,548 und als y Wert 1,229,314
Da fehlt dann nur bei den Zeitangaben an der dritten Nachkommastelle immer eine 0
Meintest du das?
Grüße :)
Ich sehe in der Spalte A nirgends den Wert 2,66 oder 2,660!
Gruss
Hallo Nini,
wenn die Zeiten oben in Zeile 4 und in Spalte A sich im selben Bereich befinden, geht z.B. sowas:
Aufgerufen hier per Doppelklick auf Zelle A4-
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, j As Long, k As Long
Dim varQ As Variant, varZ As Variant
If Target.Address = "$A$4" Then 'Zelle für Doppelklick. Hier ist sie auf A4 festgelegt
varQ = Range("A1").CurrentRegion.Value
ReDim varZ(1 To UBound(varQ, 1) - 4, 1 To UBound(varQ, 2))
For i = 2 To UBound(varQ, 2) Step 2
For j = 5 To UBound(varQ)
If Round(varQ(j, 1), 2) = Round(varQ(4, i) - 0.02, 2) Then
For k = 1 To 5
varZ(k, i) = varQ(j + k - 1, i)
varZ(k, i + 1) = varQ(j + k - 1, i + 1)
Next k
Exit For 'j
End If
Next j
Next i
Tabelle2.Cells.Clear
Me.Cells.Copy Tabelle2.Range("A1")
Tabelle2.Range("A5").Resize(UBound(varZ, 1), UBound(varZ, 2)) = varZ
Cancel = True
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Uwe
Vielen vielen Dank Uwe :)
Ich hab das Makro so eingefügt, wie du es am Anfang beschrieben hast
Wenn ich jetzt auf A4 ein Doppelklick mache passiert aber leider nix.
Nur dass unten dieses kleine Rechteck steht, das mir sagt, dass gerade ein Makro aufgezeichnet wird
Was mache ich noch falsch?
Viele Grüße :)