Clever-Excel-Forum

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.

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.

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

(29.09.2015, 03:23)chris-ka schrieb: [ -> ]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

(29.09.2015, 07:09)RPP63 schrieb: [ -> ]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

(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,


lg