Zellen farblich kennzeichnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sepp,
bei meinem aktuellen Projekt handelt es sich um eine seeehr komplexe Anwendung (Personalabrechnung) die ich zu Beginn meiner Arbeit (Jahre her) nahezu ausschließlich "gewöhnlich" also ohne VBA realisiert hatte.
Hierbei stieß ich aber sehr schnell an die Grenzen der "Übersichtlichkeit", so - insbesondere aufgrund Änderungen im Tarifrecht - Ergänzungen einzupflegen waren. Lange Rede, kurzer Sinn. ...
Mal abgesehen davon, das ich all das, was mit VBA zu tun hat, in mich aufsauge, genieße ich jetzt den Vorteil, einzig nur Module tauschen zu müssen, so Veränderungen eintreten.
Derzeit arbeite ich aus gutem Grund an der Kosmetik der Datei. Und daher meine Frage, die tatsächlich so immer noch gilt!
Vielen Dank für Deine/Eure weitere Hilfe! (Es hakt eben bei mir noch im Punkt VBA. ...)
Gruß
Uwe

Hallo Sepp,
tja, eigentlich gebe ich Dir in Sachen VBA oder "zu Fuß" Recht! Eigentlich. ... Stell Dir aber bitte mal die Berechnung des Zeitzuschlages für die Nachtstunden von 20:00 bis 6:00 Uhr mittels Formeln vor. Es waren ja auch mittels Formeln dann Einsätze abzurechnen, die in oder aus dieser Zeit "herausragten". Wie dem auch sei. ... 3 mögliche Einsätze pro Mitarbeiter, pro Tag, mal 31 möglicher Tage im Monat, mal 87 Mitarbeiter mit zwei unterschiedlichen Tarifverträgen. Der betroffene Kollege hat seinerzeit 3 Wochen (!!!) benötigt, um die Formeln zu ändern, als sich die Zeit von 20:00 auf 21:00 Uhr veränderte. Ich hingegen benötigte knapp 40 Minuten um in aller Ruhe "mein" Modul Nachtarbeit anzupassen. ... Alles klar, warum, wieso, weshalb? Das aber nur am Rande; warum eben VBA
# # #
Alsooo, der Code soll nur dann ausgelöst werden, so in den Zellen (G15:G49) des Arbeitsblattes "Arbeitsverteilungsplan" eine Änderung erfolgt. Klingt vielleicht
kompliziert, wird aber so gebraucht. ...
Zudem beschäftigt mich die Frage, wie ich genau eine bestimmte Farbe, mit der die Zellen markiert werden sollen, ansprechen kann. Da gibt's doch bestimmt ne entsprechende Tabelle?
Vielen Dank noch mal für Deine Hilfe
Gruß
Uwe

Option Explicit Sub Farbe() 'G15:G49) und zugehörige Personalnummern (I15:I49 Range("G15:G49").Interior.ColorIndex = xlNone Range("I15:I49").Interior.ColorIndex = xlNone Dim WsTabelle As Worksheet Dim Razelle As Range For Each WsTabelle In Worksheets Set Razelle = Range("G15:G49").Find(WsTabelle.Name, , xlFormulas, _ xlWhole, , xlNext) If Not Razelle Is Nothing Then Razelle.Interior.Color = 255 Razelle.Offset(0, 1).Interior.Color = 255 End If Next WsTabelle End Sub

Beliebteste Forumthreads (12 Monate)

	F	G	H	I
14
15		Maier	1
16		Müller	2
17		Huber	3
18
19
20
21
22

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread