Leere Zellen zählen / Bestimmter Bereich

[diving_excel]

gerne 
da ist noch kein vba Modul drin, ist eine neue Version. Die Leeren Bereiche der Tabelle würde ich gerne mit deinem VBA Code (oder einfachen Excel Formeln wenn möglich) ausfüllen. Das Selbe Prinzip wie vorhin.

externer Link entfernt

Ab Spalte H fängt die Tabelle an aus der die Zellen gezählt werden soll. Wirklich relevant sind nur die gelb markierten Datumsfelder. Hab mal 2 "Projekte" erstellt mit den ID's 123 & 456.

• Leere Date Zellen bis "Stichtag": 
  Alle "Date" Zellen aus den 17 Teilbereichen die leer sind und die Vor dem Stichtag liegen. Da man bei einer leeren Zelle nicht sagen kann ob sie vor oder nach dem Stichtag liegt (da sie leer ist) muss die Zelle aus dem rechts liegenden nächsten Teilbereich angeschaut werden. Wenn hier ein Datum ist das vor dem Stichtag liegt kann man sagen das diese leere Zelle auch vor dem Stichtag liegt, da die Teilbereiche chronologisch sind.
  
  

• Gefüllte Date Zellen bis "Stichtag":
  Alle Date Zellen die ein Datum enthalten und kleiner sind als Stichtag
  
  
  
• Gefüllte Date Zellen nach "Stichtag":
  Alle Date Zellen die ausgefüllt sind und größer sind als Stichtag
  
  
  
• Leere Date Zellen nach Stichtag:
  Alle Date Zellen, die größer sind als Stichtag und nicht ausgefüllt sind
  

Ziemlich Kompliziert... hoffe ihr könnt helfen  :19:

[Bamberg]

Servus,

hab' Deine Mappe mal um das VBA Script ergänzt und die Function (UDF) um einen weiteren Parameter.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
8	ID	Leere "Date" Zellen bis	Gefüllte "Date" Zellen bis	Gefüllte "Date" Zellen nach	Leere "Date" Zellen nach
9		20.08.2017	20.08.2017	20.08.2017	20.08.2017
10	123	3	11	1	2

Zelle	Formel
B10	=AnzahlLeereZellenXXL((I10;O10;U10;AA10;AG10;AM10;AS10;AY10;BE10;BK10;BQ10;BW10;CC10;CI10;CO10;CU10;DA10);WAHR;B$9;FALSCH)
C10	=AnzahlLeereZellenXXL((I10;O10;U10;AA10;AG10;AM10;AS10;AY10;BE10;BK10;BQ10;BW10;CC10;CI10;CO10;CU10;DA10);FALSCH;C$9;FALSCH)
D10	=AnzahlLeereZellenXXL((I10;O10;U10;AA10;AG10;AM10;AS10;AY10;BE10;BK10;BQ10;BW10;CC10;CI10;CO10;CU10;DA10);FALSCH;D$9;WAHR)
E10	=AnzahlLeereZellenXXL((I10;O10;U10;AA10;AG10;AM10;AS10;AY10;BE10;BK10;BQ10;BW10;CC10;CI10;CO10;CU10;DA10);WAHR;E$9;WAHR)

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

Schau Dir mal das Ergebnis an, ob so ok.

LG Gerd

[diving_excel]

Wow! Jaaa das ist genau das was ich wollte!! Vielen Dank an alle die geholfen haben!

Ihr scheint euch mit VBA sehr gut auszukennen, hättet ihr nen Tip für mich mit welchem Buch /programm /etc.. ich anfangen könnte VBA zu lernen? Scheint ja mega nützlich zu sein und ihr habt mit dieser Funktion mein Interesse geweckt ::D


Nochmal Danke!

[Bamberg]

Hallo Diving,

um sich als "Neuer" mit dem Thema VBA zu befassen, finde ich diese Seite hier ganz nett: VBA Tutorial
Es gibt aber auch ein Wikibook zum Thema!

LG Gerd

[diving_excel]

danke, werd mich mal damit beschäftigen!

[neopa]

danke, werd mich mal damit beschäftigen!

Hallo,

... das könnte schon eine Weile länger dauern ;-)

