Hi,
meine erste Frage hat sich erledigt. Wie kann ich bei meinen angehängten Code, die Zeilen/Spalten individuel vertauschen, weil bei dem einen sieht es wunderbar aus und bei dem Nächsten passen diese wiederrum nicht zusammen. Wäre wirklich sehr nett von euch, wenn ihr mir einen Tipp geben könntet.
Gruß
Marco
Dim cht As Chart
Dim bytType As Byte

Set cht = ActiveSheet.ChartObjects(1).Chart

bytType = Application.InputBox _
("Bitte wählen sie zwischen:" & vbCrLf & _
"1 für Säulendiagramm" & vbCrLf & _
"2 für Balkendiagramm" & vbCrLf & _
"3 für Liniendiagramm" & vbCrLf & _
"4 für Flächendiagramm", _
Default:="1", Title:="Diagrammtyp", Type:=1)
If bytType = False Then
Exit Sub
ElseIf bytType 4 Then
MsgBox "Falsche Eingabe"
End If

If bytType = 1 Then
cht.ChartType = xlColumnClustered
ElseIf bytType = 2 Then
cht.ChartType = xlPie
ElseIf bytType = 3 Then
cht.ChartType = xlPie
ElseIf bytType = 4 Then
cht.ChartType = xlAreaStacked
End If
Set cht = Nothing
Application.ScreenUpdating = True