VBA die dritte

Forumthread: VBA die dritte

VBA die dritte

17.03.2007 12:43:00

Horst

Hallo Excel-Freaks,
folgendes Problem:
0 0 0
1 0.001294499 0.014877674
1 0.007374665 0.014877674
1 0.007466505 0.014877674
1 0.012778845 0.014877674
1 0.021419583 0.014877674
1 0.009118184 0.014877674
1 0.010034607 0.014877674
1 0.018063114 0.014877674
1 0.018244833 0.014877674
1 0.014877674 0.014877674
0 0 0
Die erste Spalte stellt eine Art "Signal" dar, die zweite eine kumulierte Summe und die dritte Spalte den gewünschten Output. Die dritte Spalte soll (bei A=1) jenem Wert der letzten Zelle der zweiten Spalte entsprechen (dort wo in der ersten Spalte die letzte 1 steht, bevor 0 kommt). Die Länge der Abfolge von 0en und 1en ist unregelmäßig, insofern schwer mit Min bzw. Max-Funktionen umzusetzen. Aber vielleicht hat ja irgendwer eine gut Idee dazu.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA die dritte

17.03.2007 13:46:50

Anton
Problem gelöst!

17.03.2007 13:59:11

Horst
geht auch einfacher

17.03.2007 14:11:00

Josef
AW: Formel mit VERGLEICH

17.03.2007 13:59:00

Erich
Thanks!

17.03.2007 14:16:39

Horst

AW: VBA die dritte

17.03.2007 13:46:50

Anton

Hallo Horst,
wenn ich dich richtig verstanden habe:

Option Explicit
Sub n()
Dim gefunden As Boolean
Dim i, k, index1, index2, zahl
On Error Resume Next
gefunden = False
index1 = 1
For i = 1 To ActiveSheet.UsedRange.Rows.Count
index2 = i
zahl = Cells(i, 2).Value
If Cells(i, 1).Value = 0 Then gefunden = True: Cells(i, 3) = 0
If gefunden = True Then
For k = index1 + 1 To index2 - 1
Cells(k, 3).Value = Cells(i - 1, 2).Value
Next
gefunden = False
index1 = i
End If
Next
End Sub

mfg Anton
mfg

Problem gelöst!

17.03.2007 13:59:11

Horst

Hallo Anton,
vielen Dank für deine Hilfe! Ich habe das Problem inzwischen gelöst (mit einer Kombination von WENN() & SVerweis.

geht auch einfacher

17.03.2007 14:11:00

Josef

Hallo Horst,
da reicht eine einfache WENN()-Formel.
Tabelle2

	A	B	C
1	0	0	0
2	1	0.001294499	0.014877674
3	1	0.007374665	0.014877674
4	1	0.007466505	0.014877674
5	1	0.012778845	0.014877674
6	1	0.021419583	0.014877674
7	1	0.009118184	0.014877674
8	1	0.010034607	0.014877674
9	1	0.018063114	0.014877674
10	1	0.018244833	0.014877674
11	1	0.014877674	0.014877674
12	0	0	0
13	0	0	0
14	1	0.007466505	0.021419583
15	1	0.012778845	0.021419583
16	1	0.021419583	0.021419583
17	0	0	0

Formeln der Tabelle

Zelle	Formel
C1	=WENN(A1=0;0;WENN(C2<>0;C2;B1))

Excel Tabellen im Web darstellen Excel Jeanie HTML

Gruß Sepp

AW: Formel mit VERGLEICH

17.03.2007 13:59:00

Erich

Hallo Horst,
vielleicht mit dieser Formel?

	A	B	C
1	0	0	0
2	1	0,001294499	0,014877674
3	1	0,007374665	0,014877674
4	1	0,018244833	0,014877674
5	1	0,014877674	0,014877674
6	0	0	0
7	1	0,789	0,456
8	1	0,456	0,456
9	0	0	0

Formeln der Tabelle

Zelle	Formel
C1	=INDEX(B1:$B$65536;VERGLEICH(0;A1:$A$65536;0)-(INDEX(A1:$A$65536;VERGLEICH(0;A1:$A$65536;0)-1)>0))
C2	=INDEX(B2:$B$65536;VERGLEICH(0;A2:$A$65536;0)-(INDEX(A2:$A$65536;VERGLEICH(0;A2:$A$65536;0)-1)>0))

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Thanks!

17.03.2007 14:16:39

Horst

Besten Dank an alle Mitstreiter! Wirklich toller Service hier im Forum.

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA die dritte

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread