Thema Datum  Von Nutzer Rating
Antwort
03.02.2015 19:18:06 jojue
Solved
Blau MakroCode auf alle Tabellenblätter anwenden
 04.02.2015 01:59:22 Gast18439
Solved
04.02.2015 21:44:53 jojue
NotSolved

Ansicht des Beitrags:
Von:
Gast18439		 Datum:
04.02.2015 01:59:22		 Views:
957		 Rating:
     
Antwort:
 Nein
Thema:
MakroCode auf alle Tabellenblätter anwenden

Nimm einfach das Workbook_SheetChange-Ereignis in DieseArbeitsmappe (engl. ThisWorkbook).

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

End Sub

Wie du sehen kannst, wird dir hier das Blatt mitgeliefert, auf dem eine Anderung stattfand. Du musst also nur prüfen ob es sich um eines deiner 31 Blätter handelt - insofern es noch weitere als diese 31 in der Mappe gibt - und wenn ja, fürst du deinen bereits vorhandenen Code darauf aus.

Select Case Target
  
'1 = 08.00-12.00 und 13.00-17.30 Uhr
Case 1
Sh.Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 'morgen 6 von 21 bis
Sh.Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 'nachmittag 26 von 43 bis
  
'2 = 08.30-12.30 und 13.30-18.00 Uhr
Case 2
'...

 

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
03.02.2015 19:18:06 jojue
Solved
Blau MakroCode auf alle Tabellenblätter anwenden
 04.02.2015 01:59:22 Gast18439
Solved
04.02.2015 21:44:53 jojue
NotSolved