ich suche eine Formel, die erkennt dass ein Mitarbeiter mehr als 7 Schichten hintereinander hat. Siehe Anhang!!!
Die Schichten sind A=Früh B=Mittel C=Spät. In Spalte P soll er mir den Mitarbeiter anzeigen der mehr als 7 Schichten hintereinander hat.
Super vielen vielen Dank hab aus Modul1 Code und die Formel in eine andere Excel Datei (Excel 2013) reinkopiert und mit Dateityp Excel Macro [b]Enabled Worksheet gespeichert und Voila es funktioniert [/b]
Kannst du für Blonde kurz erklären was das alles bedeutet:
29.09.2015, 22:06 (Dieser Beitrag wurde zuletzt bearbeitet: 29.09.2015, 22:07 von chris-ka.)
(29.09.2015, 16:46)vanessamueller schrieb: Super vielen vielen Dank hab aus Modul1 Code und die Formel in eine andere Excel Datei (Excel 2013) reinkopiert und mit Dateityp Excel Macro [b]Enabled Worksheet gespeichert und Voila es funktioniert [/b]
Kannst du für Blonde kurz erklären was das alles bedeutet:
Hi,
Code:
Function LSerie(rng As Range) As Integer
Dim rng_cell As Range, int_sum As Integer
'jede Zelle im angegebenen Bereich wird durchlaufen
For Each rng_cell In rng
'wenn etwas in der Zelle steht
If rng_cell.Value <> "" Then
'zähle jedes mal eins dazu
int_sum = int_sum + 1
Else
'steht nichts in der Zelle
'ermittle das maximum der jeweiligen Serien der gefüllten Zellen
LSerie = WorksheetFunction.Max(LSerie, int_sum)
'setze die Variable int_sum wieder auf Null
int_sum = 0
End If
Next
End Function