Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Evang. Mitarbeiter finden u.a. Karf. Zellen färben

Evang. Mitarbeiter finden u.a. Karf. Zellen färben
30.05.2017 20:46:42
STeve
Liebe Könner und Gönner.
Wieder mal mit einer Bitte um eure Lösungen.
Bei angefügter Datei wird der SA und SO (spaltenweise) eingefärbt. Die Feiertage wurden ermittelt (es wird ein "x" eingetragen) und bekommen(spaltenweise) die Sonntagsfarbe.
Der Karfreitag wird mit "KarF" gekennzeichnet.
Hier soll aber nicht die ganze Spalte eingefärbt sondern nur nach Kontrolle in der Tabelle "Mitarbeiterverwaltung" (Spalte C) beim evangelischen Mitarbeiter bestimmte 8 Zellen färbig werden.
https://www.herber.de/bbs/user/113895.xlsm
Info: In Zelle D13 wird der letzte Tag des Vormonats eingetragen.Um den Karfreitag (hier im Jahr 2019) anzuzeigen wurde der 31.3.2019 vermerkt.
Besten Dank und schönen Abend noch.
LG STeve

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine bedingte Formatierung sollte reichen ...
31.05.2017 08:16:08
...
Hallo Steve,
... und wenn Du Deine Datei als xlsx- anstelle xlsm-Datei einstellst, würde ich mir diese auch entsprechend mal anschauen.
Gruß Werner
.. , - ...
..nur über VBA möglich
31.05.2017 09:18:35
STeve
Hi Werner.
Danke für deine schnelle Antwort.
Ich muss die Einfärbung der Zellen über VBA (xlsm - Makro) erwirken.
Die von mir hier eingestellte Datei ist nur ein kleiner Auszug. Die echte große Datei wird fast - durch wenige Klicke (Userform) des Benutzers- komplett neu erstellt.
Nach diesem Code kommen bis zur Fertigstellung noch viele weitere Codes.
Eine bedingte Formatierung durch den Benutzer geht nicht.
lg
Anzeige
DANKE hab es geschafft.
31.05.2017 14:23:18
STeve
Danke an alle die dadurch Mühen hatte. Habe es geschafft.
lg und schönen Tag noch

Steve

Hier der Code:
Sub einfaerben()
Dim Pos As Integer
Dim MAName As Integer ' es wird der MitarbeiterName aus der Mitarbeiterverwaltung eingetragen
Pos = 13 + 5
For MAName = 1 To Worksheets("Tabelle1").Range("A10").End(xlUp).Row
Sheets("Tabelle1").Range("A" & Pos).Value = Sheets("Mitarbeiterverwaltung").Range("A" & MAName). _
Value
Pos = Pos + 8
Next MAName
Dim x As Integer
x = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row - 12
Dim Spalte As Range ' färbt Sa und So ein
For Each Spalte In Sheets("Tabelle1").Range(Cells(4, 4), Cells(x, 36)).Columns
Select Case Weekday(Spalte.Cells(11), 2)
Case 6: Spalte.Interior.Color = RGB(204, 255, 255) ' Farbe des Samstages
Case 7: Spalte.Interior.Color = RGB(255, 204, 153)  'Farbe des Sonntages
End Select
Next
Dim Maria As Date, oster As Date, ostermo As Date, christi As Date, Pfingstso As Date,  _
Pfingstmo As Date, fronleich As Date, neujahr As Date, Heilige As Date
Dim Staatsf As Date, MariaHimmel As Date, National As Date, Christtag As Date, Stefanitag As  _
Date, Allerheilig As Date, evang_FT_Karfr As Date
With Sheets("Tabelle1")
Maria = .Range("C55")
oster = .Range("C44")
ostermo = .Range("C45")
christi = .Range("C46")
Pfingstso = .Range("C47")
Pfingstmo = .Range("C48")
fronleich = .Range("C49")
neujahr = .Range("C51")
Heilige = .Range("C52")
Staatsf = .Range("C53")
MariaHimmel = .Range("C54")
National = .Range("C56")
Christtag = .Range("C57")
Stefanitag = .Range("C58")
Allerheilig = .Range("C59")
evang_FT_Karfr = .Range("C50")
End With
For Each Spalte In Sheets("Tabelle1").Range(Cells(4, 4), Cells(4, 36)).Columns
Select Case Spalte(1)
Case Maria, oster, ostermo, christi, Pfingstso, Pfingstmo, fronleich, neujahr, Heilige, Staatsf, _
MariaHimmel, National, Christtag, Stefanitag, Allerheilig: Spalte.Cells.Offset(-3, 0).Value = "x"
Case evang_FT_Karfr: Spalte.Cells.Offset(-3, 0).Value = "KarF"
End Select
Next
For Each Spalte In Sheets("Tabelle1").Range(Cells(1, 4), Cells(x, 36)).Columns ' sucht das x  _
oder X in Zeile ein und färbt den Feiertag ein
Select Case Left(Spalte.Cells(1), 36)
Case "x", "X": Spalte.Interior.Color = RGB(255, 204, 153)
Dim EvangMitarbeiter As Integer ' es wird der evangMitarbeiter aus der Mitarbeiterverwaltung  _
gesucht
Case "KarF": For EvangMitarbeiter = 1 To Worksheets("Mitarbeiterverwaltung").Range("C10").End( _
xlUp).Row
Dim Suchmal As String
Suchmal = Worksheets("Mitarbeiterverwaltung").Range("C" & EvangMitarbeiter).Value
Select Case Suchmal
Dim Treffer As String
Case "evangelisch": Treffer = Worksheets("Mitarbeiterverwaltung").Range("A" & EvangMitarbeiter). _
Value
For Mitarbeiterpositionsuchen = 1 To Worksheets("Tabelle1").Range("A40").End(xlUp).Row
Dim Tageinfaerben As String
Tageinfaerben = Worksheets("Tabelle1").Range("A" & Mitarbeiterpositionsuchen).Value
Select Case Tageinfaerben
Case Is = Treffer:
Dim evangFT As Range
Set evangFT = Worksheets("Tabelle1").Range(Cells(Mitarbeiterpositionsuchen - 3, Spalte.Cells. _
Column), Cells(Mitarbeiterpositionsuchen + 4, Spalte.Cells.Column))
evangFT.Interior.Color = RGB(255, 204, 153)
End Select
Next
End Select
Next EvangMitarbeiter
End Select
Next
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige