Supportnet / Forum / Tabellenkalkulation

Hallo, wie lange ist die Serie ? Wie kann ich das immer aktuell haben ? Ein Beispiel: Ich habe zwei Spalten, die Spalte A beinhaltet einfach immer nur das Datum, fortlaufend. Die Spalte B enthält den täglichen Gewinn oder Verlust, auch fortlaufend. Jetzt soll Excel mir die Serien an Gewinn- & Verlustreichesten Tage die Aufeinander folgen zählen.Und dies auch täglich neu berechnen. Dafür gibt es auch eine feste Zelle. Versteht mich jemand ? Vielen Dank vorab. Gruß Toni

Hallo Toni,

warum gibt es da eine feste Zelle?
2 gewinn
3 Verlust
7 Gewin
1 Verlust
2 Gewinn

Das sind 4 unterschiedliche Daten. Was soll jetzt in der einen Zelle stehen?

Gruß Hajo

Hallo Hajo,

z.b.

01.01.08 +54
02.01.08 +60
03.01.08 +120
04.01.08 +100
05.01.08 -40
06.01.08 +50
07.01.08 -100
08.01.08 -75
09.01.08 -80
10.01.08 +100
11.01.08 +45

Entschuldige ich habe mich falsch ausgedrückt. Ich habe jetzt eine Zelle für die aufeinanderfolgenden Gewinntage z.B. diese Zelle ist D1 hier müsste jetzt stehen 4, da ich an 4 Tagen in folge gewinn gemacht habe bis ein negativer Tag kam. In der Zelle E1 müsste jetzt 2 stehen für die anzahl von fortlaufenden negativen Tagen. Wenn jetzt in naher zukunft ich es z.B. schaffe 6 aufeinaderfolgende Tage mit Gewinn zuhaben, das Excel dies dann in Zelle D1 aktuellisiert.

Jetzt besser erklärt ?

Danke schonmal vorab

Gruß
Toni

Hallo Toni,

im Anhang findest Du ein Beispiel mit Hilfsspalte.

Formel für Hilfsspalte in C2

=WENN(B2>0;VERGLEICH(WAHR;B2:$B$100<0;0)-1;-VERGLEICH(WAHR;B2:$B$100>0;0)+1)

Formel für Anzahl+ in D2

=MAX(WENN(ISTZAHL(C2:C100);C2:C100))

Formel für Anzahl- in E2

=ABS(MIN(WENN(ISTZAHL(C2:C100);C2:C100)))

Alle Formeln sind Matrixformeln deren Eingabe mit Strg+Shift+Enter abgeschlossen werden muss.



http://www.netupload.de/detail.php?img=d74a70c9a7ca583afc5989ab1b39...

Gruß
Rainer

Klasse, vielen Dank. :-)

Hallo Rainer,

kannst du mir auch sagen, wie ich folgende 2 Probleme auch noch beseitigt bekomme. Habe schon einiges probiert aber komme nicht dahinter :-(

Wie bekomme ich diese "Serien" für die Woche hin ? Die Woche wäre hier in dem beispiel Spalte C die aber imme nur alle 7 Tage erscheint ?

A B C
01.01.08 +54
02.01.08 +60
03.01.08 +120
04.01.08 +100
05.01.08 -40
06.01.08 +50
07.01.08 -100 // +244
08.01.08 -75
09.01.08 -80
10.01.08 +100
11.01.08 +45
12.01.08 -40
13.01.08 +90
14.01.08 +110 // +150

Mein anderes Problem ist folgendes. Wenn ich einen Tag mit genau 0 abschliesse ist die Serie für mich damit beendet. Hier wird die 0 aber noch zu der aktuellen Serie dazu gezählt. Kann ich das irgendwie abändern ? Und wenn ich z.B. in Urlaub fahre für 2 Wochen habe ich zwar ein schöne Serie aber nicht wirklich die Wahrheit ;-)

Vielen dank vorab für deine Hilfe.

Gruss
Toni

Hallo Toni,

habe die Formeln angepasst.

Teste mal selbst, ob alles passt.


http://www.netupload.de/detail.php?img=abdefb9b5e763f55d214c5704983...

Gruß
Rainer

Hallo Rainer,

ich habe Dir jetzt meine Fragen direkt in Exceltabelle geschrieben.

Ich hoffe der Link funktioniert , ich wusste nicht welchen ich nehmen musste & habe jetzt einfach mal alle drei reingesetzt.

http://www.netupload.de/detail.php?img=6a8849aaaca461321e7424dd2c7fde54.xls

http://www.netupload.de/detail.php?img=6a8849aaaca461321e7424dd2c7fde54.xls

