Microsoft Excel

Herbers Excel/VBA-Archiv

Makro zuweisen



Excel-Version: 9.0 (Office 2000)

Betrifft: Makro zuweisen
von: Josi
Geschrieben am: 29.05.2002 - 09:44:46

Guten morgen allerseits
Ich habe mir mit eurer Hilfe und des Makrorecorders und meinem bescheidenen Wissen 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\rechnung\" & Format(Date, "YYYY")
  On Error GoTo 0
  
  ActiveWorkbook.SaveAs "c:\dokumente und einstellungen\all users\desktop\rechnung\" & Format(Date, "YYYY") & "\" & Cells(14, 1) & Cells(25, 1).Value
ActiveSheet.Shapes("Rectangle 1").Select
    Selection.OnAction = "Tabelle1.Ausblenden"
Windows("Rechnungsformular  Wagner").Activate
y.Range("a14").FormulaR1C1 = "Name"
ActiveWorkbook.Save
Windows("Rechnungsformular  Wagner").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 ecakt die Zeilen und es funktioniert. füge ich sie dann hier ein gehts nicht?

  

Re: Makro zuweisen
von: Versuch es später nocheinmal
Geschrieben am: 29.05.2002 - 17:27:31

:-)
 

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