Call cmdListeDXF_Click

Call cmdListeDXF_Click

Private Sub cmdKonverter_Click()
Dim Ergebnis    'Direkte Konvertierung dxf zu mpr
Dim h As Integer
With ListBoxDXF
    For h = 0 To .ListCount - 1
        If .Selected(h) = True Then
            Ergebnis = Shell("C:\...")
        End If
    Next h
End With
Call cmdListeDXF_Click '###### Hier einen Timer einbauen ???????
End Sub

VG

Dirk