MAkro mit Button per VBA in neue Datei kopieren
08.02.2017 11:56:45
Mike
leider komme ich (mal wieder) nicht weiter. Sämtliche Varianten die ich so finde passen nicht . Hier mein (vereinfacht dargestelltes)Problem.
Ich habe aus Datei "A" per Makro eine neue Datei "B" erstellt. Alles gut. Dann habe ich aus Datei A per VBA ein Blatt kopiert und in Datei B eingefügt. Auch noch alles gut. Auf diesem Blatt ist allerdings ein Formularsteuerelement, mit hinterlegtem CODE aus Datei"A" vorhanden.
Das Problem:
Stosse ich das Makro per Button aus Datei "B" an, wird immer erst Datei"A" geöffnet weil das Makro auf Datei"A" verweist.
Wie bekomme ich das in Datei "B" rein. Hab schon mit exportieren des Moduls aus Datei"A" versucht, bin langsam am verzweifeln.
Vielen Dank schonmal für Eure Unterstützung!
Dieser Code müsste hinter dem Button (Formularsteuerelement) in Datei B liegen:
Private Sub ErgebnisAnzeigen()
Sheets(Sheets("Auswertung").Range("N10").Value).Select
Dim Kriterium1 As Long, Kriterium2 As Long, Kriterium3
Selection.AutoFilter
With Sheets("Auswertung")
Kriterium1 = DateSerial(Year(.Cells(11, 30)), 1, 1)
Kriterium2 = DateSerial(Year(Kriterium1), 12, 31)
Kriterium3 = Sheets("Auswertung").Cells(20, 32)
End With
With Sheets(Sheets("Auswertung").Range("N10").Value)
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
.AutoFilter.Range.AutoFilter Field:=3, Criteria1:= _
">=" & Kriterium1, Operator:=xlAnd, Criteria2:="Während des Kopierens des Blattes mit dem Makro speichere ich zwischendurch das Blatt "B". könnte man das irgendwie in das Ergeignis "BeforeSave" in das neue Blatt einbauen?
Gruß
Mike