Clever-Excel-Forum

Normale Version: Nach 10 Eingaben Wert um 1 erhöhen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo!

Ich stehe vor folgendem Problem und weiß nicht, wie ich es angehen soll.
Ich gebe in Spalte A immer ein Datum ein, beginnend mit der Zelle A2. Nun will ich, dass nach Eingabe in Spalte A nach 10 Eingaben in Spalte A die Spalte F mit einer Zahl +1 befüllt wird. Heißt, ich will, dass in Spalte F2:F11 die Zahl 0 steht und ab F12:F21 1 steht und ab F22:F31 2 steht usw..
Ich hoffe, dass mir jemand weiter helfen kann.

LG
Thomas
Hi,

=KÜRZEN((ZEILE()-2)/10;0)

Wer verwendet denn heute noch *.xls-Dateien? Eine *.xlsm-Datei braucht nur ca. 1/3 des Speicherplatzes.
Hi,

nochmals ich. Leider ist die Zeit zum Bearbeiten meines Posts schon abgelaufen.

Habe mir deine Datei mal näher zu Gemüte geführt.

Zunächst einmal:
Was ergibt wohl DATUM(JAHR($A$2);MONAT($A$2);TAG($A$2))? Könnte es eventuell sein, dass das genau dasselbe ist wie GANZZAHL($A$2)? Und wenn in A2 ein reines Datum ohne Uhrzeit steht, könnte es eventuell nicht sogar dasselbe sein wie $A$2?

Damit vereinfacht sich deine Formel
E2: =WENN(A2="";"";ZÄHLENWENNS(C:C;"x";A:A;">="&DATUM(JAHR($A$2);MONAT($A$2);TAG($A$2));A:A;"<="&DATUM(JAHR($A2);MONAT($A2);TAG($A2)))-ZÄHLENWENNS(C:C;"x";A:A;">="&DATUM(JAHR($A$2);MONAT($A$2);TAG($A$2));A:A;"<"&DATUM(JAHR($A$2);MONAT($A$2);TAG($A$2)+14*F2)))
zu
E2: =WENN(A2="";"";ZÄHLENWENNS(C:C;"x";A:A;">="&$A$2;A:A;"<="&$A2)-ZÄHLENWENNS(C:C;"x";A:A;">="&$A$2;A:A;"<"&$A$2+14*F2))

Allerdings sollte es sich so langsam rumgesprochen haben, dass man nicht in jeder Zeile von neuem anfängt ab der ersten Zeile zu zählen.
Da dein Datum aufsteigend sortiert ist (sein muss, da sonst deine Anfrage mit "nach zehn Zeilen um 1 erhöht" keinen Sinn macht) kann man das ganz anders lösen:
E2: =WENN(A2="";"";WENN(REST(A2-A$2;14)=0;0;E1)+(C2="x"))
Hi,

Das Makro in F ist überflüssig und wäre auch so ausreichend:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or IsEmpty(Cells(Target.Row, 1)) Then Exit Sub
      Cells(Target.Row, 6).Value = 0
End Sub

Um die Homeoffice-Tage innerhalb von 10 Arbeitstagen zu zählen reicht eigentlich das:

Code:
=WENN(REST(ZEILE(A1)-1;10)=9;ZÄHLENWENN(INDEX(C:C;ZEILE(A1)-9):C2;"x");"")

in E2 und nach unten ziehen.
Hallo an euch!

Ich danke euch sehr für eure Lösungen. Beide sind für mich OK und funktionieren.

LG
Thomas
In einer Database ist jede 'Zeile' ein 'Record'.
Dann hat jede Zeile ein unique ID.