Makro Arbeitsmappe
Hallo Leute,
mein Problem sieht so aus:
Ich habe an unsere 70 europäischen Töchter ein Excel-File zukommen lassen. Jetzt kam raus, dass in dem File ein Fehler ist. Ich habe nun ein Makro aufgezeichnet, was diesen Fehler beheben soll. Jedoch weiß ich nicht, wir ich das File gestalten muss, damit alle 70 Länder diesen Korrektur-Makro laufen lassen können, da ja die Bezeichnungen immer unterschiedlich sind. Der eine heisst: TT IRELAND - ACTUAL 2008.xls, der andere FU SPAIN - ACTUAL 2008.xls...
Das einzige, was immer gleichbleibt ist am Ende "...-ACTUAL 2008.xls"
Danke für eure schnelle Hilfe.
Sub Makro1()
'
' Makro1 Makro
Windows("TT IRELAND - ACTUAL 2008.xls").Activate
Sheets("OVERVIEW").Select
ActiveSheet.Unprotect ("8")
ActiveWindow.SmallScroll Down:=-93
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=-21
Range("U3:U67").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveWindow.SmallScroll Down:=39
Range("U72:U121").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
End Sub
Antwort schreiben
Antwort 1 von coros vom 25.10.2019, 12:32 Options
Hallo Diogeness,
warum erstellst Du nicht ein AddIn, dass eine Symbolleiste mit einem Button beinhaltet, über den das Makro gestartet wird. Die erste Zeile
[b]Windows("TT IRELAND - ACTUAL 2008.xls").Activate[/b]
in Deinem Makro läst Du weg. Wenn Du das AddIn öffnest un danach die Datei um die es geht und dann den Button betätigst, wird das Makro auf die gerade aktive und somit auf die Datei, die geändert werden soll, angewendet.
Wäre das eine Alternative für Dich?
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von coros vom 25.10.2019, 13:13 Options
Hallo Diogeness,
ich habe Dir mal ein solches AddIn erstellt. Du kannst Dir das unter
http://www.excelbeispiele.de/Beispiele_Supportnet/ACTUAL 2008.xla herunterladen. Wenn Du zuerst das AddIn öffnest, durch das Dir die Symbolleiste erstellt wird und danach die Datei, die geändert werden soll, sollte es funktionieren.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.