Speichern unter

[schauan]

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

[frosche510]

Hallo,

Super, Vielen DAnk

Gruß Georg

[MisterBurns]

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.

[frosche510]

Hallo,

Super, Vielen DAnk

Gruß Georg

[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!!

[RPP63]

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

[MisterBurns]

Ja Glausius, kann man. Aber ich muss dem TE ja nicht alles vorkauen. This ain't a code writing service.