|
Hallo Allerseits,
ich bin recht neu in dem Bereich und daher habe ich noch nicht viel Ahnung. Daher hier erstmal mein Code:
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim Auswertung As Variant 'globales Array zum Aufsummieren der Farben
Private Sub Farben()
Dim merker_row, merker_col As Integer 'Positionsmerker
Dim Tage As Integer 'Schleiferzähler über die Tage und Anzahl Auswertungen
Dim Monate As Integer 'Schleiferzähler über die Monate und Anzahl Auswertungen
Dim aktuelleZelle As Range 'Schleifenzähler für Löschungen
Dim Farbwert As Integer 'Farbwert
merker_row = ActiveCell.Row 'Position merken für nach der Ausführung
merker_col = ActiveCell.Column
'alte Auswertung löschen
Application.ScreenUpdating = False 'Flackern des Bildschirms während der Makroausführung verhindern
For Each aktuelleZelle In Worksheets("Kalender").Range("AY3:AY7")
aktuelleZelle.Value = ""
Next aktuelleZelle
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten
'Summieren
Application.ScreenUpdating = False 'Flackern des Bildschirms während der Makroausführung verhindern
For Tage = 3 To 33 'über alle Tage in Zeilen 3 bis 33
Auswertung = Array(0, 0, 0, 0, 0, 0) 'Alle 5 Farben werden angezeigt
For Monate = 4 To 48 Step 4 'über alle Monate in Spalten 4 bis 48 in 4er Schritten
Farbwert = Worksheets("Kalender").Cells(Tage, Monate).Interior.ColorIndex
Summiere_Farbe Farbwert
Next Monate
For Monate = 51 To 51 'Auswertung in die Spalte 51 (AY) eintragen
Worksheets("Kalender").Cells(Tage, Monate).Value = Auswertung(Tage - 2)
Next Monate
Next Tage
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten
Cells(merker_row, merker_col).Activate 'gemerkte Position wieder aktivieren
End Sub
Public Function Summiere_Farbe(Farbwert As Integer)
Select Case Farbwert
Case 8 'türkis=Urlaub
Auswertung(1) = Auswertung(1) + 1
Case 4 'grelles grün=Gleittag
Auswertung(2) = Auswertung(2) + 1
Case 48 'grau-40%=Resturlaub Vorjahr
Auswertung(3) = Auswertung(3) + 1
Case 6 'gelb=Urlaub?
Auswertung(4) = Auswertung(4) + 1
Case 22 'Pink=Feiertage
Auswertung(5) = Auswertung(5) + 1
Case Else
End Select
End Function
-------------------------------------------------------------------------------------------------------------------------------------------------
Ich möchte gerne in einem Kalender von allen Zeilen jede vierte Zeile untersuchen und jedes markierte Feld seiner Farbe zuordnen, und diese zusammenzählen. Es gibt 5 verschiedene Farben. Das momentane Programm funktioniert sehr gut für die erste Zeile, allerdings zählt er nicht weiter durch, sodass nur die erste Zeile ausgewertet wird und aufgeschrieben wird.
Vll hat einer von euch eine Idee. Ich habe schon einige Zeit investiert und nichts passendes gefunden.
Danke schonmal und LG
|