SWOT Diagramm mit Excel

TheWombat_fd374f · 6. April 2007 um 17:10

Hallo,

ist es möglich mit Excel ein „SWOT“ Diagramm zu zeichnen.

Es sind verschiedene Merkale vorhanden, die im Diagramm untereinander stehen. Jedem Merkmal ist eine Bewertung zwischen 1 und 4 zugeordnet.
Das Diagramm soll in etwas so aussehen:

http://www.ebz-beratungszentrum.de/Organisastionssei…

Kann Excel sowas? Wenn ja, wie?

Grüße,
Sebastian

Reinhard_fb8cb7 · 6. April 2007 um 21:00

ist es möglich mit Excel ein „SWOT“ Diagramm zu zeichnen.
Es sind verschiedene Merkale vorhanden, die im Diagramm
untereinander stehen. Jedem Merkmal ist eine Bewertung
zwischen 1 und 4 zugeordnet.
Kann Excel sowas? Wenn ja, wie?

Hi Sebastian,
so wie ich das Diagramm deute, haben die Soll-Werte die Schulnoten
1 für Wareneingang, 4 für Lager, 2 für Fertigung, 3 für Montage usw.
Habe ich das richtig verstanden und existieren die Noten 5 und 6 nicht, da du von 4 Bewertungen sprichst?
Gruß
Reinhard

Niclaus_Wurthberg · 6. April 2007 um 21:44

Hallo Sebastian
So perfekt, wie es in Deinem Beispiel ausschaut, kann man es im „normalen“ Excel leider nicht machen. Es gibt Excel-Vorlagen zu kaufen. Ich kenne sie allerdings nicht.
Ich mache es jeweils etwas weniger perfekt mit Diagrammtyp „Punkt (XY)“ mit dem Untertyp „Punkte mit Linien“. Voraussetzung dafür ist: Die Y müssen als Zahlen definiert werden (Versand = 5; Montage = 15 usw.). Ebenso die X-Werte: von gut = 0.5 bis schlecht = 5.5.
Weiter müssen unter Datenquelle im Register Reihe die x- und y-Werte für Ist-Werte und für Soll-Werte anders zugeordnet werden.
Dann zum Formatieren der Achsen: Ich wähle jeweils: „Ohne Teilstrichbeschriftung“. Statt dessen füge ich Textfelder mit den Positionen Versand, Montage usw. sowie gut und schlecht ein. - Das ist etwas mühsam und, wie gesagt, nicht sehr professionell.
Am einfachsten wäre es ja mit einem Linien-Diagramm, wenn man es um 90° drehen könnte. Aber das kann man, soviel ich weiss nicht, ausser man legt das Diagramm als Graphik ab und dreht dann diese. Aber das ist ja nicht das Gelbe vom Ei.
Ich hoffe, meine Angaben sind klar genug, sonst schicke ich Dir gern eine xls-Datei.
Grüsse Niclaus

Reinhard_fb8cb7 · 8. April 2007 um 22:24

Hallo Sebastian
So perfekt, wie es in Deinem Beispiel ausschaut, kann man es
im „normalen“ Excel leider nicht machen. Es gibt
Excel-Vorlagen zu kaufen. Ich kenne sie allerdings nicht.
Ich mache es jeweils etwas weniger perfekt mit Diagrammtyp

Hallo Niclaus,
was ist daran „perfekt“, genauer, was sieht bei dir warum unpräziser aus?
Wäre meine Nachfrage an Sebastian so beantwortet wie ich das Swot verstanden habe, wäre die Lösung schon fertig, also ein Diagramm das so ausssieht wie in dem Link.
Ist Swot anderst gedacht als meine Nachfrage, naja, muß man schauen wie man es löst.
Gruß
Reinhard

Reinhard_fb8cb7 · 9. April 2007 um 15:12

So perfekt, wie es in Deinem Beispiel ausschaut, kann man es
im „normalen“ Excel leider nicht machen. Es gibt

Hallo Niclaus,
Makro1 wäre m.E. unperfekt, Makro2 schon in die Richtung perfekter, wobei noch ein, zwei Codezeilen fehlen
(Mir schleierhaft, warum evtl. bestehende Shapes nicht korrekt gelöscht werden und man für korrekte Anzeige der Löschung die wait-Anweisung braucht).
Gruß
Reinhard

