VBA Inhalte aus zweitem Workbook

Sub TestRangeCopy() Application.ScreenUpdating = False Set wkbData = Workbooks.Open(strWkbData) wkbData.Sheets("Tabelle2").UsedRange.Copy wkbData.Close False ThisWorkbook.Sheets("Tabelle2").Range("F8").PasteSpecial Application.ScreenUpdating = True End Sub

Sub TestSheetCopy() Application.ScreenUpdating = False Set wkbData = Workbooks.Open(strWkbData) wkbData.Sheets("Tabelle2").Copy ThisWorkbook.Sheets(Sheets.Count).PasteSpecial wkbData.Close False Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Clara,
der Fehler sagt recht eindeutig, dass es in der Arbeitsmappe, aus der du kopieren willst, kein Blatt gibt, welches den Namen "Tabelle2" hat ("Tabelle2" muss auf dem Blattregister stehen).
Wenn du das 2. Blatt der Arbeitsmappe kopieren willst, dann schreibst du
wkbData.Sheets(2).UsedRange.Copy
Die Blattexistenz könntest du mit einer Funktion prüfen, z.B. so

Sub TestRangeCopy()
Application.ScreenUpdating = False
Set wkbData = Workbooks.Open(strWkbData)
If Not BlattExistiert(wkbData, "Tabelle2") Then
MsgBox """Tabelle2"" existiert nicht"
Exit Sub
End If
wkbData.Sheets("Tabelle2").UsedRange.Copy
wkbData.Close False
ThisWorkbook.Sheets("Tabelle2").Range("F8").PasteSpecial
Application.ScreenUpdating = True
End Sub
Function BlattExistiert(Mappe As Workbook, _
Blattname As String) As Boolean
Dim sh As Object
For Each sh In Mappe.Sheets
If UCase$(sh.Name) = UCase$(Blattname) Then
BlattExistiert = True
Exit Function
End If
Next sh
End Function

Den Kopierbefehl der 2. Prozedur solltest du so schreiben:

  wkbData.Sheets("Tabelle2").Copy _
After:=ThisWorkbook.Sheets(Sheets.Count)

Viele Grüße
Dieter

Sub TestRangeCopy() Application.ScreenUpdating = False Set wkbData = Workbooks.Open(strWkbData) wkbData.Sheets(2).UsedRange.Copy ThisWorkbook.Sheets(1).Range("F8") wkbData.Close False Application.ScreenUpdating = True End Sub

Sub TestSheetCopy() Application.ScreenUpdating = False Set wkbData = Workbooks.Open(strWkbData) wkbData.Sheets(2).Copy After:=ThisWorkbook.Sheets(Sheets.Count) wkbData.Close False Application.ScreenUpdating = True End Sub

Sub TestRangeCopy() Application.ScreenUpdating = False Set wkbData = Workbooks.Open(strWkbData) wkbData.Sheets(2).UsedRange.Copy wkbData.Close False Tabelle2.Range("F8").PasteSpecial Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

153 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Inhalte aus zweitem Workbook

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

153 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread