Clever-Excel-Forum

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:) Heart

Moin,

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

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

Oder im Userform:

rennar90

WillWissen

Fennek

snb