[URL=http://www.netupload.de/detail.php?img=6a8849aaaca461321e7424dd2c7fde54.xls] [IMG]http://www.netupload.de/img.php/6a8849aaaca461321e7424dd2c7fde54.xls[/IMG][/URL]


Danke Dir schon mal wieder vorab :-)

Gruss
Toni

^{*Threadedit* 14:10:41
Admininfo: Achte bei Links bitte auf unsere Formatierungshilfe oder nutze das SNTool}

Hallo Toni,

das vermeintlich falsche Ergebnis in D2 ist kein Fehler, sondern war von Dir so gewollt.



Wenn Du es nicht so gemeint hast, dann ändere die Formel so:

{=WENN(B2>=0;VERGLEICH(WAHR;B2:$B$101<=0;0)-1;-VERGLEICH(WAHR;B2:$B$101>0;0)+1)}

Beim Zählen der Wochenserien, kann ich Dir nicht helfen, das wird etwas komplizierter.
Leider fehlt mir im Moment die Zeit zu solchen Überlegungen.

Gruß
Rainer

Stimmt, du hast recht :-( Sorry.

Aber trotzdem danke, er zählt jetzt genau so wie ich es will :-)


Gruss
Toni

Hallo Toni,

anbei eine Auswertung per Makro.
Kann man sicher eleganter machen, aber funktioniert (zumindest bei meinen bisherigen Tests)

Option Explicit

Private Sub CommandButton1_Click()
   Dim rngC As Range, rngBerT As Range, rngBerW As Range, rngHilfe As Range
   Dim lngPlus As Long, lngMinus As Long
   Set rngBerT = Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
   Set rngBerW = Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
   lngPlus = 1
   lngMinus = 1
   For Each rngC In rngBerT
      Select Case rngC.Value
         Case Is > 0
            If rngC.Offset(1, 0).Value > 0 Then
               lngPlus = lngPlus + 1
            Else
               Cells(rngC.Row, 254).Value = lngPlus
               lngPlus = 1
            End If
         Case Is < 0
            If rngC.Offset(1, 0).Value < 0 Then
               lngMinus = lngMinus + 1
            Else
               Cells(rngC.Row, 254).Value = -lngMinus
               lngMinus = 1
            End If
      End Select
   Next
   For Each rngC In rngBerW
      If rngC.Value <> 0 Then
         Cells(Cells(Rows.Count, 255).End(xlUp).Row + 1, 255).Value = rngC.Value
      End If
   Next
   Set rngHilfe = Range("IU2:IU" & Cells(Rows.Count, 255).End(xlUp).Row)
   For Each rngC In rngHilfe
      Select Case rngC.Value
         Case Is > 0
            If rngC.Offset(1, 0).Value > 0 Then
               lngPlus = lngPlus + 1
            Else
               Cells(rngC.Row, 256).Value = lngPlus
               lngPlus = 1
            End If
         Case Is < 0
            If rngC.Offset(1, 0).Value < 0 Then
               lngMinus = lngMinus + 1
            Else
               Cells(rngC.Row, 256).Value = -lngMinus
               lngMinus = 1
            End If
      End Select
   Next
   Cells(2, 4).Value = WorksheetFunction.Max(Range("IT:IT"))
   Cells(2, 5).Value = Abs(WorksheetFunction.Min(Range("IT:IT")))
   Cells(2, 6).Value = WorksheetFunction.Max(Range("IV:IV"))
   Cells(2, 7).Value = Abs(WorksheetFunction.Min(Range("IV:IV")))
   Range("IT:IV").ClearContents
End Sub

http://www.netupload.de/detail.php?img=e7c8b4db4c73e9c983dc84feff6d...

Gruß
Rainer

Hallo Rainer,

vielen Dank für das Makro. Es funktioniert auch :-)

Aber, wie bekomme ich so einen Button in das Excelblatt ?
Wenn ich über "Anpassen" und dann Makros gehe bekomme ich nicht zu gewiesen. Kann ich so einen Button auch aus dem Visual-Basic aus zuweisen ? Und wie mache ich das ?

Vielen Danke vorab.

Gruss
Toni

Hallo Toni,

aktiviere die Symbolleiste "Steuerelement-Toolbox", klicke auf "Befehlsschaltfläche" und ziehe sie ins Blatt.

Gruß
Rainer

• Periodisches Anlegen einer Kopie von einer Exceldatei
• Datenbank Statistik
• Statistik erstellen!
• Statistik bezogen auf mehrere Zellen unterschiedlicher Tabellenblätter
• Eine Grundtabelle soll mehrere Tabellen auswerten und neue Tabellen autom. erkennen und zuordnen