Makro nur nur in dieser Mappe ausführen
21.03.2013 15:13:48
Andreas
Ich habe folgendes Problem:
Ich habe mehrere Arbeitsmappen. In 10 Mappen werden Daten eingegeben, die in der 11. gesammelt werden. Die 10 haben die Endung *.xlsb und die 1 xlsm.
In den 10 Mappen habe ich folgende Makros (Diese Arbeitsmappe), die über einen Button gestartet werden:
Sub SortierenUndSpeichern()
Call SortiereSpalteAufsteigend
Call MappeSpeichern
End Sub
Sub SortiereSpalteAufsteigend()
Dim Sortierspalte As String
Dim Bereich As String
ActiveSheet.Unprotect Password:=""
Bereich = "A8:AG32"
Sortierspalte = "A"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
ActiveSheet.Protect Password:=""
End Sub
Sub MappeSpeichern()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub
Wie bekomme ich es hin, dass alle meine Makros nur in der jeweiligen Mappe wirksam sind?
Danke für die Hilfe!
mfg, Andreas