Private Sub UserForm_Click()
 
Worksheets("Tabelle1").Activate
'Überschriften eintragen
Cells(1, 1) = "Gamma"
Cells(1, 2) = "Theta"
Cells(1, 3) = "Vega"
 
'Ein Beispiel
Dim asd As allstuff
asd = mybs(100, 90, 0.5, 0.06, 0.35)
 
'Ergebnisse in Tabelle1 eintragen
Cells(2, 1) = asd.Gamma
Cells(2, 2) = asd.Theta
Cells(2, 3) = asd.Vega
 
Ein weiteres Beispiel
asd = mybs(100, 95, 0.8, 0.04, 0.55)
 
Cells(3, 1) = asd.Gamma
Cells(3, 2) = asd.Theta
Cells(3, 3) = asd.Vega
 
End Sub