Sub Makro1()
 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 208.5, 44.25, 328.5, 169.5). \_
 Select
 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 243#, 73.5, 258.75, 104.25). \_
 Select
 ActiveSheet.Shapes.AddLine(276#, 76.5, 279#, 182.25).Select
 ActiveSheet.Shapes.AddLine(319.5, 75.75, 319.5, 177.75).Select
 ActiveSheet.Shapes.AddLine(363.75, 76.5, 367.5, 177.75).Select
 Selection.ShapeRange.Flip msoFlipHorizontal
 ActiveSheet.Shapes.AddLine(411.75, 77.25, 414.75, 173.25).Select
 Selection.ShapeRange.Flip msoFlipHorizontal
 ActiveSheet.Shapes.AddLine(455.25, 78#, 461.25, 181.5).Select
 Selection.ShapeRange.Flip msoFlipHorizontal
 ActiveSheet.Shapes.AddLine(243.75, 106.5, 494.25, 111#).Select
 ActiveSheet.Shapes.AddLine(244.5, 135#, 506.25, 138.75).Select
 ActiveSheet.Shapes.AddLine(244.5, 158.25, 501.75, 159#).Select
 Selection.ShapeRange.Flip msoFlipVertical
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 214.5, 84.75, \_
 27#, 17.25).Select
 Selection.Characters.Text = "Betragen"
 With Selection.Characters(Start:=1, Length:=8).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 Range("C12").Select
 ActiveSheet.Shapes("Rectangle 1").Select
 Selection.ShapeRange.ScaleWidth 1.15, msoFalse, msoScaleFromBottomRight
 ActiveSheet.Shapes("Text Box 11").Select
 Selection.Characters.Text = "Betragen"
 With Selection.Characters(Start:=1, Length:=8).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 Selection.ShapeRange.ScaleWidth 2.53, msoFalse, msoScaleFromBottomRight
 ActiveSheet.Shapes("Rectangle 1").Select
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 172.5, 118.5, \_
 69#, 17.25).Select
 Selection.Characters.Text = "Aufpassen"
 With Selection.Characters(Start:=1, Length:=9).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes("Rectangle 1").Select
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 173.25, 147#, \_
 65.25, 16.5).Select
 Selection.Characters.Text = "Fleiß"
 With Selection.Characters(Start:=1, Length:=5).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes("Rectangle 1").Select
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 173.25, 174#, \_
 63.75, 15.75).Select
 Selection.Characters.Text = "Kapieren"
 With Selection.Characters(Start:=1, Length:=8).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes("Rectangle 1").Select
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 251.25, 60#, \_
 24#, 12.75).Select
 Selection.Characters.Text = "1"
 With Selection.Characters(Start:=1, Length:=1).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 288#, 60#, \_
 30#, 15#).Select
 Selection.Characters.Text = "2"
 With Selection.Characters(Start:=1, Length:=1).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 335.25, 62.25, \_
 33.75, 11.25).Select
 Selection.Characters.Text = "3"
 With Selection.Characters(Start:=1, Length:=1).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes("Rectangle 1").Select
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 382.5, 63#, \_
 32.25, 12#).Select
 Selection.Characters.Text = "4"
 With Selection.Characters(Start:=1, Length:=1).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 428.25, 60#, \_
 33.75, 13.5).Select
 Selection.Characters.Text = "5"
 With Selection.Characters(Start:=1, Length:=1).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 471.75, 60#, \_
 29.25, 12#).Select
 Selection.Characters.Text = "6"
 With Selection.Characters(Start:=1, Length:=1).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes("Rectangle 1").Select
 Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromBottomRight
 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 300#, 33#, \_
 88.5, 20.25).Select
 Selection.Characters.Text = "swot"
 With Selection.Characters(Start:=1, Length:=4).Font
 .Name = "Arial"
 .FontStyle = "Standard"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
 ActiveSheet.Shapes.AddLine(261.75, 86.25, 347.25, 126#).Select
 ActiveSheet.Shapes.AddLine(297#, 126#, 346.5, 147#).Select
 Selection.ShapeRange.Flip msoFlipHorizontal
 ActiveSheet.Shapes.AddLine(297#, 147.75, 341.25, 174#).Select
 ActiveSheet.Shapes.AddLine(261#, 88.5, 299.25, 124.5).Select
 Selection.ShapeRange.Flip msoFlipHorizontal
 ActiveSheet.Shapes.AddLine(260.25, 124.5, 297#, 153#).Select
 ActiveSheet.Shapes.AddLine(263.25, 154.5, 297#, 168.75).Select
 Selection.ShapeRange.Flip msoFlipHorizontal
 Range("A1").Select
End Sub






Sub Makro2()
Dim S As Shape, FlaecheX1, FlaecheY1, FlaecheX, FlaecheY
Dim DiagX1, DiagY1, DiagX, DiagY, x, y, n
FlaecheX1 = 200 'X-Pos
FlaecheY1 = 20 'Y-Pos
FlaecheX = 400 'Breite
FlaecheY = 300 'Höhe
DiagX1 = FlaecheX1 + 50
DiagY1 = FlaecheY1 + 50
DiagX = FlaecheX - 100
DiagY = FlaecheY - 100
Application.ScreenUpdating = True
For Each S In ActiveSheet.Shapes
 If (S.Name Like "Button\*" True) Then S.Delete
Next S
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1) 'msgbox zu schnell oder delete und doevents zu langsam
MsgBox "Alle Striche wech, naja theoretisch :smile:"
With ActiveSheet
 ActiveSheet.Shapes.AddShape(msoShapeRectangle, FlaecheX1, FlaecheY1, FlaecheX, FlaecheY). \_
 Select
 .Shapes.AddShape(msoShapeRectangle, DiagX1, DiagY1, DiagX, DiagY).Select
 '.Shapes("Rectangle 12")
 For n = 50 To 150 Step 50
 .Shapes.AddLine(DiagX1, DiagY1 + n, DiagX1 + DiagX, DiagY1 + n).Select
 Next n
 For n = 50 To 250 Step 50
 .Shapes.AddLine(DiagX1 + n, DiagY1, DiagX1 + n, DiagY1 + DiagY).Select
 Next n
End With
Range("a1").Select
End Sub

Gunnar_J_rgensen · 20. April 2007 um 11:46

Hallo Sebastian,

probiere doch einmal folgendes (natürlich ohne die Bindestriche):

Kriterium Note Hilfslinie
------- A – 1 ------ 0,1
------- B – 5 ------ 0,1
------- C – 3 ------ 0,1
------- D – 4 ------ 0,1
------- E – 4 ------ 0,1
------- F – 2 ------ 0,1

Diagrammtyp: Balken senkrecht
Formatierung Datenreihe 1 (Note): kein Rahmen und keine Füllung
Formatierung Datenreihe 2 (Hilfslinie): Verbindungslinien ankreuzen
Wenn Du jetzt noch ein wenig an den Formatierungen bastelst (z.B. Verbindungslinien dicker machen, schwarze Farbe), sieht es schon recht ähnlich aus.

Gruß

Gunnar