Automatisches erstellen und Auswerten von WT

Hallo,
bin neu hier und stell ich erstmal kurz vor. Bin 22 und Studiere Maschinenbau und muss im Rahmen meiner Bachelorarbeit in Excel ein paar Rechenverfahren anwenden.
Nun zu meinem Problem. Ich habe eine Tabelle erstellt in der ich über Namen allen möglichen Buchstaben eine Zelle mit entsprechender Formel zugeordnet habe. Das ganze geht dan über mehrere Zellen und am Ende kommen ein paar Ergebnise raus.
Ich müsste nun eine Wertetabelle erstellen. Ich möchte der Tabelle einen Wertebereich zuteilen z.B. Bauteilbreite von 0-10mm und dan soll Excel automatisch meine ganzen Formeln die über Namen eingetragen sind durchgehen und in einer z.B. 1mm Schrittweite mit den errrechneten Werten eine Tabelle erstellen aus der dan ein Diagramm geplottet wird.
Weiß nun noch nicht so ganz wie ich hier vorgehen soll.
Mein erster Ansatz war ein Event auszuführen wenn sich die Zelle in der sich das Ergebnis berrechnet ändert. Dass dan diese Zelle in eine Tabelle übernommen wird und das nächste Ergebnis ausgerechnet wird usw. Bis dan 10 Ergebnisse mit gegebener Bauteilbreit in Tabellenform bereit stehen. Darüber sollte dan automatisch ein Diagramm erstellt werden, welches schaut wie viele Zellen und welche Schrittweite in der Tabelle sind und dan automatisch erstellt.
Am Ende soll das ganze als Userinterface funktionieren also muss alles so sein das es von selbst läuft ohne das User viel mehr als Bauteilgeometrie und Werkstoffdaten eingeben müssen.
Freue mich auf gute ideen und ein gutes miteinander im Forum.
Viele Grüße
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
so?
in ein Modul

Sub Berechnen()
    Dim Bvon, Bbis, Schritt, i, S As Integer
    Dim TB1, TB2, LR As Long, Z As Long
    
    Set TB1 = Sheets("Tabelle1")
    Set TB2 = Sheets("Tabelle2")
    Bvon = InputBox("Eingabe: Von (in mm)", "Bauteilbreite", 1)
    Bbis = InputBox("Eingabe: Bis (in mm)", "Bauteilbreite", 10)
    Schritt = InputBox("Eingabe Schrittweite (in mm)", "", 1)
    
    
    For i = Bvon To Bbis Step Schritt
        LR = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
        S = 1
        
        'Werkstoffdaten 
        For Z = 3 To 4
            TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5)
            S = S + 1
        Next
        
        'Breite in Schleife 
        TB1.Cells(6, 5) = i
        TB2.Cells(LR + 1, S) = i
        S = S + 1
        
        
        
        'Weitere Geometrie 
        For Z = 7 To 9
            TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5)
            S = S + 1
        Next
        
        'Kräfte 
        For Z = 11 To 11
            TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5)
            S = S + 1
        Next
        
        'ab hier Formelergebnisse 
        For Z = 13 To 21
            TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5)
            S = S + 1
        Next
        
    Next
End Sub

So wäre der erste Teil des Ergebnisses. (Die Überschriften hab ich händisch dort reinkopiert)

Tabelle2

	A	B	C	D	E	F	G	H	I	J	K	L
1	E-Modul	Querdehnzahl	Breite des Bauteils	Dicke des Bauteils	Überlappungslänge	Klebschichtdicke	Angreifende Kräfte	Biegesteifigkeit	Flächenträgheitsmoment	Biegesteifigkeitsparameter	Halbe Überlappungslänge	Exzentritätsfaktor Hart-Smith
2	210000	0,8	1	0,05	0,04	0,001	100000	2,1875	1,04166666666667E-05	0,36	0,02	7,12648291591794E-02
3	210000	0,8	2	0,05	0,04	0,001	100000	4,375	2,08333333333333E-05	0,72	0,02	0,178330462429875
4	210000	0,8	3	0,05	0,04	0,001	100000	6,5625	0,00003125	1,08	0,02	0,285059321057661
5	210000	0,8	4	0,05	0,04	0,001	100000	8,75	4,16666666666667E-05	1,44	0,02	0,380369741003757
6	210000	0,8	5	0,05	0,04	0,001	100000	10,9375	5,20833333333333E-05	1,8	0,02	0,461758868492981
7	210000	0,8	6	0,05	0,04	0,001	100000	13,125	0,0000625	2,16	0,02	0,530018480421727
8	210000	0,8	7	0,05	0,04	0,001	100000	15,3125	7,29166666666667E-05	2,52	0,02	0,586967827494859
9	210000	0,8	8	0,05	0,04	0,001	100000	17,5	8,33333333333334E-05	2,88	0,02	0,634539563240231
10	210000	0,8	9	0,05	0,04	0,001	100000	19,6875	0,00009375	3,24	0,02	0,67445761425959
11	210000	0,8	10	0,05	0,04	0,001	100000	21,875	1,04166666666667E-04	3,6	0,02	0,708158467842761

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 25.14 einschl. 64 Bit

LG UweD

Sub Berechnen() Dim Bvon, Bbis, Schritt, i, S As Integer Dim TB1, TB2, LR As Long, Z As Long Set TB1 = Sheets("Tabelle1") Set TB2 = Sheets("Tabelle2") Bvon = InputBox("Eingabe: Von (in mm)", "Bauteilbreite", 1) Bbis = InputBox("Eingabe: Bis (in mm)", "Bauteilbreite", 10) Schritt = InputBox("Eingabe Schrittweite (in mm)", "", 1) 'reset TB2.UsedRange.Offset(1, 0).ClearContents For i = Bvon To Bbis Step Schritt LR = TB2.Cells(TB2.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte S = 1 'Werkstoffdaten For Z = 3 To 4 TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5) S = S + 1 Next 'Breite in Schleife TB1.Cells(6, 5) = i TB2.Cells(LR + 1, S) = i S = S + 1 'Weitere Geometrie For Z = 7 To 9 TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5) S = S + 1 Next 'Kräfte For Z = 11 To 11 TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5) S = S + 1 Next 'ab hier Formelergebnisse For Z = 13 To 21 TB2.Cells(LR + 1, S) = TB1.Cells(Z, 5) S = S + 1 Next Next 'Diagramm anpassen With Charts("Diagramm1") .FullSeriesCollection(1).Values = "=Tabelle2!$O$2:$O$" & LR .FullSeriesCollection(2).Values = "=Tabelle2!$P$2:$P$" & LR .Activate End With End Sub

ActiveChart.Axes(xlCategory).MinimumScale = Min_X_Axis ActiveChart.Axes(xlCategory).MaximumScale = Max_X_Axis ActiveChart.Axes(xlCategory).MajorUnit = M_U_X_Axis ActiveChart.Axes(xlValue).MinimumScale = Min_Y_Axis ActiveChart.Axes(xlValue).MaximumScale = Max_Y_Axis ActiveChart.Axes(xlValue).MajorUnit = M_U_Y_Axis

Beliebteste Forumthreads (12 Monate)

Automatisches erstellen und Auswerten von WT

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisches erstellen und Auswerten von WT

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread