Das sollte nicht sehr schwierig sein, aber ich kann nicht herausfinden, wie es geht.
Ich habe einen ähnlichen Tisch
%low %high 0 0 12 1 13 26 ... 19 90 94 20 95 100 Wenn ich es grafisch darstelle, wird in Excel standardmäßig die erste Spalte auf der x-Achse angezeigt und die zweite und dritte Spalte als y-Werte dargestellt. Ich möchte, dass die erste Spalte stattdessen auf der y-Achse liegt. Ich gehe davon aus, dass es einen einfachen Weg gibt, aber ich kann es nicht verstehen. Die meisten Dinge, die ich beim Suchen gefunden habe, haben die Schaltfläche "Zeile / Spalte wechseln" vorgeschlagen, aber das bewirkt noch etwas anderes.
Danke für die Hilfe.
Sie können manuell auswählen, was Sie grafisch darstellen möchten.
Hier sind meine Beispieldaten:
Ich wähle aus, um ein Streudiagramm zu erstellen. Beim Bearbeiten der Datenquelle klicke ich auf die Schaltfläche Hinzufügen.
Sie können auswählen, was Sie für den Seriennamen wünschen, aber ich wähle die Spaltenüberschrift. X-Werte sind natürlich die Werte in Ihrer X-Spalte. Y-Werte sind eine der Y-Spalten.
Wiederholen Sie den Vorgang für den zweiten Datensatz.
Hier ist eine einfache VBA-Routine, die ein XY-Streudiagramm aus Daten erstellt, die mit Y in der ersten Spalte und einem oder mehreren X-Sätzen in nachfolgenden Daten angeordnet sind. Wählen Sie den Datenbereich aus oder wählen Sie eine einzelne Zelle innerhalb dieses Bereichs aus und führen Sie den Code aus.
Sub ChartFromInput_YXX() ' assumes first column of input range has Y values ' assumes subsequent columns have X values ' assumes first row of input range has series Dim rngDataSource As Range Dim iDataRowsCt As Long Dim iDataColsCt As Integer Dim iSrsIx As Integer Dim chtChart As Chart Dim srsNew As Series If Not TypeName(Selection) = "Range" Then '' Doesn't work if no range is selected MsgBox "Please select a data range and try again.", _ vbExclamation, "No Range Selected" Else Set rngDataSource = Selection If rngDataSource.Cells.Count = 1 Then ' expand to data range including active cell Set rngDataSource = rngDataSource.CurrentRegion End If With rngDataSource iDataRowsCt = .Rows.Count iDataColsCt = .Columns.Count End With '' Create the chart Set chtChart = ActiveSheet.Shapes.AddChart.Chart With chtChart .ChartType = xlXYScatterLines '' Remove any series created with the chart Do Until .SeriesCollection.Count = 0 .SeriesCollection(1).Delete Loop For iSrsIx = 1 To iDataColsCt - 1 '' Add each series Set srsNew = .SeriesCollection.NewSeries With srsNew .Name = rngDataSource.Cells(1, 1 + iSrsIx) .Values = rngDataSource.Cells(2, 1) _ .Resize(iDataRowsCt - 1, 1) .XValues = rngDataSource.Cells(2, 1 + iSrsIx) _ .Resize(iDataRowsCt - 1, 1) End With Next End With End If End Sub If you need a repetitive task, the accepted solution might be time consuming. The great Jon Peltier has a simple add-in for this. See his page.
As stated in this other documentation page:
Switch XY Axes
This is a placeholder for the documentation page for Switch XY Axes.
I.e., no documentation is available. Nevertheless, it is really worthwhile trying it. It is really easy to learn.