Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zeilen in Sheets einfügen
26.04.2018 07:58:15
Zoe401
Hallo
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Sheets einfügen
26.04.2018 09:07:59
UweD
Hallo
du machst ja eine zweite Excel Instanz auf, auf die du dich dann beziehen musst.
innerhalb des with reicht da der Punkt vorne
so müsste es gehen
.Workbooks("Probenübersicht.xlsx").ActiveSheet.Range("A5", "K" & 4 + i).EntireRow.Insert
Aber!!!
auf select und activate kann in 99% der Fälle verzichtet werden.
deshalb so...
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 ("X:\temp\Probenübersicht.xlsx")
     If CheckBox28 = True Then
       Set TB = .ActiveWorkbook.Sheets("Probenübersicht - Zahlen")
     ElseIf CheckBox29 = True Then
       Set TB = .ActiveWorkbook.Sheets("Probenübersicht - Buchstaben")
     End If
     
     TB.Range("A5", "K" & 4 + i).EntireRow.Insert

     
  End With
  
End Sub

LG UweD
LG UweD
Anzeige
Fehler 424 Objekt erforderlich
26.04.2018 09:38:39
Zoe401
Jetzt zeigt es mir in Zeile:

Set TB = .ActiveWorkbook.Sheets("Probenübersicht - Zahlen").Activate
Einen Fehler an?
AW: Fehler 424 Objekt erforderlich
26.04.2018 09:43:59
UweD
hinten ohne .activate
Ja klar stimmt (owT)
26.04.2018 09:48:19
Zoe401
Ja klar stimmt (owT)
Ja es funktioniert, der Punkt hatte davor gefehlt
26.04.2018 09:40:30
Zoe401
JA bei mir hat der Punkt vor Worksheet gefehlt.
manno! Dankeschön für die Hilfe

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige