Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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  

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige