Thema Datum  Von Nutzer Rating
Antwort
Rot Zugehöriger Wert in Tabelle
 16.05.2014 17:28:55 Dennis
NotSolved
16.05.2014 19:10:12 Gast81843
NotSolved

Ansicht des Beitrags:
Von:
Dennis		 Datum:
16.05.2014 17:28:55		 Views:
2342		 Rating:
     
Antwort:
  Ja
Thema:
Zugehöriger Wert in Tabelle

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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zugehöriger Wert in Tabelle
 16.05.2014 17:28:55 Dennis
NotSolved
16.05.2014 19:10:12 Gast81843
NotSolved