Private Sub CommandButton1_Click()
Dim i As Long
Dim blatt As Long
Dim objWorbook As Workbook
With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
blatt = 0
For i = 1 To 6
If Me.Controls("OptionButton" & i).Value = True Then blatt = i
Next i
If blatt = 0 Then End
If ComboBox1.ListIndex > -1 Then
Set objWorbook = Workbooks.Open(Filename:= _
ROOT_FOLDER & ComboBox1.Text, UpdateLinks:=0, ReadOnly:=True)
objWorbook.Worksheets(blatt).Range("A201:V202").Copy
ThisWorkbook.Worksheets(1).Cells(4 + i, 1).PasteSpecial Paste:=xlPasteValues
objWorbook.Close SaveChanges:=False
Set objWorbook = Nothing
With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End If
End Sub