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

Ansicht des Beitrags:
Von:
jojue		 Datum:
03.02.2015 19:18:06		 Views:
2004		 Rating:
     
Antwort:
 Nein
Thema:
MakroCode auf alle Tabellenblätter anwenden

Hallo und guten Tag

Für das Tabellenblatt 1 habe ich ein Marko erfasst, mit welchem ich mit Eingabe einer Zahl entsprechende Zellen mit Farbe füllen kann.

Nun habe ich im Exceldokument 31 Tabellenblätter, welche den gleichen Code wie Tabellenblatt 1 beinhalten sollten.

Damit ich nun nicht in allen 31 Tabellenblätter den Code von Blatt 1 eingeben muss meine Anfrage:

- Gib es einen Code, welchen ich eingaben kann um die Anwendung von Blatt 1 auf alle 31 Blätter anwenden zu können?

- Wo und wie gebe ich diesen ein?

 

Mein Code lautete:

?
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Worksheet_Change(ByVal Target As Range)
'Einfärben der Zellen nach Eingabe der entsprechenden Zahl
Select Case Target
  
'1 = 08.00-12.00 und 13.00-17.30 Uhr
Case 1
Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 'morgen 6 von 21 bis
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
Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3
Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3
  
'3 = 09.30-13.00 und 14.00-19.00 Uhr
Case 3
Range(Target.Offset(0, 12), Target.Offset(, 25)).Interior.ColorIndex = 3
Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3
  
'4 = 08.30-12.30
Case 4
Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3
'Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 (nachmittag keine Anzeige)
  
'5 = 13.30-18.00 Uhr
Case 5
'Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 (morgen keine Anzeige)
Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3
  
'7 = 13.00-19.00 Uhr
Case 7
'Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 (morgen keine Anzeige)
Range(Target.Offset(0, 26), Target.Offset(, 49)).Interior.ColorIndex = 3
  
'8 = 14.00-19.00 Uhr
Case 8
'Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 (morgen keine Anzeige)
Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3
  
'9 = 08.00-12.30 und 14.15-19.00 Uhr
Case 9
Range(Target.Offset(0, 6), Target.Offset(, 23)).Interior.ColorIndex = 3
Range(Target.Offset(0, 31), Target.Offset(, 49)).Interior.ColorIndex = 3
  
  
  
End Select
  
End Sub

 

Besten Dank für eure Mithilfe

Gruss

jojue

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