Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Daten von Workbook1 ind Workbook2 kopieren
26.04.2018 10:18:06
Workbook1
ich möchte Daten aus dem einen Workbook in ein anderes Workbook kopieren. Aber es zeigt mir einen Laufzeitfehler 9 Index ausserhalb des gültigen Bereichs an. Aber mein Workbook2 heisst Probenübersicht.xlsx. Was mache ich falsch?
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von Workbook1 ind Workbook2 kopieren
26.04.2018 10:27:02
Workbook1
Hallo Zoe401,
eigentlich gehört es sich eine Anfrage mit Grußformel zu formulieren und nicht mit "ich möchte..." anzufangen.
Probiere mal folgenden Code, ist aber ungestet:
Private Sub CommandButton2_Click()
Dim wbStart As Workbook
Set wbStart = ThisWorkbook
Dim i As Integer
i = wbStart.Sheets("Startseite").TextBox1.Value
With Application.Workbooks.Open("O:\Sarah Kiesel\Vorlagen\Probenübersicht.xlsx")
If CheckBox28 = True Then
.Sheets("Probenübersicht - Zahlen").Activate
ElseIf CheckBox29 = True Then
.Sheets("Probenübersicht - Buchstaben").Activate
End If
.ActiveSheet.Range("A5", "K" & 4 + i).EntireRow.Insert
.ActiveSheet.Range("A5", "K" & 4 + i).ClearFormats
wbStart.Sheets("Startseite").Range("C4").Copy Destination:=ActiveSheet.Range("B5", "B" & _
4 + i)
End With
End Sub
Viele Grüße
Martin
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige