Hallo zusammen,
ich habe einen Code für mehrere Tabellen gebaut.
Nun möchte ich, dass der Code nur für bestimmte Tabellenblätter angewendet wird.
Also zum Beispiel Tab1, Tab2, Tab3.
Sicher könnt ihr mir helfen.
Danke Werner
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Range("F71:AK71 "))
' Intersect bedeutet nichts weiter, als
' dass sich die selektierte Zelle im definierten Bereich befindet
If Not objRange Is Nothing Then
' alle nicht leeren Zellen
For Each objCell In objRange
' wiederholt eine reihe von anweisungen
If LCase$(objCell.Value) = "ja" Then
uf_HinweisGlasbruch.Show
' MsgBox("Bitte umgehend den Vorgesetzten informieren.", vbExclamation, "W. Meier Hinweis beachten")
Set objCell = Nothing
Exit For
End If
Next
Set objRange = Nothing
End If
End Sub
|