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
Hallo,
Zitat: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.
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
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
Hallo
@Uwe dein Code klappt, wenn das Workbook als
xlsm gespeichert wurde!.
Sonst giibt es wegen Set mit Endung "xlsx" Laufzeifehler bei Wb.Save.
Zitat:Code:
Set WB = Workbooks("Wenn Funktion Rügen.xlsx")
mfg Gast 123
(08.06.2022, 18:00)Gast 123 schrieb: [ -> ]@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
Hallo Uwe
Sorry, war meiner Aufmerksamkeit entgangen.
mfg Gast 123