Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

BLatt kopieren und in andere Datei einfügen | Herbers Excel-Forum


Betrifft: BLatt kopieren und in andere Datei einfügen von: Holger
Geschrieben am: 08.01.2012 19:57:22

Hallo zusammen,

das meiste habe ich mir hier aus der Onlinesuche zusammengesucht. Nun scheitere ich aber.
Folgende Ausgangslage.

Ich habe eine Datei auf, die folgenden Code beinhaltet.

Sub Dateien_aktualisieren()

Sheets("Testdaten").Select

On Error GoTo Fehler

Range("A2").Select

For i = 2 To 10
Datei = ActiveCell.Value
Workbooks.Open Filename:=Datei

ActiveWorkbook.Sheets("Übersicht").Copy after:=Workbooks("Test.xls").Sheets(Workbooks("Test.xls" _
 _
).Worksheets.Count)


ActiveWorkbook.Save
ActiveWorkbook.Close

........

ActiveCell.Offset(0, 5).Value = "aktualisiert"
ActiveCell.Offset(1, 0).Select
Next

Fehler:
MsgBox "Fehler!"


End Sub

Nach den ...... verabschiedet sich immer meine Ausgangdsdatei mit dem Code. Ich scheine also die falsche Datei anzusprechen.

Wer kann mir helfen?

Gruß
Holger

  

Betrifft: AW: BLatt kopieren und in andere Datei einfügen von: Dirk aus Dubai
Geschrieben am: 09.01.2012 08:08:10

Hallo Holger,



da kommt was mit dem Activeworkbook durcheinander.

Anbei mal ein angepasster code, welcher die Workbooks und Sheets gezielt anspricht:

Sub Dateien_aktualisieren()

Set sourcebk = ActiveWorkbook
Set sourcesh = sourcebk.Sheets("Testdaten")

On Error GoTo Fehler

'Range("A2").Select 'normalerweise nicht notwendig

For i = 2 To 10
Datei = sourcesh.Cells(i, 1).Value  'Falls eine Schleife die namen der Dateien auslesen soll,   _
_
einfach mit cells arbeiten
                                     ' z.B. sourcebk.cells(i,1).value
Workbooks.Open Filename:=Datei
Set targetbk = ActiveWorkbook
sourcebk.Sheets("Übersicht").Copy _
after:=targetbk.Sheets(targetbk.Sheets.Count)


targetbk.Save
targetbk.Close

'........

sourcesh.Cells(i, 1).Offset(0, 5).Value = "aktualisiert"
Next i

Fehler:
MsgBox "Fehler!"


End Sub

Lass' hoeren, ob ok.



gruss



Dirk aus Dubai


  

Betrifft: AW: BLatt kopieren und in andere Datei einfügen von: Holger
Geschrieben am: 09.01.2012 14:12:22

Hallo Dirk,

funktioniert prima. Muss ich mir mal in Ruhe anschauen, sonst stehe ich irgendwann wieder vor diesem Problem.

Danke auf alle Fälle!

Gruß
Holger


Beiträge aus den Excel-Beispielen zum Thema "BLatt kopieren und in andere Datei einfügen"