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