Makro Kombinieren
juergen
ich habe folgendes vor:
Über der Arbeitsmappe: "MNW_Druck" öffne und schließe ich eine Datei z.B.: "Becker-HS.xlsm".
Wenn ich die v.g. Mappe ("Beck.....) wieder schließe, dann soll in "MNW_Druck" von (a7:a8) nach (g7:g8 ) ein Zelleninhalt kopiert werden.
Problem für mich, ich habe rumexperimentiert mit u. stehenden Makros, bekomme es einfach nicht hin, kann mir bitte jemand mitteilen, was genau ich wie umsetzen muss, damit es funktioniert?
Das erste Makro habe ich in der Arbeitsmappe "Beck..... " stehen, das zweite Makro sollte in das erste Marko integriert werden.
Für Eure Bemühungen danke ich Euch schon jetzt.
Gruß
Jürgen Ja
("Erstes Makro")
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Windows("Becker-HS.xlsm").Activate
Sheets("Dieses Blatt Nicht löschen!").Select
Range("H2").Select
Sheets("Tabelle1").Select
Range("H26").Select
ActiveWorkbook.Save
Saved = True
If Workbooks.Count = 1 Then ' diese Datei
Application.Quit
End If
End Sub
----------------------------------------------
(Zweites Makro)
Sub Makro1()
'
' Makro1 Makro
'
'
Windows("Becker-HS.xlsm").Activate
Range("a7:a8").Select
Selection.Copy
Range("g7:g8").Select
ActiveSheet.Paste
Range("j27").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("MNW_Drucken.xlsm").Activate
Windows("Becker-HS.xlsm").Activate
ActiveWindow.Close
End Sub