Zwischenzeitlich hätte ich eine reine Formellösung als Alternative anzubieten.
Im Prinzip ist das immer die gleiche Formel mit Excelstandardfunktionen  für die 4 Aufgaben, nur dass eben die Bedingungen andere Vergleichsoperatoren erfordern (in den Formeln ändern sich genau max 2 Zeichen; und durch eine weitere Änderung eines Zeichens könntest Du sogar die dazugehörigen "x"-Zellen und Leerzellen für "AA"- "EE" zählen ...)

Alle 4 Formeln lassen sich nach unten kopieren.

	A	B	C	D	E
8	ID	20.08.2017	20.08.2017	20.08.2017	20.08.2017
9	123	3	11	1	2
10	456	8	6	1	2

Formeln der Tabelle

Zelle Formel B9 =SUMME(INDEX((I10:DF10="")*(I$9:DF$9="Date")*(SPALTE(I10:DF10)<AGGREGAT(14;6;SPALTE(I10:DF10)/(I10:DF10<=B$8)/(I10:DF10<>"");1)+1);)) C9 =SUMME(INDEX((I10:DF10<>"")*(I$9:DF$9="Date")*(SPALTE(I10:DF10)<AGGREGAT(14;6;SPALTE(I10:DF10)/(I10:DF10<=B$8)/(I10:DF10<>"");1)+1);)) D9 =SUMME(INDEX((I10:DF10<>"")*(I$9:DF$9="Date")*(SPALTE(I10:DF10)>AGGREGAT(14;6;SPALTE(I10:DF10)/(I10:DF10<=B$8)/(I10:DF10<>"");1)+1);)) E9 =SUMME(INDEX((I10:DF10="")*(I$9:DF$9="Date")*(SPALTE(I10:DF10)>AGGREGAT(14;6;SPALTE(I10:DF10)/(I10:DF10<=B$8)/(I10:DF10<>"");1)+1);))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

[AnneWaterkant]

Das könnte man für ältere Versionen auch so machen (hoffentlich haben wir alle noch die gleiche Vorlage):

B10: {=(MIN(WENN((B$1<I10:DF10)*ISTZAHL(I10:DF10);SPALTE(I10:DF10)-6))-3)/6-C10}
C10: {=ANZAHL(I10:INDEX(10:10;MIN(WENN((B$1<I10:DF10)*ISTZAHL(I10:DF10);SPALTE(I10:DF10)-1))))}
D10: {=ANZAHL(INDEX(10:10;MIN(WENN((B$1<I10:DF10)*ISTZAHL(I10:DF10);SPALTE(I10:DF10)-1))+1):DF10)}
E10: =17-SUMME(B10:D10)

Statt 17 natürlich richtig, falls man erweitern möchte: SPALTEN(I10:DF10)/6

In http://www.clever-excel-forum.de/thread-...#pid100478 wird ziemlich kleine Schrift verwendet ;) Gefällt mir! Thumbs up!

[RPP63]

[off topic]
Zu Deinem letzten Satz, "Anne" ;)

Wir sitzen ja mit Gerd alias Bamberg "an der Quelle".
Es wäre ein nice to have, tatsächlich ein wenig an der Schriftgröße zu schrauben.
Ein weiterer Wunsch wäre, die Debug.Prints aus dem Code zu entfernen.
Gerne auch das Makro oder die UDF "Test" zu deaktivieren.
Im MOF hat (ich glaube) McSanta ein CSS entwickelt, was "augenfreundlicher" ist.
Leider stellt er es auch auf Nachfrage nicht zur Verfügung.

Wäre schön!

Gruß Ralf

[Bamberg]

Servus Ralf,

neue Version ist in Arbeit und wird bald veröffentlicht :)

LG Gerd

[AnneWaterkant]

Ich kann McSanta verstehen, da er es als seine persönlich-angepasste Note empfindet, die ihn von anderen unterscheidet.

Genausowenig teilt lupo sein CODETab, weil es gar nicht fertig existiert. Er muss es immer manuell zu Ende stellen. Der Arme. Aber Gerd Bamberg hat wohl eine ähnliche Textausgabe auf lupo's Frage hin aufgenommen, so dass es eigentlich auch in Nicht-Html-Foren verwendbar sein sollte - unlike Jeanie-Ziplies.