ich wurde von einem Kumpel auf dieses Forum aufmerksam gemacht. Vielleicht kann mit jemand bei meinen ersten Programmiererfahrungen weiterhelfen, bislang hatte ich nicht viel mit Makros zu tun.
Ich habe diesen Code von einem Arbeitskollegen bekommen.
Sub Exercise()
Dim MyArray(1, 4) As Integer
Dim zaehler As Integer
MyArray(0, 0) = 69
MyArray(0, 1) = 87
MyArray(0, 2) = 130
MyArray(0, 3) = 280
MyArray(0, 4) = 560
MyArray(1, 0) = 1100
MyArray(1, 1) = 990
MyArray(1, 2) = 870
MyArray(1, 3) = 420
MyArray(1, 4) = 120
Set shNeu = Sheets.Add
shNeu.Activate
[A1:B1] = Array("Daten_Ordinate :", "Daten_Abszisse :")
Length = UBound(MyArray(), 2)
For zaehler = 0 To Length
Cells(2 + zaehler, 1).Value = MyArray(0, zaehler)
Cells(2 + zaehler, 2).Value = MyArray(1, zaehler)
Next zaehler
End Sub
Der Code beinhaltet ein Datenfeld welches in ein Tabellenblatt geschrieben werden soll. Aus dieser Tabelle wird ein Diagramm generiert.
Mit dem Code erzeuge ich folgendes Bild:
Ich möchte aber gerne folgendes Bild erzeugen. Die grauen Zeilen sollen eingefügt werden.
Lässt sich soetwas "einfach" umsetzen?
Grüße,
Martin