Makro zuweisen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Makro zuweisen
von: Josi
Geschrieben am: 31.05.2002 - 09:42:50

Guten Morgen zusammen#

Ich habe mir folgendes Makro gebastelt



Sub erstellen_speichern()
Dim WB As Workbook
Dim As Worksheet
Set y = Worksheets("Tabelle1")
Worksheets("Tabelle1").Copy
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents("Tabelle1").CodeModule
.DeleteLines 1, 12
End With
Application.DisplayAlerts = False
On Error Resume Next
MkDir "C:\dokumente und einstellungen\all users\desktop\Test\" & Format(Date, "YYYY")
On Error GoTo 0

ActiveWorkbook.SaveAs "c:\dokumente und einstellungen\all users\desktop\test\" & Format(Date, "YYYY") & "\" & Cells(14, 1) & Cells(25, 1).Value
ActiveSheet.Shapes("Rectangle 1").Select
Selection.OnAction = "Tabelle1.Ausblenden"
Windows("Josi").Activate
y.Range("a14").FormulaR1C1 = "Name"
ActiveWorkbook.Save
Windows("Josi").Close
End Sub


Nun habe ich das Problem mit dem zuweisen des Makros an die Schaltfläche, nämlich er nimmt immer das Makro aus der Vorlage und nicht aus dem aktive sheet.
ActiveSheet.Shapes("Rectangle 1").Select
Selection.OnAction = "Tabelle1.Ausblenden"

Zeichne ich es mit dem Recorder auf bringt er mir exakt die Zeilen aber nicht das ich << Diese Arbeitsmappe>> gewählt habe
Bin für jede Hilfe Dankbar
Gruß Josi

nach oben   nach unten

Re: Makro zuweisen
von: Michael Scheffler
Geschrieben am: 31.05.2002 - 10:23:46

Hallo Josi,

Doppelpostings sind sehr beliebt, insbesondere im Abstand von einigen Minuten, meine Antwort findest Du weiter unten.

Micha


nach oben   nach unten

Re: Makro zuweisen
von: Josi
Geschrieben am: 31.05.2002 - 11:21:00

Das mit dem Posting weiss ich ja
Aber mein erster Eintrag wurde nicht angezeigt,
Und als ich den 2. postete war der 1. plötzlich da

Tut mir Leid


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Makro zuweisen"