Clever-Excel-Forum

Hallo Excelperten,

ich habe einen Praktikantenkalender, der in den Zeilen die Wochentage abbildet.

In den Kopfzeilen der Spalten werden die einzelnen Abteilungen aufgeführt.

Für jede Abteilung wird mit vertikal verbundenen Zellen eingetragen, wenn in dieser Abteilung ein Praktikant beschäftigt ist (s. Anlage).

Ich möchte jetzt in einer Hilfsspalte (Spalte D) ermitteln, wie viele Praktikanten an jedem Tag im gesamten Haus sind, indem die Anzahl der verbundenen Spalten, die diese Zeile kreuzen, gezählt wird (Die Spalten haben unterschiedliche Farben).

Hat jemand eine Idee, wie dies umzusetzen ist?

Im Voraus herzlichen Dank

Excelbeginner.

Hallo,

warum einfach, wenn's auch umständlich geht?

Mein Vorschlag: Verbundene Zellen aufheben, in jede Zelle den Namen schreiben/kopieren und mit bedingter Formatierung in Hintergrundfarbe "ausblenden".

Arbeitsblatt mit dem Namen 'Tabelle1'
	C	D	E	F	G	H	I
5		Anzahl	A	B	C	D	Anzahl Prakt.
6
7	01.01.2020	1	Fritz				1
8	02.01.2020	1	Fritz				1
9	03.01.2020	1	Fritz				1
10	04.01.2020	2	Fritz	Max			2
11	05.01.2020	2	Fritz	Max			2
12	06.01.2020	3	Fritz	Max		Moritz	3
13	07.01.2020	2		Max		Moritz	2
14	08.01.2020	2		Max		Moritz	2
15	09.01.2020	2		Max		Moritz	2
16	10.01.2020	1				Moritz	1
17	11.01.2020	1				Moritz	1
18	12.01.2020	1				Moritz	1

Zelle	Formel
I7	=ANZAHL2(E7:H7)

Zelle	bedingte Formatierung...	Format
E7	1: $E7=$E6	abc
F7	1: $F7=$F6	abc
H7	1: $H7=$H6	abc

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

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

Hallo Günther,

vielen Dank für Deinen Hinweis.

Allerdings werden die Praktikanten in die Spalten zusammen mit anderen Informationen in Form von verbundenen Zellen eingetragen (s. Anlage). Und da haut das mit Anzahl2 nicht hin.

Excelbeginner

Hi,

nochmals: verbundene Zellen sind M*st. Dazu etwas Lesestoff: https://www.clever-excel-forum.de/Thread...oder-Segen

Getreu meinem Vorschlag müsstest du die zusätzliche Info gleichfalls hinter dem Namen in alle relevanten Zellen kopieren. Dann greift auch wieder ANZAHL2().

Moin

Und wer es trotzdem macht tötet ein süßes Katzchen!

"Every time you merge cells you murder a kitten"
Szilvia Juhasz
Aus https://www.mrexcel.com/excel-tips/17-or...precision/


"Friends don’t let friends merge cells."
Jon Acampora
Aus https://www.mrexcel.com/excel-tips/i-wil...sparkline/


"Friends don’t let friends merge cells."
Tom Urtis
Aus https://www.mrexcel.com/excel-tips/i-use...and-match/

Hallo,

ich kann Eure Flüche gern an die Mitarbeiter, die das so machen, weiterleiten. Es hilft nur nicht.

Gibt es eine Lösung, die das Problem löst?

Vielen Dank

Excelbeginner

Hi,

Zitat:ich kann Eure Flüche gern an die Mitarbeiter, die das so machen, weiterleiten. Es hilft nur nicht.

nun, dann gib auch gleich weiter, dass sie dann eben in altgewohnter Manier weiterarbeiten müssen. Vllt. hilft das; ist nämlich mit Mehrarbeit verbunden. Aber ich weiß, gerade auch in meiner Region gibt's genügend (und zuviel) Sturköpfe, die nach dem Motto

Zitat:Des hond mir allat so gmacht, des macha mir au weiter so.

sich weigern, auch nur einen Milimeter vom Allthergebrachten (und sei es noch so falsch) abzuweichen.


Mir fällt bzgl. deines Problems in Kombination mit den verbundenen Zellen nichts ein.

Hallöchen,

gib Deiner Fritzine mal eine anständige Farbe, dann kann man die farbigen Zellen zählen. Die Datei müsstest Du als xlsb oder xlsm speichern. Bei Änderung müsstest Du allerdings immer F9 drücken, sonst wird nicht neu gezählt.

Arbeitsblatt mit dem Namen 'Tabelle1' C D E F G H I J 5 Anzahl A B C D 6 7 01.01.2020 1 Max, Praktikant männlich 1 8 02.01.2020 1 1 9 03.01.2020 1 1 10 04.01.2020 2 Moritz, Praktikant leistungsgemindert 2 11 05.01.2020 2 2 12 06.01.2020 3 Fritzine, blond 2 13 07.01.2020 2 1 14 08.01.2020 2 1 15 09.01.2020 2 1 16 10.01.2020 1 0 17 11.01.2020 1 0 18 12.01.2020 1 0
Name Bezug Farben_A =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-5)";)) Farben_B =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-4)";)) Farben_C =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-3)";)) Farben_D =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-2)";))	Zelle Formel J7 =(Farben_A>0)+(Farben_B>0)+(Farben_C>0)+(Farben_D>0)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

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

Hallo André,

vielen Dank, hört sich gut an! Werde ich morgen bei der Arbeit mal implementieren.

Kann ich das F9-Problem evtl. durch einen Automatismus umgehen?

Geht evtl. etwas mit MergeCells?

Excelbeginner

Hallo,

so geht es mit einer VBA-Funktion:

' **************************************************************

'  Modul:  Tabelle1  Typ = Element der Mappe(Sheet, Workbook, ...)

' **************************************************************



Option Explicit



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  On Error Resume Next

  Application.EnableEvents = False

  Me.Calculate

  Application.EnableEvents = True

  On Error GoTo 0

End Sub

' **************************************************************

'  Modul:  Modul1  Typ = Allgemeines Modul

' **************************************************************



Option Explicit



Public Function VerbZ(Bereich As Range) As Long

  Dim lngAnz As Long

  Dim rng As Range

  Application.Volatile

  For Each rng In Bereich

    lngAnz = lngAnz - rng.MergeCells

  Next rng

  VerbZ = lngAnz

End Function

	C	D	E	F	G	H
5		Anzahl	A	B	C	D
6
7	01.01.2020	1
8	02.01.2020	1
9	03.01.2020	1
10	04.01.2020	2
11	05.01.2020	2
12	06.01.2020	3
13	07.01.2020	2
14	08.01.2020	2
15	09.01.2020	2
16	10.01.2020	1
17	11.01.2020	1
18	12.01.2020	1

Formeln der Tabelle

Zelle Formel D7 =verbz(E7:H7) D8 =verbz(E8:H8) D9 =verbz(E9:H9) D10 =verbz(E10:H10) D11 =verbz(E11:H11) D12 =verbz(E12:H12) D13 =verbz(E13:H13) D14 =verbz(E14:H14) D15 =verbz(E15:H15) D16 =verbz(E16:H16) D17 =verbz(E17:H17) D18 =verbz(E18:H18)

Gruß Uwe