Hallo Olli,
da ist vorhin beim Kopieren etwas schiefgelaufen. Da ich dringend zu einem termin musste, haben ich vorhin keine Kontrolle durchgeführt.
Alle festen Eingaben seien auf dem Worksheet genau an den Stellen wie im Beispiel. Du könntest das Worksheet schützen und nur die Eingabestellen (A5 bis B65536 oder B1048576, sofern das Sinn macht) freigeben.
Sub querschnitt()
lz = Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row 'letzte Zeile in Sp A
If lz b Then
.PlotArea.Width = 250
.PlotArea.Height = 250 * b / a
Else
.PlotArea.Height = 250
.PlotArea.Width = 250 * a / b
End If
End With
Cells(lz + 1, 1) = ""
Cells(lz + 1, 2) = ""
End Sub
Gruß
Holger
Holger schrieb am 04.07.2008 14:57:47:
Hallo Olli,
ich gehe davon aus, dass alle auf dem Worksheet vorgegeben ist bis auf die Koordinaten der Eckpunkte und Rechenergebnisse und zwar an genau der Stelle wie im Beispiel.
Dann löst folgendes Makro dein Problem:
Sub querschnitt()
lz = Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row 'letzte Zeile in Sp A
If lz b Then
.PlotArea.Width = 250
.PlotArea.Height = 250 * b / a
Else
.PlotArea.Height = 250
.PlotArea.Width = 250 * a / b
End If
End With
Cells(lz + 1, 1) = ""
Cells(lz + 1, 2) = ""
End Sub
Viel Erfolg
Holger
Olli schrieb am 03.07.2008 11:02:14:
Hallo, bin nun seit tagen am tüfteln , wie ich diese Aufgabe löse und komme nicht auf die lösung.
hier die aufgabe
http://www.bs.uni-karlsruhe.de/download/Aufgabe5-SS(2).pdf
das erste problem habe ich bereits bei dem modul einlesen, wie bekomme ich es hin,dass die anzahl der punkte nicht festgelegt ist, sondern nur durch die tabelle bestimmt wird? wenn ich dieses modul habe müsste ich dann nur noch die formeln eingeben und sagen, er solle die erte aus dem modul einlesen nehmen, oder? bei den formeln,wie gebe ich die summen ein, gibt es dafür eine extra funktion? und dann weiß ich auch nicht, wie das mit der visualisierung über den makrorekorder funktionieren soll :(
btw ist das die letzte aufgabe von 5 und mit abstand die schwerste, die letzten war total einfach im vergleich zu dieser.
Es wäre super, wenn mir jemand helfen könnte, denn heute war eigentlich schon Abgabe, aber weil es kaum jemand hinbekommen hat, wurde es auf morgen verschoben, deswegen ist es dringend. Jemand der weiß wie es geht brauch nur ein paar minuten dafür ;)
vielen dank im vorraus
gruß olli |