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

Ansicht des Beitrags:
Von:
Werner		 Datum:
27.11.2014 14:27:43		 Views:
1611		 Rating:
     
Antwort:
 Nein
Thema:
Mehrere Sheets ansprechen
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Mehrere Sheets ansprechen
 27.11.2014 14:27:43 Werner
Solved
27.11.2014 15:56:49 Gast59596
NotSolved