Thema Datum  Von Nutzer Rating
Antwort
27.11.2014 14:27:43 Werner
Solved
Blau Mehrere Sheets ansprechen
 27.11.2014 15:56:49 Gast59596
NotSolved

Ansicht des Beitrags:
Von:
Gast59596		 Datum:
27.11.2014 15:56:49		 Views:
788		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Sheets ansprechen

Application.Intersect Method (Excel)

Returns a Range object that represents the rectangular intersection of two or more ranges.

 

Ergo: derSchnitt einer Zelle mit einem Bereich = die eine Zelle oder nix

und in einer Zelle musst du nicht nochmals im Kreis herumfahren!

 

 

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Intersect(Target, Range("F71:AK71")) Is Nothing _
   Or LCase$(Target.Value) <> "ja" _
   Or ExcludedSheet(Sh.Name) = True Then Exit Sub

'uf_HinweisGlasbruch.Show
Call MsgBox("Bitte umgehend den Vorgesetzten informieren.", vbExclamation, "W. Meier Hinweis beachten")

End Sub

Private Function ExcludedSheet(sName As String) As Boolean
Const sINCLUDE As String = "Tabelle1,Tabelle3,Tabelle5"
If InStr(sINCLUDE, sName) = 0 Then ExcludedSheet = True
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2014 14:27:43 Werner
Solved
Blau Mehrere Sheets ansprechen
 27.11.2014 15:56:49 Gast59596
NotSolved