VBA Code mitkopieren
13.05.2016 11:56:00
Johannes
ich habe folgendes Problem:
In der offenePosten Datei befindet sich ein Tabellenblatt "Gesamt" in dem die Daten aus verschiedenen Quellen eingetragen werden. Wenn das fertig ist kopiere ich das Blatt mit:
Sheets("Gesamt").Select
Sheets("Gesamt").Copy
ChDir "C:\Daten\ABplan"
ActiveWorkbook.SaveAs Filename:="C:\Daten\ABplan\Liste " & PNr & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
damit das Ergebnis an die Kollegen per mail verteilt werden kann. Die Variable PNr ist die Nummer der Auswertung. In dem Originalblatt sind Schaltflächen für zwei Arten der Sortierung und für einen Filter. Der VBA-Code hierzu steht natürlich in der Originalen offenePosten Datei.
Frage nun: wie bekomme ich den Code aus dem Modul "Filter" wie "Sub Sort1()" und die entsprechenden anderen SUB's mit in die neue Datei, damit diese "Bequemlichkeiten" auch den andeen zur Verfügung steht.
In der Recherche habe ich bislang leider nichts gefunden, was mir hilft, daher die Bitte an Euch, hier zu helfen.
Schon mal jetzt herzlichen Dank
Johannes