Clever-Excel-Forum

Seiten: 1 2

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

Hallo,

Super, Vielen DAnk

Gruß Georg

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.

Hallo,

Super, Vielen DAnk

Gruß Georg

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

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

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

Seiten: 1 2

schauan

frosche510

MisterBurns

frosche510

Glausius

RPP63

MisterBurns