Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: WENN "x" dann Verbinden

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
 BC
8  
9 x
10  
11  
12  
13  
14  
15  
16  
17  
18  
19x 
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  
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
 BCDEFGHIJKL
8x          
9           
10           
11  x  x     
12 x         
13         x 
14           
15   xx    x 
16           
17           
18          x
19           
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Anzeige
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
Anzeige
AW: WENN "x" dann Verbinden
13.07.2006 08:32:13
Heinz
Hallo Mustafa
Recht herzlichen DANK !!!
Funktioniert SUPER !!!
Gruss, Heinz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige