Office: VBA Matrix mit Button click wechseln

Hey,
ich habe in Tabellenblatt1 4 Command Buttons angelegt.
In Tabellenblatt 2 - 5 befinden sich jeweils unterschiedliche Matrizen.
Mit click auf den jeweiligen Button soll in Tabellenblatt1 die benötigte Matrix an einer definierten Stelle erscheinen.
Wie lässt sich so etwas realisieren?

Gruß

 

Och, da gibt es die unterschiedlichsten Ansätze. Für den "einfachsten" Weg würde sich aber hier tatsächlich, so ungern ich das sage, der Makro-Rekorder anbieten.

Ich mag den Makro-Rekorder eigentlich nicht, weil er unübersichtlichen, aufgeblähten und unflexiblen Code erzeugt. Andererseits ist er aber manchmal auch eine gute Basis, um den grundlegenden Ablauf schonmal als VBA zu bekommen. Den kann man dann ja je nach Gusto anpassen, sofern das notwendig ist.

Und in diesem Fall ist eine nachträgliche Anpassung wahrscheinlich nicht mal nötig. Wenn Du Deine 4 Makros hast, wobei jedes einzelne die entsprechende Matrix vom passenden Blatt auf Blatt 1 kopiert, kannst Du diese Makros auf die 4 Buttons packen und das war's.

(In dem Fall sind es übrigens nicht die Buttons aus der Steuerelemente-Toolbox, sondern die aus der Formular-Toolbox. Ein weiterer Punkt, den ich nur ungerne sage, weil ich die Formular-Toolbox ebenfalls meide, wo immer möglich...)

Gruß, Michael

 

Hallo Michael,

danke für die schnelle Antwort.
Ich habe aber leider noch kein Makro um die Matrizen zu kopieren.
Bisher habe ich meine Matrizen in den jeweiligen Tabellenblättern vorliegen und eine Oberfläche mit Buttons.

Wie würde sich den ein Makro darstellen mit dem man die Matrizen wahlweise mit einem click aufrufen kann?

Gruß

 

Wenn Du den Makro-Rekorder benutzt...

Makro 1:
- Auf das Blatt mit den Buttons wechseln
- Makro-Rekorder starten
- Auf das Blatt mit der Matrix wechseln
- Matrix-Quellbereich markieren
- Matrix kopieren
- Auf das Blatt mit den Buttons wechseln
- Matrix-Zielbereich markieren
- Matrix einfügen
- Makro-Rekorder beenden
- Makro 1 auf den Button 1 zuweisen

Und das gleiche dann nochmal für Makro 2 bis 4...

Ganz grob müßtest Du in dem Makro ungefähr wiederfinden:

Code:

worksheets("quellblatt").select
activesheet.range("von:bis").select
selection.copy
worksheets("zielblatt").select
activesheet.range("von:bis").select
selection.paste

Gruß, Michael

 

Danke dir, das Makro funktioniert sehr gut