Datei speichern unter
24.03.2005 13:59:10
Andreas
ich will meine Tabelle nach Klick auf Button mit einem neuen Namen speichern und da soll das Fenster "speichern unter" aufgehen und in diesem Fall schon das Laufwerk "V" angewählt sein, damit ich nur noch den richtigen Ordner aussuchen muss.
Bisher bin ich soweit, aber da Speichert die Tabelle in Eigenen Dateien und das will ich nicht.
Private Sub CommandButton2_Click()
Dim FName$, M$
M = ActiveSheet.Range("d6") 'hier steht der Name
FName = "Messprotokoll_" & M & ".xls"
ActiveWorkbook.SaveAs Filename:=FName
ChDir "V:\"
End Sub
Im Voraus Danke für Lösungsvorschläge Andreas
Anzeige