Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("B4:I17").Select Selection.Copy Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm" Sheets("Monatsabrechnung").Select !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 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 hoffe hier kann mir vielleicht jemand weiterhelfen ;O) Also ich habe oben einen Ausschnitt meiner Makro-Datei abgebildet. Ich habe in diesem Makro das Problem, dass mir VBA einen Fehler bei den Zeilen mit den Ausrufezeichen anzeigt. (also die Ausrufezeichen sind in dem VBA-Projekt natürlich nicht enthalten !) Hat sich in Office 2007 in der Richtung etwas geändert oder was mache ich falsch ? (falls es wichtig ist : Das Makro befindet sich in der Arbeitsmappe Monatsabrechnung) MfG Sebastian

hi sebastian

habe kein excel 7 daher ein glücksspiel

gruss gast123

erste zeile ist der tabellenname einzutragen

ThisWorkbook.Worksheets("DeineTabelle").Range("B4:I17").Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Workbooks("Jahresauswertung").Worksheets("Monatsabrechnung").Range("B4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("Monatsabrechnung").Worksheets("Statistik 2007").Range("O5:O16").Copy
Workbooks("Jahresauswertung").Worksheets("Monatsabrechnung").Range("J5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
Exit Sub
End If

Vielen Dank !!!!

So funktionierts ;O)

• Zirkelbezug
• via Makro Arbeitsmappen verknüpfen
• Excel Arbeitsblätter
• Wechseln zischen zwei Arbeitsmappen per Makro
• Suchen in Arbeitsmappen