Leere Zellen zählen / Bestimmter Bereich

[diving_excel]

Guten Tag!
Und zwar folgende Frage:
 
Ich hab in Excel ein Erstellungsdatum (gelb markiert). Nun möchte ich das Excel mir alle leeren Zellen der blau markierten Bereiche in der grünen Zeile zählt.
Dann möchte ich wissen wie viele der blau markierten Zellen bis zum Ende der grünen Zeile noch leer sind. Also wieder die Anzahl.
 
Ich weiß leider nur wie man das machen kann wenn die jeweiligen zu zählenden Zellen an einem stück liegen.

Vielen Dank für eure Hilfe!

[diving_excel]

EDIT: Außerdem möchte ich erfahren wie viele der Blau markierten Zellen bis zum Erstellungsdatum leer sind. Die unterschiedlichen Teile (1-6) sind in chronologischer Reihenfolge. Wenn zb Teil 3 das blaue Datumsfeld leer ist, in Teil 2 aber 6.6.15 steht und dannach in Teil 4 20.10.15 steht, dann weiß man das dass blaue Feld in Teil 3 dazwischen liegt und vor dem Erstellungsdatum ist. Also würde man das Feld zählen.

Hoffe ich konnte mich richtig ausdrücken!
Danke!

[WillWissen]

Hi,

zur ersten Frage:

Code:

=ZÄHLENWENNS($B$3:$Y$3;"Datum";$B$4:$Y$4;"")

Den Rest sehe ich mir noch an; deine Beschreibung klingt momentan noch verwirrend. Mal sehen..

[diving_excel]

Danke deine Formel funktioniert!
Um den zweiten Teil besser zu verstehen hab ich meine Excel Datei angepasst:
Neues Erscheinungsdatum: 1.10.15

Demnach sollen nur die Datums Bereiche gezählt werden die vor dem Erscheinungsdatum liegen, also:
B4 F4 J4 N4

in diesem Bereich sollen nun die leeren Zellen gezählt werden. Also 2.
Dieses zählen von leeren Zellen in Abhängigkeit von dem Bereich bis zum Erscheinungsdatum soll sich je nach Änderung des Erscheinungsdatum anpassen.

Hoffe das war besser erklärt.

[Bamberg]

Hallo diving,

bin gespannt, ob man das mit "normalen" Formeln hinbekommt. Die Formel-Freaks tüfteln bestimmt schon :D

Hier ein VBA Code für eine benutzerdefinierte Function (in ein allgemeines Modul kopieren)

Code:

Option Explicit

Public Function AnzahlLeereZellenXXL(ByVal Bereich As Range, _
                                    Optional ByVal DatumAlsKriterium As Variant, _
                                    Optional ByVal Oberhalb As Boolean = True) As Long
                                 
   Dim Zelle As Range
   Dim i As Long

   For Each Zelle In Bereich.Cells
       If IsEmpty(Zelle) Then i = i + 1
   Next Zelle

   If IsMissing(DatumAlsKriterium) Then
       AnzahlLeereZellenXXL = i
       Exit Function
   Else
       
       For Each Zelle In Bereich.Cells
           If Zelle.Value > DatumAlsKriterium Then Exit For
           If IsEmpty(Zelle) Then AnzahlLeereZellenXXL = AnzahlLeereZellenXXL + 1
       Next Zelle
       
       If Not Oberhalb Then
           Exit Function
       Else
           AnzahlLeereZellenXXL = i - AnzahlLeereZellenXXL
       End If
   
   End If

End Function

und ein Beispiel für die Verwendung der Function auf dem Arbeitsblatt ...

Arbeitsblatt mit dem Namen 'Tabelle1'

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

1

Erstellungsdatum: 30.12.15

2

Teil 1

Teil 2

Teil 3

Teil 4

Teil 5

Teil 6

3

ID

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

4

123

01.01.2015

X

X

06.06.2015

X

X

X

X

X

20.10.2015

X

5

01.10.2015

Leere Zellen Gesamt

3

6

Leere Zellen vor Stichtag

1

7

Leere Zellen nach Stichtag

2

Zelle	Formel
I5	=AnzahlLeereZellenXXL((B4;F4;J4;N4;R4;V4))
I6	=AnzahlLeereZellenXXL((B4;F4;J4;N4;R4;V4);B5;FALSCH)
I7	=AnzahlLeereZellenXXL((B4;F4;J4;N4;R4;V4);B5;WAHR)

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.5.3) erstellt. ©Gerd alias Bamberg

LG Gerd

[diving_excel]

Hi Gerd, deine Lösung klingt interessant, nur bekomme ich dann immer null raus. Weißt du was ich womöglich falsch mache?

[Bamberg]

In A1 hast Du einen Text stehen, daher habe ich die Zelle B5 mit einem Datum verwendet.
Könnte das die Ursache sein?

LG Gerd

[WillWissen]

Hi,

füge zwischen Zeile 3 und 4 eine Leerzeile (Hilfszeile) ein, die du später einfach ausblendest.

Arbeitsblatt mit dem Namen 'Tabelle1'

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

1

Erstellungsdatum:

01.10.2015

2

Teil 1

Teil 2

Teil 3

Teil 4

Teil 5

Teil 6

3

ID

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

Datum

AA

BB

CC

4

x

x

x

5

123

01.01.2015

X

X

01.01.2015

X

X

X

X

X

02.09.2015

X

11.10.2015

Zelle	Format	Wert
C1	TT.MM.JJJJ	01.10.2015

Zelle	Formel
B4	=WENN(UND(B5<$C$1;ISTZAHL(B5));"x";"")
B7	=ABS(ZÄHLENWENNS($B$3:$Y$3;"Datum";$B$5:$Y$5;"")-ZÄHLENWENN($B$4:$Y$4;"x"))

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.5.2) erstellt. ©Gerd alias Bamberg

[diving_excel]

@Gerd ne leider nicht, hab aber den englischen Begriff Date anstatt Datum genommen. Macht das was aus?

[Bamberg]

Sollte keinen Unterschied machen.
Magst Deine Mappe mal hochladen?