Formel gesucht !!Hilfe!!

[vanessamueller]

Hallo zusammen,

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.

[chris-ka]

Hi,

mit einer UDF leicht machbar :)
ansonsten müsste das hier umgebaut werden
http://www.herber.de/excelformeln und bi...elcher=411

Anbei mit einer kleinen UDF.

[RPP63]

Guten Morgen!
Mal ein ganz anderer Ansatz über bedingte Formatierung.

1. Füge eine leere Spalte B ein und blende sie aus.
   
2. Markiere C2:P7
   
3. Start, bedingte Formatierung, neue Regel, Formel ist: =ANZAHL2(BEREICH.VERSCHIEBEN(D2;;-8;;8))=8
   

A

C

D

E

F

G

H

I

J

K

L

M

N

O

P

1

Name

1

2

3

4

5

6

7

8

9

10

11

12

13

14

2

Mitarbeiter A

A

A

B

B

C

C

C

A

A

B

3

Mitarbeiter B

C

C

C

A

A

B

B

C

C

C

4

Mitarbeiter C

B

B

C

C

A

A

C

C

C

A

5

Mitarbeiter D

A

A

B

B

B

C

C

B

B

A

A

C

6

Mitarbeiter E

B

B

B

B

A

C

C

C

C

C

7

Mitarbeiter F

C

B

B

C

C

A

A

A

A

A

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format C2 1. / Formel ist =ANZAHL2(BEREICH.VERSCHIEBEN(D2;;-8;;8))=8 Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Nun wird Dir bereits beim Eintragen angezeigt, dass die Vorgabe verletzt ist.

Gruß Ralf

[vanessamueller]

Hi,

mit einer UDF leicht machbar :)
ansonsten müsste das hier umgebaut werden
http://www.herber.de/excelformeln und bi...elcher=411

Anbei mit einer kleinen UDF.

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:

Function LSerie(rng As Range) As Integer

For Each rng_cell In rng

    If rng_cell.Value <> "" Then

        int_sum = int_sum + 1

    Else

        LSerie = WorksheetFunction.Max(LSerie, int_sum)

        int_sum = 0

    End If

Next
End Function

[vanessamueller]

Guten Morgen!
Mal ein ganz anderer Ansatz über bedingte Formatierung.

1. Füge eine leere Spalte B ein und blende sie aus.
   
2. Markiere C2:P7
   
3. Start, bedingte Formatierung, neue Regel, Formel ist: =ANZAHL2(BEREICH.VERSCHIEBEN(D2;;-8;;8))=8
   

A

C

D

E

F

G

H

I

J

K

L

M

N

O

P

1

Name

1

2

3

4

5

6

7

8

9

10

11

12

13

14

2

Mitarbeiter A

A

A

B

B

C

C

C

A

A

B

3

Mitarbeiter B

C

C

C

A

A

B

B

C

C

C

4

Mitarbeiter C

B

B

C

C

A

A

C

C

C

A

5

Mitarbeiter D

A

A

B

B

B

C

C

B

B

A

A

C

6

Mitarbeiter E

B

B

B

B

A

C

C

C

C

C

7

Mitarbeiter F

C

B

B

C

C

A

A

A

A

A

Bedingte Formatierungen der Tabelle

Zelle Nr.: / Bedingung Format C2 1. / Formel ist =ANZAHL2(BEREICH.VERSCHIEBEN(D2;;-8;;8))=8 Abc

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Nun wird Dir bereits beim Eintragen angezeigt, dass die Vorgabe verletzt ist.

Gruß Ralf

Vielen Dank deine Variante hab ich für was anderes verwendet. Ihr seid die Besten

[chris-ka]

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

lg