Makro für bestimmte Tabellenblätter ausführen
26.06.2019 10:07:14
Bastian
ich habe folgendes Makro in meine Excel Arbeitsmappe eingebunden. Dieses funktioniert auch einwandfrei. Entsprechend des Codes, wird das Makro immer ausgeführt, wenn man speichert, egal auf welchem Tabellenblatt man sich befindet.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FeldSep As String
Dim str As String
Const cDir As String = "Zielordner"
Const cFName As String = "import_"
Const cFExt As String = ".csv"
Dim sFullFile As String
sFullFile = cDir & cFName & Format(Now, "YYYYMMDDhhmmss")
ListSep = ","
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = Worksheets("Tabelle 1").UsedRange
End If
Open sFullFile & ".csv" For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ""
FeldSep = IIf(CurrRow.Row Ich möchte nun erreichen, dass das Makro nur ausgeführt wird, wenn ich in bestimmten Tabellenblättern "Speichern" klicke. In den anderen sollte entsprechend beim Speichern nichts passieren. In meinem Fall soll das Makro ausgeführt werden , wenn in den Tabellen 5 und 6 gespeichert wird. Insgesamt besteht meine Arbeitsmappe aus 7 Tabellenblättern.
Kann mir hier jemand weiterhelfen? Ist mein Vorhaben überhaupt möglich?
Bin im Bereich VBA absoluter Einsteiger und habe mir den Code irgendwie zusammengebastelt mit Netzrecherche. Entsprechend komme ich momentan leider nicht weiter.
Vielen Dank im Voraus.
Bastian