Office: (Office 2010) VBA Code

Ich habe mehrere Tabellenblätter ... in jedem steht dieser Code drin

PHP:

         Private Sub ModNeinOption_Click()
Dim ob As Range
Dim rng As Range, firstAddress, temp As Range
Set rng = Rows(1)
Set ob = rng.Find("x", , LookIn:=xlValues, lookat:=xlWhole)
If Not ob Is Nothing Then
firstAddress = ob.Address
Do
If temp Is Nothing Then Set temp = ob
Set temp = Application.Union(temp, ob)
Set ob = rng.FindNext(ob)
Loop While Not ob Is Nothing And ob.Address <> firstAddress
End If
On Error Resume Next
temp.EntireColumn.Hidden = True
End Sub

Private Sub ModJaOption_Click()
Columns.Hidden = False
End Sub



Private Sub IDNeinOption_Click()
Dim ob As Range
Dim rng As Range, firstAddress, temp As Range
Set rng = Rows(2)
Set ob = rng.Find("!", , LookIn:=xlValues, lookat:=xlWhole)
If Not ob Is Nothing Then
firstAddress = ob.Address
Do
If temp Is Nothing Then Set temp = ob
Set temp = Application.Union(temp, ob)
Set ob = rng.FindNext(ob)
Loop While Not ob Is Nothing And ob.Address <> firstAddress
End If
On Error Resume Next
temp.EntireColumn.Hidden = True
End Sub

Private Sub IDJaOption_Click()
Columns.Hidden = False
End Sub


:)

 

Ja gibt es, zB STRG+C und STRG+V. Oder was soll "für alle Nutzbar zu machen" heißen?

 

Ich habe den Code in jedem Tabellenblatt (derzeit 24 Blätter)
Ich würde diesen gerne aus den Blättern Strg-A und Entf. und mit Strg-V in einem einzigen Blatt hinterlegen somit ich nur einmal diesen Code anwenden muss.

 

Hallo,

lege den Code EINMAL in ein allgemeines Modul, das kann von jedem Sheet aus aufgerufen werden.

Da Codes manchmal geändert werden müssen, ist es ein NO GO den selben Code in mehreren Sheets zu hinterlegen.

mfg

 

hi,

da es sich offensichtlich im Code handelt, der durch Steuerelemente aus den ActiveX-Steuerelementen ausgelöst wird, kannst du den eigentlichen Code zwar in ein allgemeines Modul auslagern, aber starten musst du die betreffenden Makros trotzdem aus den jeweiligen Tabellenblättern - folglich kannst du (aus meiner Sicht) alles auch so belassen wie es ist.
Andere Möglichkeit wäre, dass du mit Klassenprogrammierung arbeitest - dann hast du den Code im Klassenmodul (sowie Code z.B. im Workbook_Open-Ereignis oder im SheetActivate-Ereignis um die Steuerelemente den Klassen zuzuweisen) und die Codemodule der Tabellenblätter bleiben leer. Ob sich dieser Aufwand lohnt, steht allerdings auf einem ganz anderen Blatt, zumal der Code ja bereits in allen Tabellenblättern vorhanden ist.

 

Ich müsste aber aus den Blättern eingesetzte Optionsfelder (ActiveX) darauf verweisen...oder?

 

Moin,

ein Ereignis ist immer an das Blatt gebunden, auf dem sich das auslösende Steuerelement befindet.

btw: Die Zahl 24 riecht nach 24 Monaten - wenn das so ist, solltest Du den Tabellenaufbau überdenken. Daten mit gleicher Struktur gehören in ein einziges Tabellenblatt, weil sonst die Auswertungen unnötig kompliziert werden.

 

Hatte ich doch geschrieben: gestartet werden müssen die Makros durch Code in den betreffenden 24 Tabellenblättern - also so wie bisher auch muss das Click-Ereignis jedes Steuerelementes im Tabellenblatt erhalten bleiben, nur dass dann dort anstelle des kompletten Codes das betreffende Makro aufgerufen wird - nach diesem Prinzip:

Code im Tabellenblatt:
Code:

Code im Standardmodul:
Code:

 

ja... das funktioniert mal wieder,
danke für den Tipp!... das Spart doch Code ohne Ende