Makros sollen auf allen Sheets gehen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Moritz,
Du greifst durchweg nicht auf den Namen des *Tabellenblatts* zu, derweil Du immer activesheet verwendest.
Der Name des Blattes ist insofern egal.
Was zu den Problemen führt, sind leider die Bereichsnamen, die Du verwendest, z.B. geplantInhouse
Wenn ich das eine, vorhandene Blatt kopiere, wird eine Kopie erzeugt, die dann geplantInhouse8 heißt (für andere Namen werden leider andere Nummern "automatisch" vergeben.
Vielleicht solltest Du ein bis auf die Namen komplettes Blatt als Kopiervorlage anlegen und ein Makro schreiben, das die Namen bei jedem neuen Blatt erzeugt, nach dem Motto:
BereichsName & activesheet.index
Dann brauchst Du nur *einmalig* Deine Makros nach den Bereichsnamen durchsuchen und ersetzen durch den Namen & activesheet.index.
Also, so daß etwa aus der Zeile ...

Set Tbl = ActiveSheet.Range("geplantInhouse").ListObject

wird:

Set Tbl = ActiveSheet.Range("geplantInhouse" & activesheet.index).ListObject

Das sind 11 Ersetzungen, das ist überschaubar.
Allerdings nicht besonders elegant - vielleicht weiß einer der Profis was Besseres.
Schöne Grüße,
Michael

- ich habe die Tabelle 'CoC Ausstattung' einfach kopiert - im Namensmanager alle Namen einheitlich umbenannt, die im Namen eine Zahl als Suffix hatten (willkürlich von Excel automatisch vergeben) mit dem neuen Suffix '_2' - im Vba-Code ein neues Modul angelegt - in dem für die Namen Variablen definiert werden - die Belegung der Variablen erfolgt in der Prozedur: Private Sub Workbook_SheetActivate(ByVal Sh As Object) - aus der Programmzeile: Set lstObj = ActiveSheet.ListObjects("ProjekteInhouse") wird Set lstObj = ActiveSheet.ListObjects(ProjekteInhouse) usw. - und schon läuft der Code auch im neuen Tabellenblatt

Hallo Moritz,
da beim Öffnen der Arbeitsmappe das Ereignis 'Workbook_SheetActivate' nicht aufgerufen wird,
egal in welcher Excelversion bis E-2016, sind die Variablen nicht gesetzt sondern leer.
Deshalb mußte ich ein bischen umorganisieren:


Private Sub Workbook_Open()
'Dein bisheriger Code
'neuer Aufruf in letzter Zeile
Call VariablenSetzen(ActiveSheet)
End Sub

Das Modul 'mod_Variablen' habe ich umbenannt in 'mod_Tools' und das sieht jetzt so aus:


Option Explicit
Public ProjekteInhouse As String, ProjekteResident As String, _
geplantInhouse As String, geplantResident As String, _
SummeMA As String
Sub VariablenSetzen(ByVal ws As Worksheet)
Select Case ws.Name
Case "CoC Ausstattung"
ProjekteInhouse = "ProjekteInhouse"
ProjekteResident = "ProjekteResident"
geplantInhouse = "geplantInhouse"
geplantResident = "geplantResident"
SummeMA = SummeMA
Case "CoC Ausstattung (2)"
ProjekteInhouse = "ProjekteInhouse_2"
ProjekteResident = "ProjekteResident_2"
geplantInhouse = "geplantInhouse_2"
geplantResident = "geplantResident_2"
SummeMA = "SummeMA_2"
End Select
End Sub

Und die Aktions-Routine beim Wechsel der Arbeitsblätter so:



Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Type = xlWorksheet Then

Call VariablenSetzen(Sh)

End If

End Sub

Hier auch noch die Datei dazu:
https://www.herber.de/bbs/user/100613.xlsm
Gruß´von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Makros sollen auf allen Sheets gehen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread