Werte und Formate einfügen

Hi Leute,
folgenden Code verwende ich, um Daten von einer Exceldatei in die Zieldatei (Datei, von der ich das Makro starte) zu kopieren.
Ich erhalte aber eine Fehlermeldung "400", der wohl auf die Codezeilen für Werte und Formate einfügen zurückzuführen ist. Welche Lösung gibt es für dieses Problem?

Public Sub Daten_kopieren_Keil()
Dim strPfad As Variant, Quelle As Workbook
Dim ws As Worksheet, boGefunden As Boolean
strPfad = Application.GetOpenFilename
If strPfad  False Then
Set Quelle = Workbooks.Open(strPfad)
Else
MsgBox "Nichts ausgewählt!"
Exit Sub
End If
For Each ws In Quelle.Worksheets
Select Case ws.Name
Case "5.1 GuV_ÜbersichtK"
With ws
boGefunden = True
End With
Exit For
Case Else
End Select
Next ws
If boGefunden Then
ws.Cells.Copy
ThisWorkbook.Worksheets("Keil_GuV").Range("A1").PasteSpecial Paste:=xlValues 'Werte  _
einfuegen
ThisWorkbook.Worksheets("Keil_GuV").Range("A1").PasteSpecial Paste:=xlPasteFormats 'Formate  _
einfuegen
Application.CutCopyMode = False
Else
MsgBox "Blatt nicht gefunden."
End If
Windows(ThisWorkbook.Name).Activate
End Sub

Vielen Dank,
Börny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Daten_kopieren_Keil() Dim strPfad As Variant, Quelle As Workbook Dim ws As Worksheet strPfad = Application.GetOpenFilename If strPfad False Then Set Quelle = Workbooks.Open(strPfad) On Error Resume Next Set ws = Quelle.Worksheets("5.1 GuV_Übersichtk") On Error GoTo 0 If Not ws Is Nothing Then ws.Cells.Copy With ThisWorkbook.Worksheets("Keil_GuV").Range("A1") .PasteSpecial Paste:=xlValues 'Werte einfuegen .PasteSpecial Paste:=xlPasteFormats 'Formate einfuegen End With Application.CutCopyMode = False Else MsgBox "Blatt nicht gefunden." End If Else MsgBox "Nichts ausgewählt!" End If ThisWorkbook.Activate End Sub

Public Sub Daten_kopieren_Keil() Dim strPfad As Variant, Quelle As Workbook Dim ws As Worksheet, boGefunden As Boolean Application.ScreenUpdating = False strPfad = Application.GetOpenFilename If strPfad False Then Set Quelle = Workbooks.Open(strPfad) Else MsgBox "Nichts ausgewählt!" Exit Sub End If For Each ws In Quelle.Worksheets Select Case ws.Name Case "5.1 GuV_Übersicht" With ws boGefunden = True End With Exit For Case Else End Select Next ws If boGefunden Then ws.Cells.Copy ThisWorkbook.Worksheets("Keil_GuV").Range("A1").PasteSpecial Paste:=xlPasteValues ThisWorkbook.Worksheets("Keil_GuV").Range("A1").PasteSpecial Paste:=xlPasteFormats Application.DisplayAlerts = False Quelle.Close False Application.CutCopyMode = False Else MsgBox "Blatt nicht gefunden." Quelle.Close False End If End Sub

Public Sub Daten_kopieren_Keil2() Dim strPfad As Variant, Quelle As Workbook Dim ws As Worksheet, boGefunden As Boolean Application.ScreenUpdating = False strPfad = Application.GetOpenFilename If strPfad False Then Set Quelle = Workbooks.Open(strPfad) Else MsgBox "Nichts ausgewählt!" Exit Sub End If For Each ws In Quelle.Worksheets Select Case ws.Name Case "5.1 GuV_ÜbersichtK" With ws boGefunden = True End With Exit For Case Else End Select Next ws If boGefunden Then ws.Cells.Copy ThisWorkbook.Worksheets("Keil_GuV").Range("A1").PasteSpecial Paste:= _ xlPasteValuesAndNumberFormats 'ThisWorkbook.Worksheets("Keil_GuV").Range("A1").PasteSpecial Paste:=xlPasteFormats Application.DisplayAlerts = False Quelle.Close False Application.CutCopyMode = False Else MsgBox "Blatt nicht gefunden." Quelle.Close False End If ThisWorkbook.Worksheets("Cockpit").Activate End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread