byval saveasui über commandbutton

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo tino
habe diesen code den ich benutze. bis jetzt unter dieser arbeitsmappe. jetzt möchte ich es in ein commandbutton einbauen.
anstatt in der arbeitsmappe soll er über eine userform mit commanbutton starten.
vorerst beschränke ich mich nur auf den commandbutton. als nächster schritt soll verhindert werden, daß die datei mit den gleichen namen abgespeichert wird.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strDat As String
On Error GoTo errHandler
Application.EnableEvents = False
strDat = InputBox("Dateiname:", "Speichern unter", ThisWorkbook.Path & "\" & Left( _
ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "_A.xls")
If strDat  "" Then
ActiveWorkbook.SaveAs strDat
End If
errHandler:
Application.EnableEvents = True
Cancel = True
End Sub

in einem 2 schritt soll die dateiendung _A verbessert werden, sodass ein anderer pflichtname eingegeben werden muss.
gruß
tom

hallo tino
habe mich ein wenig ungenau ausgedrückt. die datei kann normal abgespeichert werden über einen anderen commandbutton mit dem gleichen namen.
sobald das projekt beendet wird und für das nächste jahr benötigt wird soll die bestehende datei gespeichert werden und eine neue datei geöffnet werden und dementsprechend einige werte und übernommen werden. nach der save prozedur werden noch diverse copy's und clear's gemacht.
wenn ich das über die prozedur diese arbeitsmappe mache werden leider auch die copy's und clear's miteinbezogen.
der speicher und in eine neue datei (vorgang) darf leider nicht über diese arbeitsmappe mit beforesave stattfinden. daher sollte der commandbutton mit diesem code eigenstädig sein. das speichern über das speichersymbol ist nicht möglich da sich die user ausschliesslich in userformen bewegen.
gruß
tom

Private Sub CommandButton1_Click() Dim strDat As String Dim DateiAlt As String On Error GoTo errHandler Application.EnableEvents = False If strDat = InputBox("Dateiname:", "Speichern unter", ThisWorkbook.Path & "\" & ( _ ThisWorkbook.Name = "DateiAlt")) Then Exit Sub If strDat "" Then ActiveWorkbook.SaveAs strDat End If errHandler: Application.EnableEvents = True End Sub

strDat = InputBox("Dateiname:", "Speichern unter", ThisWorkbook.Path) If (strDat = ThisWorkbook.FullName) Or Not (strDat Like "*\*.xls") Or (StrPtr(strDat) = 0) Then Exit Sub End If ActiveWorkbook.SaveAs strDat

Beliebteste Forumthreads (12 Monate)

byval saveasui über commandbutton

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

byval saveasui über commandbutton

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread