Private Sub CommandButton2_Click()
Dim xlObj As Object
Set xlObj = CreateObject("Excel.Application")
Dim wbStart As Object
Set wbStart = ThisWorkbook
Dim i As Integer
i = wbStart.Sheets("Startseite").TextBox1.Value
Dim TB As Worksheet
With xlObj
.Visible = True
.Workbooks.Open ("O:\Sarah Kiesel\Vorlagen\Probenübersicht.xlsx")
If CheckBox28 = True Then
.ActiveWorkbook.Sheets("Probenübersicht - Zahlen").Activate
ElseIf CheckBox29 = True Then
.ActiveWorkbook.Sheets("Probenübersicht - Buchstaben").Activate
End If
.Workbooks("Probenübersicht.xlsx").ActiveSheet.Range("A5", "K" & 4 + i).EntireRow.Insert
.Workbooks("Probenübersicht.xlsx").ActiveSheet.Range("A5", "K" & 4 + i).ClearFormats
End With
Dim wbZiel As Object
wbZiel = Workbooks("Probenübersicht.xlsx")
wbStart.Sheets("Startseite").Range("C4").Copy Destination:=wbZiel.ActiveSheet.Range("B5", "B" _
& 4 + i)
End Sub