Makro nach speichern falscher dateiname,
27.01.2017 11:30:25
Sven
ich habe mir ein Makro geschrieben das für mich 4 aufgaben übernimmt, diese habe ich einzeln aufgezeichnet und nachher zusammenkopiert
im ersten Stepp wird die ausgefüllte Seite einfach ausgedruckt
im zweiten übertrage ich die Daten in eine andere fortlaufende liste
im dritten Stepp drucke ich einen Begleitschein aus der sich automatisch mit den Daten aus diesem Kalkulator füllt
im vierten Stepp Speicher ich das ganze unter einem Namen den man auch in die Liste eingibt und schließe dann auch das geöffnete Fenster,
das Funktioniert auch wunderbar und erspart mir super viel Arbeit,
nun habe ich das Problem das wenn ich eine alte Datei öffne die ich vorher mal bearbeitet habe und somit unter meiner Nummer gespeichert habe dort funktioniert meine einzelnes Makro Fertigungsliste und Begleitschein nicht weil ich dort als Dateinamen ja als feste große drin stehen habe "Kalkulator BZ" nun heißt die Datei durch speichern aber ja anders
ich habe jetzt schon getestet mir in Tabelle 2 (die ich für versteckte Formeln nutze) in einer Zelle den Dateinamen anzuzeigen und wollte diesen dann nehmen komme da aber irgendwie nicht weiter,
ich hänge einmal mein Code mit dran
Sub Alles()
' Alles Makro
' drucken
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
' Fertigungsliste
Application.Left = 38.5
Application.Top = 37
Workbooks.Open Filename:= _
"I:\CNC-FERTIGUNG\BEGLEITSCHEIN\Fertigungsliste.xlsm"
Windows("kalkulator BZ.xlsm").Activate
Range("B7").Select
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Copy
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Rows("6:6").Select
Selection.Copy
Rows("5:5").Select
ActiveSheet.Paste
Range("C6").Select
Application.CutCopyMode = False
Windows("kalkulator BZ.xlsm").Activate
Range("B7").Select
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
Windows("kalkulator BZ.xlsm").Activate
Range("B10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D6").Select
Windows("kalkulator BZ.xlsm").Activate
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F6").Select
Windows("kalkulator BZ.xlsm").Activate
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("kalkulator BZ.xlsm").Activate
ActiveWindow.SmallScroll Down:=24
Application.CutCopyMode = False
Sheets("Tabelle2").Select
Range("B3").Select
Selection.Copy
Sheets("Tabelle1").Select
Windows("Fertigungsliste.xlsm").Activate
Range("G6").Select
ActiveSheet.Paste
Range("H6").Select
Windows("kalkulator BZ.xlsm").Activate
ActiveWindow.SmallScroll Down:=-36
Range("C12").Select
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L6").Select
Windows("kalkulator BZ.xlsm").Activate
ActiveWindow.SmallScroll Down:=18
Range("J41").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fertigungsliste.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.SmallScroll Down:=-42
' Begleitschein
Workbooks.Open(Filename:="I:\CNC-FERTIGUNG\BEGLEITSCHEIN\begleitschein.xlsx" _
, UpdateLinks:=0).RunAutoMacros Which:=xlAutoOpen
ActiveWindow.SmallScroll Down:=-18
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWorkbook.Close savechanges:=False
ActiveWindow.SmallScroll Down:=-18
Range("H3").Select
' Speichern
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Range("B9").Value & ".XLSM"
ActiveWorkbook.SaveAs ("I:\CNC-FERTIGUNG\Artikel Dokumente\" & strDateiname)
ActiveWorkbook.Close
SendKeys "%{F4}", True
End Sub
wenn jemand dort auch noch allgemeine Verbesserungen hat die nehme ich gerne mit auf,