Vyzkoušel jsem obě varianty a něco dělám špatně.
Vložil jsem Vaše makro do module, ale nefunguje mi to.
Jen dejte pozor, že je to matice. Ctrl + Shift + Enter
Rád jsem pomohl. 
Tak i verze pomocí vzorce. 
Rádo se stalo.
Myslím, že ano, ale to já neumím.
Je mi líto.
Může to být pomocí Kontingenční tabulky?
Váš problém byl v tom, že na začátku datumu máte mezeru.
Mám to. 
Tak?
Taký, že nemůžu mít ve formuláři vzorce.
Dobrý den,
nevíte někdo jak lze jednoduše využít funkci SVYHLEDAT přes VBA? Když do sloupce C na Listu1 napíšu hodnotu makro najde na Listu2 výsledek a zapíše.
V příloze jsem to zatím nahradil vzorcem.
Pokud Vám jde pouze o hodinu, tak nebylo by jednodušší toto?
=HODNOTA.NA.TEXT(HODNOTA(ČÁST(A1;11;9));"h")
Není za co. Mě tu taky vždycky pomohli dobří a ochotní lidé. Jsem rád, když to můžu předat dál alespoň v podobě maličkosti. 
Řešil bych to jednoduše pomocným sloupcem "C" na listě Směnový kalendář.
Snad to bude stačit.
Třeba takto?
Oblíbený formulář Faktura byl vylepšen a rozšířen.

Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.