WENN "x" dann Verbinden

Forumthread: WENN "x" dann Verbinden

11.07.2006 20:26:12

Heinz

Hallo Leute
Ich möchte ein Art Diagramm erstellen.
Wenn Zb.in B19 ein "x" und in C9 ist ein "x" das dann mittels Strich verbunden werden.
Ist das möglich ?
Gruss, Heinz

Verlauf

	B	C
8
9		x
10
11
12
13
14
15
16
17
18
19	x

Formeln der Tabelle

B8 : =WENN(B$27=$A8;"x";"")
C8 : =WENN(C$27=$A8;"x";"")
B9 : =WENN(B$27=$A9;"x";"")
C9 : =WENN(C$27=$A9;"x";"")
B10 : =WENN(B$27=$A10;"x";"")
C10 : =WENN(C$27=$A10;"x";"")
B11 : =WENN(B$27=$A11;"x";"")
C11 : =WENN(C$27=$A11;"x";"")
B12 : =WENN(B$27=$A12;"x";"")
C12 : =WENN(C$27=$A12;"x";"")
B13 : =WENN(B$27=$A13;"x";"")
C13 : =WENN(C$27=$A13;"x";"")
B14 : =WENN(B$27=$A14;"x";"")
C14 : =WENN(C$27=$A14;"x";"")
B15 : =WENN(B$27=$A15;"x";"")
C15 : =WENN(C$27=$A15;"x";"")
B16 : =WENN(B$27=$A16;"x";"")
C16 : =WENN(C$27=$A16;"x";"")
B17 : =WENN(B$27=$A17;"x";"")
C17 : =WENN(C$27=$A17;"x";"")
B18 : =WENN(B$27=$A18;"x";"")
C18 : =WENN(C$27=$A18;"x";"")
B19 : =WENN(B$27=$A19;"x";"")
C19 : =WENN(C$27=$A19;"x";"")

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: WENN "x" dann Verbinden

11.07.2006 21:50:36

Herbert
AW: WENN "x" dann Verbinden

12.07.2006 09:55:42

Heinz
AW: WENN "x" dann Verbinden

13.07.2006 08:05:55

Heinz
AW: WENN "x" dann Verbinden

13.07.2006 08:26:57

Mustafa
AW: WENN "x" dann Verbinden

13.07.2006 08:32:13

Heinz

AW: WENN "x" dann Verbinden

11.07.2006 21:50:36

Herbert

hallo Heinz,

Public Sub Linie_zw_c9_und_b19()
Dim l!, t!, l1!, t1!
If [c9] = "x" And [b19] = "x" Then
    With [c9]
        l = .Left + (.Width / 2)
        t = .Top + (.Height / 2)
    End With
    With [b19]
        l1 = .Left + (.Width / 2)
        t1 = .Top + (.Height / 2)
    End With
    With ActiveSheet.Shapes.AddLine(l, t, l1, t1).Line
        .Weight = 2#
        .ForeColor.RGB = RGB(255, 55, 55)
    End With
End If
End Sub

gruß Herbert

AW: WENN "x" dann Verbinden

12.07.2006 09:55:42

Heinz

Hallo Herbert
Recht herzlichen Dank für deine Hilfe.
Gruss, Heinz

AW: WENN "x" dann Verbinden

13.07.2006 08:05:55

Heinz

Hallo Herbert
Ich möchte Deinen Code von B8:AO19 erweitern.
Könntest Du mir Bitte abermals helfen ?
Danke Heinz

Verlauf

	B	C	D	E	F	G	H	I	J	K	L
8	x
9
10
11			x			x
12		x
13										x
14
15				x	x					x
16
17
18											x
19

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

AW: WENN "x" dann Verbinden

13.07.2006 08:26:57

Mustafa

Hallo Heinz,
so geht es, aber leere Zellen werden nicht übersprungen.
Ausprobieren.
Public Sub Linie_zw_c9_und_b19() Dim l!, t!, l1!, t1! Application.ScreenUpdating = False For x = 2 To 40 For y = 9 To 19 For z = 9 To 19 If Cells(y, x) = "x" And Cells(z, x + 1) = "x" Then With Cells(y, x) l = .Left + (.Width / 2) t = .Top + (.Height / 2) End With With Cells(z, x + 1) l1 = .Left + (.Width / 2) t1 = .Top + (.Height / 2) End With With ActiveSheet.Shapes.AddLine(l, t, l1, t1).Line .Weight = 2# .ForeColor.RGB = RGB(255, 55, 55) End With End If Next z Next y Next x Application.ScreenUpdating = True End Sub
Rückmeldung wäre nett.
Viele Grüße aus Köln

AW: WENN "x" dann Verbinden

13.07.2006 08:32:13

Heinz

Hallo Mustafa
Recht herzlichen DANK !!!
Funktioniert SUPER !!!
Gruss, Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: WENN "x" dann Verbinden

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread