Supportnet / Forum / Tabellenkalkulation

Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("B4:I17").Select Selection.Copy Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm" Sheets("Monatsabrechnung").Select [b] !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![/b] Range("B4").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Workbooks("Monatsabrechnung.xlsm").Activate Sheets("Statistik 2007").Select Range("O5:O16").Select Selection.Copy Workbooks("Jahresauswertung.xlsm").Activate Sheets("Monatsabrechnung").Select [b] !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![/b] Range("J5").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select ............ Else: Exit Sub End If End Sub[code] Hi ich hab ein kleines Problem beim Umschalten zwischen zwei Arbeitsmappen (siehe Auszug). Irgendwie bleibt mein Visual Basic immer an den Stellen mit den !!!!!!!!!!!! hängen. Kann mir jemand sagen, was ich falsch mache ??? Ich will einfach nur zwischen 2 Arbeitsmappen kopieren. Achso ich benutze dieses Makro in Excel 2007 (bzw. würde dies gern da verwenden) Danke schonmal im Vorraus Sebastian

Hallo Sebastian,

auf select kann in VBA zu 9,9% verzichtet werden.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B4:I17").Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Sheets("Monatsabrechnung").Range("B4").PasteSpecial Paste:=xlValues
ThisWorkbook.Sheets("Statistik 2007").Range("O5:O16").Copy
Sheets("Monatsabrechnung").Range("J5").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Gruß Hjao

Danke für die schnelle Antwort ;O)

Leider funktioniert das Ganze trotzdem nicht so wirklich.
Vielleicht muss ich noch erwähnen, dass ich in zwei verschieden Arbeitsmappen kopieren möchte.
Die eine heißt Monatsabrechnung.xlsm und die andere Jahresauswertung.xlsm
Es sollen also Zellwerte von einer Arbeitsmappe in eine ander kopiert werden.

Gruss sebbl

Hallo Sebbl,

da iasst wohl ein 9 untergegangen. Es sollte 99,9% lauten.
Ich baue diue Dateien nicht nach. Da ein Nachbau meist anders aussieht als das Original.

Gruß Hajo

• via Makro Arbeitsmappen verknüpfen
• Excel Arbeitsblätter
• Möchte zwei Wenn Prüfungen verschachteln und in ein Makro einbetten- kennt jemand den Befehl
• Suchen in Arbeitsmappen