Speichern durch Marcro

[Phoeni]

Hallo Leute, mal eine Frage,
habe heute versucht, ein Makro zu erstellen welches erst in A1 spring was auch funktioniert, allerding bekomme ich es nicht in einem Aktive X Steuerelement hin.
Er speichert die Datei einfach nicht. Könnt Ihr mir mal wieder helfen?
Danke Gruß Phonie


Sub Makro10()
'
' Makro10 Makro
'

'
    Range("A1").Select
End Sub

[Klaus-Dieter]

Hallo,

Könnt Ihr mir mal wieder helfen?

wenn du mit etwas präziseren Angaben aufwarten kannst, bestimmt. Am besten lädst du eine Beispieldatei hoch.

[Phoeni]

Hallo, danke für deinen Hilfe. 
Also wenn ich auf den Button klicke, sollte der Cursor erst in A1 springen und die Datei dann speichern.
Hoffe ich habe es verständlich ausgedrückt
Gruß Phoeni

[UweD]

Hallo

Das Makro befindet sich scheinbar in einer anderen Datei.

Du musst also die Datei und ggf auch den Blattnamen mit angeben.

So in der Art sollte das in deiner Makrodatei stehen

Code:

Sub Test()
    Dim WB As Workbook, TB As Worksheet
   
    Set WB = Workbooks("Wenn Funktion Rügen.xlsx")
    Set TB = WB.Sheets("Tabelle1")
   
    TB.Range("A1").Select
    ' mach sonst was
   
    WB.Save
   
End Sub

LG UweD

[Gast 123]

Hallo

@Uwe   dein Code klappt, wenn das Workbook als xlsm gespeichert wurde!. 
Sonst giibt es wegen Set mit Endung "xlsx" Laufzeifehler bei Wb.Save.

Code:

Set WB = Workbooks("Wenn Funktion Rügen.xlsx")

mfg Gast 123

[Phoeni]

Danke, !!

[UweD]

@Uwe   dein Code klappt, wenn das Workbook als xlsm gespeichert wurde!. 
Sonst giibt es wegen Set mit Endung "xlsx" Laufzeifehler bei Wb.Save.



mfg Gast 123

Hallo Gast

Sein Code steht in der 1) Makros.xlsm.

In der 2) "Wenn Funktion Rügen.xlsx" ist der Button  und dort ist per Rechtsclick das Makro aus der 1) zugewiesen. 

2) kann also eine .xlsx bleiben


LG UweD

[Gast 123]

Hallo Uwe

Sorry, war meiner Aufmerksamkeit entgangen.

mfg Gast 123