Office: (Office 2007) Button kopieren?

Hallo zusammen,

wie kann ich ein Button von Tabelle1 in Tabelle2 kopieren, damit die Funktionsaufrufe erhalten bleibt?

Zum Beispiel wenn ich den Button in der Tabelle1 betätige werden einige Spalten minimiert.
Wenn ich jetzt über den kopierten Button in der Tabelle2 die genau gleichen Spalten minimieren möchte?

Ich habe versucht über den Makro VBA Code zur VBA Code zu kopieren, scheint aber nicht zu gehen, schade.

Gruss lam

:)

 

Hi

kommt mal darauf an, welchen Button du meinst und welcher Code dahinter steckt.

? keine Ahnung was du da versucht hast, *wink.gif* aber warum sollte sowas nicht gehen.

 

Hallo,
was steht denn für ein Code hinter dem Button wenn Du im Bearbeitungsmodus draufklickst ? Das selbe ? Vielleicht hast Du nur den "nackten" Button kopiert ??

Gruß
Celia

 

Hi zusammen,

ich hab ein Button "Erstelle neues Blatt". Mit dem kann ich ein neue Tabelle erstellen bei der ein Button mitrüberkopiert wird von einer Vorlage. Jetzt will ich das der Code von dem Button der bei der Vorlage ist auch mitkopiert wird.

dieser Code macht nix anderes als Spalten aus und einblenden

Code:

Gruss lam

 

Hi

du hast den falschen Code reingestellt *wink.gif*
was für einen Code hast du auf diesem "Neu button"
bei mir geht es ohne Probleme wenn ich das Blatt weiterkopiere

sheets("xyz").copy After:=sheets(sheets.count)

p.s versuche diesen Code mal auf dem ausblenden einblenden
Code:

activesheet.activate
du meinst wohl sicher ist sicher ^^

 

hehehehe ja das mit dem activeSheet ist überflüssig :-)

Nee ich habe keine Copy von dem Sheet gemacht sondern ein neues bei der Werte aus der Vorlage kopiert wird und den Button mitkopiert.

Kann ich den Code dann nicht irgendwie seperat dareinhauen?

Gruss lam

 

...und wie sieht der Code aus mit dem Du das neue Blatt einfügst ???

Mit Sheets.Add wird der Code deines Buttons auf alle Fälle nicht mitgenommen !
Denke mal das müsste so etwas wie

Sheets("Tabelle1").Copy After:=Sheets(1) sein.
Dann ist dein funktionsfähiger Button mit dabei..

Gruß
Celia

 

Hi

warum nicht das Blatt kopieren?
wenn es ohnehin eine Vorlage ist, gibt es dafür einen Grund.

 

Ja eigentlich habt ihr recht :-) es ist besser wenn ich die komplette Vorlage hinzufüge *grins*

Mal ne andere frage. Wisst ihr wie man durch das Alphabet iterieren kann?

weil wenn ich sowas untereinanderschreibe, ist es so uneffizient finde ich :-)

Code:

gruss lam

 

hiho

Sheets(sheetNamen).Range("B2:V2").Formula = "=MAX(B5:B" & Sheets("Uebersicht").Range("N14").Value & ")"

 

meine Güte, so einfach geht das? ihr seit echt Spitze.

So zu allerletzt, wenn von der Vorlage 2 Diagramme rüberkopiert habe, wie kann ich über VBA die Datenquelle, zum Beispiel X,Y-Achse und die 2 Funktionskurven an dem neuen Datensatz anpassen?

Gruss lam

 

Hi

suche mal im Archiv

SetSourceData
diese ändern
bzw. von deinem Diagrammtyp die Axis
wie sieht dein Code im Moment aus?

 

hi,

ich hab hier ein makro aufgezeichnet für ein neues, aber ich will eigentlich ein bestehendes von der kopierten Vorlage bearbeiten. zum Beispiel wie kann ich den Datensatz für die 1. und 2. Kurve verändern?

und vor allem will ich den Titel ändern so wie die Axen-Intervalle

hier Beispielaufzeichnung

Code:

P.S. und was ich überhaupt nicht verstehe ist die Adressierungsart "='4.4'!R5C3:R365C3". kann ich da auch irgendwie über Range("A1:B1") sowas mache. Oder umgekehrt gefragt wie kann ich "='4.4'!R5C3:R365C3" interpretieren?