AW: Verknüpfung von CommandButtons
18.03.2005 12:56:32
CommandButtons
ne funktioniert nicht so ich geb dir jetzt mal einen auszug von meinem vba programm
Private Sub CommandButton4_Click()
s = 0.885
e = 3.01
istep = 0
For v = s To e Step 0.125
istep = istep + 1
Worksheets("Berechnung").Cells(32, 22).Value = v
Call Call2Solver4
Worksheets("5 Schicht").Cells(15 + istep, 2).Value = Worksheets("Berechnung").Range("V157").Value
Worksheets("5 Schicht").Cells(15 + istep, 3).Value = Worksheets("Berechnung").Range("V195").Value
Worksheets("5 Schicht").Cells(15 + istep, 4).Value = Worksheets("Berechnung").Range("V221").Value
Worksheets("5 Schicht").Cells(15 + istep, 5).Value = Worksheets("Berechnung").Range("V247").Value
Worksheets("5 Schicht").Cells(15 + istep, 6).Value = Worksheets("Berechnung").Range("V201").Value
Next v
End Sub
Public Sub Call2Solver4()
Call SolverOk(SetCell:="$V$88", MaxMinVal:=3, ValueOf:="0.001", ByChange:="$V$78")
Call SolverAdd(CellRef:="$V$88", Relation:=1, FormulaText:="0.001")
Call SolverOptions(StepThru:=False)
Call SolverSolve(UserFinish:=True)
End Sub
Private Sub CommandButton3_Click()
usw.....
das rechnet er mir im Tab-Blatt Berechnen und wie gesagt ich muss jeden Button einzeln anklicken und ich möchte jetzt auf dem Tab-Blatt 1 einen Button haben wenn ich den drücke starten autom. alle Buttons auf dem Tab-Blatt Berechnen
gruss matt