Private Sub Timer2_Timer()
Static Minuten, Anzahl As Long
Dim ende As Label
Dim arr() As String
 
'Wenn Abbrechen gedrückt wurde den export-timer
'zurücksetzen.
If flag_export_abbr = True Then
    Minuten = -1
    flag_export_abbr = False
    GoTo ende
End If
 
If expint.Text > "" And zahlenok(expint.Text, "0123456789") Then
  Anzahl = expint.Text ' Neues Intervall
  Timer2.interval = 60000 ' 60 Sekunden
  Minuten = (Minuten + 1) Mod Anzahl
  txt_exp.Text = Anzahl - Minuten
 
  If Minuten > 0 Then Exit Sub
 
  ' Hier folgt der eigentliche Code
  ' für das Timer-Ereignis:
 
    poken
    Timer1_Timer
 
    If (Replace(lbl_error.Caption, vbCrLf, "") = "None") Then
        GoTo ende
    Else
        Timer1_Timer
        Timer3.Enabled = True
        Timer3_Timer
        'arr = Split(filename.Text, "\") 'aufteilen eines Strings
        'filename.Text = ""
 
    'For i = 0 To UBound(arr) - 1 'zählen der Zuordungen
    '    filename.Text = filename.Text & arr(i) & "\" 'Info über alle _
      Zuordnungen
    'Next i
    End If
 
End If
ende:
End Sub