Office: Button mit Button aktivieren

Hallo,

ich habe einen Start-button, wenn ich auf diesen Drücke startet eine Simulation von Zahlen die via vba programmiert wurde. Nun möchte ich habe das man diese von der Frontpage der Excel Mappe starten kann. Auch mit einem Button.
Frontpage Tabelle 1 Simulation in Tabelle 4
Man könnte das über Worksheet(Tabelle4).Activate machen und dann den Algorithmus der Simulation einfügen, aber das funktioniert irgendwie nicht.

Weiterhin sollte mit dem Button klick auch eine Tabelle angepasst werden. geht sowas überhaupt mit vba ?
Also wenn da ein Wert Anzahl 0 besitzt nicht in das Diagramm mit eingeht.

Vielen Dank schonmal!

 

Hi,

so richtig verstehe ich dein Problem nicht. Wenn du die Prozedur mit 2 verschiedenen Buttons ausführen möchtest, dann lagere den Code in eine eigene Prozedur aus und rufe diese von beiden Buttons auf.

Damit ein Wert nicht ins Diagramm eingeht darf er entweder nicht vorhanden sein, oder wenn doch, dann kann man stattdessen #NV in die Zelle schreiben oder die Zeile/Spalte ausblenden. Da aber niemand deine Mappe und das Diagramm mit der zugehörigen Datengrundlage und auch nicht deinen Code kennt, kann man nichts genaueres dazu sagen.

---

 

Okay, danke erstmal für die Antwort!

Der Code für die Simulation ist in einem Modul. Ich habe jetzmal aus dem Sub ein Public Sub gemacht. Aber irgendwo her muss excel ja wissen, dass dieser in Tabelle 4 ausgführt wird.

Der Code der Simulation:
Public Sub Simulation()
For Iteration = 1 To Cells(5, 13)
Cells(12 + Iteration, 13) = Cells(32, 5)
Cells(12 + Iteration, 12) = Iteration
Next Iteration
End Sub

Okay, es jetzt hinbekommen, dass alle Werte die 0 sind #NV steht, aber das Diagramm beginnt immer noch bei 0 und nicht bei 5. Die 5 kommt nämlich 1x vor die 4 nur kein mal.
Ich hoffe es wird damit deutlicher.

 

Die Sub muss keine Public Sub sein wenn sie in einem Standardmodul steht.

Um den Code in einem bestimmten Tabellenblatt ausführen zu lassen schreibt man vor jede Bereichs-/Zellangabe den Namen des Blattes - nach diesem Prinzip:

Code:

Worksheets("DeineTabelle").Cells(5, 13)

Damit das Diagramm bei einem bestimmten Wert beginnt muss man per VBA das Minimum der betreffenden Achse entsprechend einstellen.

---

 

okay, das mit dem Button hat jetzt schonmal geklappt. Danke! :)

Kann ich das Diagramm welches ich per Hand erstellt habe mit VBA bearbeiten ?


ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = Worksheets("Tabelle").Range("H2")
.MaximumScale = Worksheets("Tabelle").Range("H3")
End With
Ich will ja auch dass er sich den ersten wert >0 selbst aus der Datentabelle zieht. Das müsste man dann ja bei H2 als weiteren Algorithmus einfügen oder ?

 

Sorry, absolut keine Ahnung was du meinst und da ich deine Mappe bzw. deinen Tabellenaufbau und das Diagramm nicht kenne, kann ich dir leider nichts dazu sagen. Entweder du lädst eine Beispielmappe hoch oder ich kann dir nicht helfen.

Übrigens muss man ein Diagramm nicht aktivieren um es zu bearbeiten:

Code:

With ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlCategory)
    .MinimumScale = Worksheets("Tabelle").Range("H2")
    .MaximumScale = Worksheets("Tabelle").Range("H3")
End With

---

 

Okay, ich veruschs nochmal zu erklären anbei habe ich mal einen Screenshot angefügt wie es aktuell aussieht.
Ich möchte dass sich dieses Diagramm welches man im Screenshot sieht automatisch richtig skalliert. D.h. die vielen Zeilen in denen die Werte mit Anzahl 0 vorkommen (hier mit #NV gekennzeichnet) nicht im Diagramm berücksichtigt werden.

Diese Daten sind jedoch nicht fest, da sie der Output einer Simulation sind, welche sich immer ändert.
Meine Überlegung dazu ist es dass mittels VBA dieses Diagramm gezeichnet wird und es sich automatisch richtig skalliert. Also die Zelle als Startpunkt nimmt ab der die Anzahl nicht mehr 0 ist und das gleiche als Endpunkt. Die Simulation gibt immer eine Normalverteilung aus.
Den die Startpunkt suche könnte man ja wie folgt laufen lassen: Zelle >0 = True then Startpunkt else Zelle +1

Aber 1. wie wird so ein Diagramm gezeichnet
2. kann man das so miteinander verbinden oder brauch man eine extra rechnung?

Vielen Dank !

 

Excel kann kein Bild in eine funktionierende Mappe umwandeln und niemand wird deine Mappe nachbauen, die Zeit hast du bereits investiert. Und an einem Bild lässt sich Code nicht testen.
Dennoch folgender Tipp: laufe in einer Schleife über alle deine Daten und prüfe, ab wann ein numerischer Wert vorliegt - der X-Wert zu diesem Y-Wert ist dann dein Minimum. Laufe dann weiter und prüfe, ab wann kein numerischer Wert mehr vorliegt - der X-Wert des letzten numerischen Wertes ist dann dein Maximum...

---