Private Sub Berechnen3_Click()
 
'======================================================================
'Variablen deklarieren
Dim tau As Double
Dim ILeinschalt(5) As Double
Dim ILausschalt(5) As Double
Dim ULeinschalt(5) As Double
Dim ULausschalt(5) As Double
Dim i As Double
 
 
'=======================================================================
'Variablen auf falsche eingaben prüfen
If Not IsNumeric(R3) Then
 
    If MsgBox("Bitte geben Sie nur numerische Werte ein! Buchstaben und" & _
      "Sonderzeichen sind nicht erlaubt!", vbCritical + vbOKOnly, "Error") = _
      vbOK Then
    End If
 
    Exit Sub
 
End If
 
If Not IsNumeric(L3) Then
 
    If MsgBox("Bitte geben Sie nur numerische Werte ein! Buchstaben und" & _
      "Sonderzeichen sind nicht erlaubt!", vbCritical + vbOKOnly, "Error") = _
      vbOK Then
    End If
 
    Exit Sub
 
End If
 
If Not IsNumeric(U3) Then
 
    If MsgBox("Bitte geben Sie nur numerische Werte ein! Buchstaben und" & _
      "Sonderzeichen sind nicht erlaubt!", vbCritical + vbOKOnly, "Error") = _
      vbOK Then
    End If
 
    Exit Sub
 
End If
 
 
'===============================================================================
'Berechnungen
 
 
 
tau = L3 / R3 'Berechnung der Zeitkonstante
 
 
 
 
For i = 0 To 5 Step 0.1 '1. Schleife für den Einschaltvorgang
 
ILeinschalt(i) = Round(U3 / R3 * (1 - Exp(-i)), 5) 'Berechnung des 
' Einschaltstroms
 
ULeinschalt(i) = Round(U3 * (1 - Exp(-i)), 5)          'Berechnung der 
' Einschaltspannung
 
Next
 
 
For i = 0 To 5 Step 0.1 '2. Schleife für den Ausschaltvorgang
 
ULausschalt(i) = Round(-ULeinschalt(5) * Exp(-i), 5) 'Berechnung der 
' Ausschaltspannung
 
ILausschalt(i) = Round(U3 / R3 * Exp(-i), 5)  'Berechnung des Ausschaltstroms
 
Next
 
 
End Sub