Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 5 Then
ze1 = ActiveCell.Row - 1
If Target.Address = "$E$" & ze1 Then
... UserForm1.Show (vbModeless)
End If
End If
End Sub
Wenn in der Tabelle in Spalte E etwas (Suchbegriff) reingeschrieben wird, dann startet automatisch der Code und öffnet das Formular (Userform1 = Suchergebnis). Läuft einwandfrei, aber eben nur für diese eine Tabelle.
Ich habe aber noch weitere Tabellen und möchte das ChangeValue-Ereignis auf alle Tabellen anwenden, ohne dass ich den Code (ist etwas länger als angezeigt) in alle Tabellen einfügen muss.
Gibt es eine Möglichkeit, dass man alle vorhandenen Tabelle (und iwF neue Tabellen) mit einem Worksheet_Change-Ereignis anspricht.
|