Mehrere "Worksheet_SelectionChange" als eins

14/04/2015 - 23:25 von Peter Schuerer | Report spam
Hallo Zusammen (Claus),

XL2002.

Ich habe 6 Tabellen mit dem gleichen Makro, jeweils der Tabelle
zugeordnet. Wenn jetzt Änderungen anstehen muss ich die 6 gleichen
Makros àndern.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 1 And ActiveCell.Value = "x" Then '=1 ist
Spaltennummer
ActiveCell.ClearContents
Else
If Target.Column = 1 Then
ActiveCell.FormulaR1C1 = "x"
End If
End If
End Sub

Gibt es eine Möglichkeit nur ein Makro unter "Module" zu erstellen und
es wird in jeder einzelnen Tabelle ausgeführt?

Hintergrund:
Wenn der Anwender in einer dieser 6 Tabellen im Bereich A5:A300 klickt,
soll ein "x" eingetragen werden (wenn noch nicht vorhanden). Wenn
bereits ein "x" vorhanden, soll es entfernt werden.

Danke und Gruß
Peter

P.S. Bleib bitte in dieser NG!!:-)
 

Lesen sie die antworten

#1 Alexander Wolff
15/04/2015 - 07:05 | Warnen spam
Ein Muster, welches Du sicher auf Dein Problem umsetzen kannst:

In die Ereignis-Tabellen jeweils:

Private Sub Worksheet_Change(ByVal Target As Range)
WSChange Target
End Sub

In ein allgemeines Modul:

Sub WSChange(ByVal Target As Range)
'Eingaben in Spalte A umwandeln in Kehrwert
If Target.Column = 1 Then
Application.EnableEvents = False
Target = 1 / Target
Application.EnableEvents = True
End If
End Sub

Ähnliche fragen