Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Position in Reihe von Zahlen, wo Summe > 0???

Position in Reihe von Zahlen, wo Summe > 0?
23.09.2004 14:31:39
Zahlen,
Hallo an alle!
Ich suche in einer Reihe von Zahlen (linksbeginnend) die Position, an der die Summe aller Zahlen bis dahin größer null wird.
Zum Beispiel:
Index: 1 2 3 4 5 6 7 8 ...
Werte: -9 -4 -2 0 3 4 9 5 ...
Lösung: Index = 7
Kann man dieses Problem überhaupt mit einer einzigen Formel ausdrücken oder bedarf es da schon ein Makro? (Extra Zeilen aufzuwenden, bedarf einer gehörigen Neuorganisation der Sheets, leider!)
Vielen Dank an alle für Eure Lösungsvorschläge
der glenn

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Position in Reihe von Zahlen, wo Summe > 0?
23.09.2004 20:25:58
Zahlen,
Hi Glenn,
hier ein Beispielcode:

Sub Index_ermitteln()
Dim Znr, Spnr As Integer 'Zeilennummer, Spaltennummer
Znr = ActiveCell.Row
Spnr = 1 'wenn Spalte "A" = Index mit dem Wert 1,
'Spalte "B" = Index mit dem Wert 2, u.s.w...
marke1:
If Cells(Znr, Spnr).Value > 0 Then GoTo marke10 Else GoTo marke2
marke2:
Spnr = Spnr + 1
gesamtwert = Cells(Znr, Spnr - 1).Value + Cells(Znr, Spnr).Value
If gesamtwert > 0 Then GoTo marke10 Else GoTo marke3
marke3:
Spnr = Spnr + 1
gesamtwert = gesamtwert + Cells(Znr, Spnr).Value
If gesamtwert > 0 Then GoTo marke10 Else GoTo marke3
marke10:
MsgBox "Der Index hat den Wert " & Spnr, vbInformation, "Index"
Cells(Znr, Spnr).Select
End Sub

Hoffe, es funzt...
Gruss Harry
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige