VBA Programmierung

Question

Hallo,
ich habe mal eine frage wegen VBA Programmierung,ich möchte ein Speichern unter
Button kreieren, der wenn man drauf drückt das speichern unter Fenster öffnet, wo ich
dann schon einen Teil des Pfads vorgeben kann...beispielsweise D:\Arbeit\...und der
Dateiname schon das Datum enthält...kann mir da jemand weiterhelfen?

Answer 1

Hi,

meinst du so etwas:

Sub Speichern()
Dim Name
Name = Application.GetSaveAsFilename("D:\Test\Speichername" & Date & ".xls", _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If Name = True Then
ActiveWorkbook.SaveAs Name
' ActiveWorkbook.Close
End If
End Sub

Bis später,
Karin

Answer 2

Ich schaffe es leider nicht zu komplimieren:-( weiß nicht warum kann ich hier nen
screenshot posten?

Answer 3

Private Sub CommandButton1_Click()
Sub Speichern()
Dim Name
Name = Application.GetSaveAsFilename("D:\Test\Speichername" & Date & ".xls", _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If Name = True Then
ActiveWorkbook.SaveAs Name
' ActiveWorkbook.Close
End If
End Sub


Dann kommt der Fehler:
Fehler beim Kompilieren
End Sub erwartet

Answer 4

Hi,

du hast 2 Zeilen zum Starten des Makros stehen:

Private Sub CommandButton1_Click()
Sub Speichern()

Ich habe mein Marko von Hand gestartet, deshalb steht bei mir:

Sub Speichern()

Wenn der Code unter einem CommandButton aus den ActiveX-Steuerelementen laufen kann, dann darf dort nur stehen:

Private Sub CommandButton1_Click()

Bis später,
Karincode

Answer 5

Vielen Dank hat sehr weitergeholfen :-)

Answer 6

Noch eine Frage dazu, wenn ich jetzt nicht die ganze Datei speichern will sondern nur
die Arbeitsmappe...wie sieht der Code dann aus?

Answer 7

Hi,

Datei und Arbeitsmappe sind dasselbe.

Bis später,
Karin