Hallo Leute!
Ich hab da mal ein Problem für meine Diplomarbeit...
Ich habe mir Verschiebungen in einem FE-Netz berechnet und möchte nun die Maximalwerte der Verschiebungen in die verschiedenen Koordinatenrichtungen ausgeben. Die Werte werden dann in ein extra Sheet an unterschiedlichen Positionen für die maximalen Verschiebungen gespeichert.
Jetzt kommt der kritische Part: An manchen Knoten kommt es vor, dass die Verschiebung in x-Richtung maximal wird, in y-Richtung aber minimal. In der if-Schleife wird nur der eine der Werte erkannt und die Schleife geht in die nächste Runde ohne den zweiten Befehl zu überprüfen.
Was ich jetzt suche ist eine Möglichkeit, dass innerhalb einer If-Schleife, nach dem einer der Parameter erfüllt ist, trotzdem weitergeprüft wird, ob noch an einer anderen Stelle dieser Parameter erfüllt wird.
Hier noch das Minibeispiel
Viele Grütze
Ich hab da mal ein Problem für meine Diplomarbeit...
Ich habe mir Verschiebungen in einem FE-Netz berechnet und möchte nun die Maximalwerte der Verschiebungen in die verschiedenen Koordinatenrichtungen ausgeben. Die Werte werden dann in ein extra Sheet an unterschiedlichen Positionen für die maximalen Verschiebungen gespeichert.
Jetzt kommt der kritische Part: An manchen Knoten kommt es vor, dass die Verschiebung in x-Richtung maximal wird, in y-Richtung aber minimal. In der if-Schleife wird nur der eine der Werte erkannt und die Schleife geht in die nächste Runde ohne den zweiten Befehl zu überprüfen.
Was ich jetzt suche ist eine Möglichkeit, dass innerhalb einer If-Schleife, nach dem einer der Parameter erfüllt ist, trotzdem weitergeprüft wird, ob noch an einer anderen Stelle dieser Parameter erfüllt wird.
Hier noch das Minibeispiel
Visual Basic-Quellcode
- max_value_x=Application.Max(Range(Sheets("LF1").Cells(2,2),Sheets("LF1").Cells(100,2)
- max_value_y=Application.Max(Range(Sheets("LF1").Cells(2,3),Sheets("LF1").Cells(100,3)
- i=1
- while i<100
- if Sheets("LF1").Cells(i,2)=max_value_x then
- Sheets("Verschiebung").Cells(1,2)=Sheets("LF1").Cells(i,2)
- elseif Sheets("LF1").Cells(i,3)=max_value_y then
- Sheets("Verschiebung").Cells(2,2)=Sheets("LF1").Cells(i,3)
- end if
- wend
Viele Grütze