Hallo,
ich hab mal eine Frage:
Ich habe eine Tabelle, mit 4 Spalten. In der 4ten Spalte wird ein maxWert ausgelesen und auch ausgegeben.
Nun würde ich gerne noch den zugehörigen Wert in der 2ten Spalte auslesen und ausgeben.
Allerdings weiß ich nicht, wie man auf dieses x zugreifen kann ( Ich kann auch nicht einfach sagen, dass es immer in der gleichen Zelle zu finden ist, da sich das ändern kann).
Hier ist mal mein Quellcode.
Das einzige was unten fehlt ist eben das "Finden des zugehörigen x".
Hat jemand eine Idee wie ich das finde?
Ich habe gehört, man kann da etwas mit dem Index-Befehl machen. Aber ich verstehe nicht wie dieser funktioniert....

Viele Grüße
Dennis

Option Explicit

' *********************************************************
' Funktionen
' *********************************************************
Public Function Formeln(V, M, AV, q1, x, q2, L, BV)
    AV = (q1 * L * L / 2 + (q2 - q1) * L / 2 * 1 / 3 * L) / L
    BV = (L * q1 * L / 2 + (q2 - q1) * L / 2 * 2 / 3 * L) / L
    V = AV - q1 * x - ((q2 - q1) * x ^ 2 / (2 * L))
    M = AV * x - q1 * ((x ^ 2) / 2) - ((q2 - q1) * (x ^ 3) / (6 * L))
    'Fehlertyp
    Formeln = 1
End Function



' *********************************************************
' Sub - Prozeduren
' *********************************************************

'For Next Anweisung
' ---------------------------------------------------------

Public Sub Berechnung()
    ' Deklarieren
    Dim q1 As Single     'Belastung1
    Dim q2 As Single     'Belastung2
    Dim L As Single      'Länge
    Dim AV As Single      'Auflager A
    Dim BV As Single     'Auflager B
    Dim x As Single      'Abstand x
    Dim V As Single      'Querkraft V
    Dim M As Single      'Moment M
    Dim Max As Single    'MaximalWert
    Dim MaxX As Single   'zugehöriger x-Wert
        
    ' Laufvariable
    Dim i As Integer
    
    'Fehlerwert
    Dim Error As Integer
        
    'Herauslesen
    q1 = Tabelle1.Cells(6, 3)
    q2 = Tabelle1.Cells(7, 3)
    L = Tabelle1.Cells(5, 3)
    AV = Tabelle1.Cells(5, 7)
    BV = Tabelle1.Cells(6, 7)
    
    'Schleife für die Berechnung
    For i = 1 To 21
        'x-Stelle ermitteln
        If i = 1 Then
            x = 0#
        Else
            x = (L / 20) * (i - 1)
        End If
         
        'Funktion aufrufen
        Error = Formeln(V, M, AV, q1, x, q2, L, BV)
        
       'Ausgabe
        Tabelle1.Cells(9 + i, 2) = x
        Tabelle1.Cells(9 + i, 3) = V
        Tabelle1.Cells(9 + i, 4) = M
        Tabelle1.Cells(5, 7) = AV
        Tabelle1.Cells(6, 7) = BV
    Next i
    
    'max berechnen
    Max = Application.WorksheetFunction.Max(Range("D9:D30"))
    'max eintragen
    Range("G27").Value = Max
    'zugehöriges x finden
    
    'zugehöriges x eintragen
    Range("G28").Value = MaxX
End Sub