VBAE die zweite

Forumthread: VBAE die zweite

VBAE die zweite

16.03.2007 14:39:00

Horst

Hallo,
danke für die bisherige Rückmeldung. Das Problem bei dem vorgeschlagenen Ansatz ist fogendes:
Die dargestellte Sequenz ist Teil einer größeren Zeitreihe. Sofern in der ersten Spalte 0 steht, sollte in der 3. Spalte auch 0 stehen. Das Problem ist der Sequenzwechsel. Am besten wäre glaub' ich eine do ... while Schleife zu programmieren.
0 0 0
0 -1 0
0 0 0
1 0 1
1 0 1
1 0 1
1 0 1
0 0 1
0 -1 1
1 0 1
0 0 1
0 0 1
0 -1 1
0 -1 0
0 0 0
0 -1 0
0 -1 0
Nochmal das Problem:
Die ersten beiden Spalten stellen den Input, die dritte Spalte den gewünschten Output dar. Es geht darum, dass der Output 1 sein soll, sobald in der ersten Spalte eine 1 (Startsignal) steht und solange bis in der zweiten Spalte eine -1 (Stoppsignal) steht.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBAE die zweite

16.03.2007 15:39:15

Peter
AW: VBAE die zweite

16.03.2007 15:41:00

gerwas
AW: VBAE die zweite

16.03.2007 16:33:00

Erich
Problem gelöst!

16.03.2007 20:53:00

Horst

AW: VBAE die zweite

16.03.2007 15:39:15

Peter

Hallo Horst,
versuch es einmal so:

Option Explicit
'
'   Die ersten beiden Spalten stellen den Input, die dritte Spalte den
'   gewünschten Output dar.
'   Es geht darum, dass der Output 1 sein soll, sobald in der ersten Spalte
'   eine 1 (Startsignal) steht und solange bis in der zweiten Spalte eine -1
'   (Stoppsignal) steht.
'
Public Sub Spalte_generieren()
Dim lZeile     As Long
Dim iKennzahl  As Integer
   For lZeile = 1 To Range("A65536").End(xlUp).Row
      If Range("A" & lZeile).Value = 1 Then
         iKennzahl = 1
      End If
      If Range("B" & lZeile).Value <> -1 Then
         Range("C" & lZeile).Value = iKennzahl
       Else
         Range("C" & lZeile).Value = iKennzahl
         iKennzahl = 0
      End If
   Next lZeile
End Sub

Gruß Peter

AW: VBAE die zweite

16.03.2007 15:41:00

gerwas

Hallo Horst
versuchs doch mal hiermit:


Sub sequenz()
Start = False
Stopp = False
k = 1
While Cells(k, 1)  ""
If Cells(k, 1) = 1 And Not Stopp Then Start = True
If Start Then
Cells(k, 3) = 1
Else
Cells(k, 3) = 0
Stopp = False
End If
If Cells(k, 2) = -1 Then
Start = False
Stopp = True
End If
k = k + 1
Wend
End Sub

gruss GerWas

AW: VBAE die zweite

16.03.2007 16:33:00

Erich

Hallo Horst,
das geht auch mit einer einfachen Formel (Formel von C2 nach unten kopieren):

	A	B	C
1	0	0	0
2	0	-1	0
3	0	0	0
4	1	0	1
5	1	0	1
6	1	0	1
7	1	0	1
8	0	0	1
9	0	-1	1
10	1	0	1
11	0	0	1
12	0	0	1
13	0	-1	1
14	0	-1	0
15	0	0	0
16	0	-1	0
17	0	-1	0

Formeln der Tabelle

Zelle	Formel
C1	=A1
C2	=WENN(B1=-1;A2;MAX(A2;C1))
C3	=WENN(B2=-1;A3;MAX(A3;C2))

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

Problem gelöst!

16.03.2007 20:53:00

Horst

Besten Dank für die VBA-Codes und insbesondere auch für die genial einfache Umsetzung mit der Formel. Habt ihr wirklich gut gemacht!

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	0	0	0
2	0	-1	0
3	0	0	0
4	1	0	1
5	1	0	1
6	1	0	1
7	1	0	1
8	0	0	1
9	0	-1	1
10	1	0	1
11	0	0	1
12	0	0	1
13	0	-1	1
14	0	-1	0
15	0	0	0
16	0	-1	0
17	0	-1	0

	A	B	C
1	0	0	0
2	0	-1	0
3	0	0	0
4	1	0	1
5	1	0	1
6	1	0	1
7	1	0	1
8	0	0	1
9	0	-1	1
10	1	0	1
11	0	0	1
12	0	0	1
13	0	-1	1
14	0	-1	0
15	0	0	0
16	0	-1	0
17	0	-1	0

Forumthread: VBAE die zweite

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B	C
1	0	0	0
2	0	-1	0
3	0	0	0
4	1	0	1
5	1	0	1
6	1	0	1
7	1	0	1
8	0	0	1
9	0	-1	1
10	1	0	1
11	0	0	1
12	0	0	1
13	0	-1	1
14	0	-1	0
15	0	0	0
16	0	-1	0
17	0	-1	0