Wie erstelle ich eine fünfstufige Likert-Skala in Excel?

[rennar90]

Hallo ihr Lieben,

ich würde gerne in meiner Bachelorarbeit diese Grafik mitreinbringen ? Ich sitze hier schon Stunden lang dran und schaffe es einfach nicht, dass sie so aussieht. Die Werte also meine Ergebnisse passen nie mit der Bewertungsleiste zusammen ("überhaupt nicht stressig", Mittelwert"...)

Habt ihr mir einen Tipp?

---

Leider kann ich gerade kein Bild einfügen. Es gibt zu jedem Thema mehrere Items (die Themen links auf der y-Achse)  oben auf der x-Achse würde dann "Überhaupt nicht stressig", Mittelwert und "Stressig" stehen. Und die Ergebniswerte in den Balken der jeweiligen Items.

Hoffe, ich drücke mich einigermaßen gut aus:)

[WillWissen]

Moin,

lad bitte eine Beispieldatei hoch und einen Screenshot deiner Wunschdarstellung. So geht's: https://www.clever-excel-forum.de/Thread...ng-stellen

[Fennek]

Hallo,

hier ein Beispiel, das für eine Frage vor einigen Tagen entstand:

In der xlsm-Datei wird die Skala angelegt und nach der Befragung auch ausgewertet. Die Befragten bekommen eine Kopie als xlsx.

mfg

Code:

Sub Auswertung()
Dim WS As Worksheet: Set WS = ActiveSheet
Dim WB As Workbook
Dim WSZ As Worksheet: Set WSZ = ThisWorkbook.Sheets(1)
Dim Shp As Shape
Dim Grp As GroupShapes
Dim Opt As OptionButton

Pfad = ThisWorkbook.Path & "\"
lr = WSZ.Cells(Rows.Count, 1).End(xlUp).Row

f = Dir(Pfad & "Fragebogen Felix (Wiede*.xlsx")

Do While f <> vbNullString
    lr = lr + 1
    col = 9
    WSZ.Cells(lr, 1) = f
    
    Set WB = GetObject(Pfad & f)
    For sht = 1 To 2
    Set WS = WB.Sheets(sht)
        For Each Shp In WS.Shapes
        'Debug.Print Shp.Top, Shp.TopLeftCell.Address
            
            For i = 1 To Shp.GroupItems.Count
                
                If InStr(1, Shp.GroupItems(i).Name, "Option") > 0 Then
                
                    If Shp.GroupItems(i).ControlFormat.Value = 1 Then
                        WSZ.Cells(lr, col) = i - 1
                        col = col + 1
                    'Debug.Print Shp.TopLeftCell.Offset(, -1), i - 1
                    'Debug.Print i - 1, Shp.TopLeftCell.Address, Shp.GroupItems(i).Name, _
                        Shp.GroupItems(i).ControlFormat.Value
                    End If
                End If
            Next i
        Next Shp
    Next sht
    
    'Freitext
    WSZ.Cells(lr, col) = WB.Sheets(2).Cells(16, 4)
    WSZ.Cells(lr, col + 1) = WB.Sheets(2).Cells(17, 4)
    
    WB.Close 0
f = Dir
Loop
End Sub

[snb]

Oder im Userform: