Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
beim Button in einem "normalen" Modul so
Sub SpeicherMich()
ActiveWorkbook.SaveAs Filename:=" F:\Rechnungen2020\" & Range("C3").Value & ".xlsx", FileFormat:=51
End Sub
und mit Doppelklick im Codemodul vom Tabellenblatt
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$3" Then
ActiveWorkbook.SaveAs Filename:=" F:\Rechnungen2020\" & Range("C3").Value & ".xlsx", FileFormat:=51
End If
End Sub
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 15.08.2019
Version(en): 365
Hallo,
Super, Vielen DAnk
Gruß Georg
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Ich würde einen Schritt weiter gehen, denn du willst sicher nicht jedes Jahr den Code ändern müssen, oder?
Code:
Sub SpeicherMich()
If Dir("F:\Rechnungen" & Year(Date)", vbDirectory) <> "" Then
ActiveWorkbook.SaveAs Filename:=" F:\Rechnungen" & Year(Date) & "\" & Range("C3").Value & ".xlsx", FileFormat:=51
Else
MsgBox "Verzeichnis nicht existent"
End If
End Sub
So wird auch geprüft, ob der Ordner überhaupt existiert.
Schöne Grüße
Berni
Registriert seit: 15.08.2019
Version(en): 365
Hallo,
Super, Vielen DAnk
Gruß Georg
Registriert seit: 11.04.2014
Version(en): 2021
16.11.2020, 17:25
(Dieser Beitrag wurde zuletzt bearbeitet: 16.11.2020, 17:26 von Glausius.)
Hallo Mister Burns,
wenn man schon prüft, ob der Jahresordner vorhanden ist, könnte man ihn auch dann gleich einrichten, wenn er noch fehlt, statt eine Fehlermeldung auszugeben und dann die Rechnung speichern!!
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
Wenn man Rechnungen als .xlsx abspeichern will, kann man sie auch gleich löschen...
Rechnungen werden, damit man sie nicht "unbeabsichtigt" ändern kann, als PDF gespeichert.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Ja Glausius, kann man. Aber ich muss dem TE ja nicht alles vorkauen. This ain't a code writing service.
Schöne Grüße
Berni