Microsoft Excel

Herbers Excel/VBA-Archiv

vor speichern zur Zelle

Betrifft: vor speichern zur Zelle von: Werner
Geschrieben am: 28.09.2014 11:08:31

Hallo Excel Freunde
habe ein Makro, welches die Datei automatisch speichert.

Sub Auto_Close()
ActiveWorkbook.SaveAs "C:\Aldi\2014\Besprechung\" & Range("a1").Value & " " & Range("c1").Value  _
& " " & Format(Range("AA1").Value, "YYYY-MM-DD") & ".xlsm"
    
End Sub

nun möchte ich, das Excel automatisch in Zelle B2 spring bevor es die Datei speichert.
Bitte um Hilfe

Gruß
Werner

  

Betrifft: AW: vor speichern zur Zelle von: Hajo_Zi
Geschrieben am: 28.09.2014 11:10:08

Hallo Werner,

Range("B2").select

GrußformelHomepage


  

Betrifft: AW: vor speichern zur Zelle von: Werner
Geschrieben am: 28.09.2014 13:06:04

Hallo

habe den Befehl jetzt eingefügt (bitte überprüfen), mit der folge das immer eine zusätzliche Abfrage kommt ob gespeichert werden soll.

Sub Auto_Close()
ActiveWorkbook.SaveAs "C:\Aldi\2014\Besprechung\" & Range("a1").Value & " " & Range("c1").Value  _
 _
& " " & Format(Range("AA1").Value, "YYYY-MM-DD") & ".xlsm"
Range("B2").select    
End Sub
Es kommt die Abfrage, ob die Datei ersetzt werden soll,(kenne ich von vorher, wurde immer mit ja bestätigt wenn die Datei schon vorhanden war . Danach kommt wenn ich mich zuletzt in einer anderen Zelle befinde, noch einmal die Frage ob die Datei gespeichert werden soll ja, nein, abbrechen.
Wenn ich mich in Zelle B2 schon befinde kommt die 2. Abfrage nicht.

Gruß
Werner


  

Betrifft: AW: vor speichern zur Zelle von: Hajo_Zi
Geschrieben am: 28.09.2014 13:10:54

Hallo Werner,

hast Du nicht geschrieben vor dem Sichern, warum jetzt nach dem sichern?

Gruß Hajo


  

Betrifft: AW: vor speichern zur Zelle von: Werner
Geschrieben am: 28.09.2014 13:14:30

Hallo Hajo

die Zelle B2 soll vor dem automatischen speichern angesprungen werden.

Gruß
Werner


  

Betrifft: AW: vor speichern zur Zelle von: Hajo_Zi
Geschrieben am: 28.09.2014 13:16:08

Hallo Werner,

also sind wir uns in dem Punkt einig, nur Deine Code nicht.

Gruß Hajo


  

Betrifft: AW: vor speichern zur Zelle von: Werner
Geschrieben am: 28.09.2014 13:21:15

Danke Hajo

jetzt bin ich genauso schlau wie vorher.

Also vor dem automatischen speichern soll die Zelle B2 angesprungen werden.
Mein ursprüngliches Makro lautete:

Sub Auto_Close()
    ActiveWorkbook.SaveAs "C:\Aldi\2014\Besprechung\" & Range("a1").Value & " " & Range("c1"). _
Value  _
    & " " & Format(Range("AA1").Value, "YYYY-MM-DD") & ".xlsm"
        
    End Sub
Gruß
Wener


  

Betrifft: AW: vor speichern zur Zelle von: Hajo_Zi
Geschrieben am: 28.09.2014 13:23:21

Hallo Werner,

und ich kann mich nur wiederholen springe vor dem Sichern die Zelle an.

Gruß Hajo


  

Betrifft: AW: vor speichern zur Zelle von: Crazy Tom
Geschrieben am: 28.09.2014 13:34:53

Hallo Werner

das sollte dann so aussehen

Sub Auto_Close()

Range("B2").select 

ActiveWorkbook.SaveAs "C:\Aldi\2014\Besprechung\" & Range("a1").Value & " " & Range("c1").Value  _
 _
 _
& " " & Format(Range("AA1").Value, "YYYY-MM-DD") & ".xlsm"
End Sub

MfG Tom


  

Betrifft: AW: vor speichern zur Zelle von: Werner
Geschrieben am: 28.09.2014 13:40:26

Hallo Tom

klappt wunderbar.

vielen vielen Dank

Gruß
Werner


 

Beiträge aus den Excel-Beispielen zum Thema "vor speichern zur Zelle"