Zeilen in Sheets einfügen
26.04.2018 07:58:15
Zoe401
steck gerade fest. Also zum Hintergrund:
ich möchte über mein ThisWorkbook.Sheets("Startseite") ein anderes Workbook "Probenübersicht" öffnen und dort Zeilen einfügen. Und zwar so viele Zeilen wie in meiner TextBox1.Value in ThisWorkbook steht.
Aber ich mache etwas falsch, wo ich EntireRow.Insert habe:
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
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
End With
End Sub
Laufzeitfehler 9 : Index ausserhlab des gültigen Bereichs
Bin dankbar über Hilfe.
Grüße,
Zoe
Anzeige