Speicher unter......

Hallo,
ich versuche den Speicher Unter Dialog so einzustellen, dass das Verzeichnis angezeigt wird.
Aus der Recherche..............


Sub SpeichernUnter()
Dim dlg As Object
Dim Verzeichnis As String
Dim DateiName As String
Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
DateiName = ActiveSheet.Range("N11").Value
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = pfad & Dateiname & ".xls"
.Show
End With
If dlg  False Then dlg.Execute
End Sub

Was ist zu tun, dass das ausgelesenen Verzeichnis angezeigt wird?
Gruß Sonnenpeter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SpeichernUnter() Dim dlg As Object Dim Verzeichnis As String Dim DateiName As String Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) DateiName = ActiveSheet.Range("N11").Value Set dlg = Application.FileDialog(msoFileDialogSaveAs) With dlg .InitialFileName = Verzeichnis & Dateiname & ".xls" .Show End With If dlg False Then dlg.Execute End Sub

Sub SpeichernUnter() Dim dlg As Object Dim Verzeichnis As String Dim DateiName As String Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) DateiName = ActiveSheet.Range("N11").Value Set dlg = Application.FileDialog(msoFileDialogSaveAs) With dlg .InitialFileName = Verzeichnis & Application.PathSeparator & DateiName & ".xls" .Show End With If dlg False Then dlg.Execute End Sub

Private Sub DateiSpeichern() varNeueDatei = "Test_Speichern_Unter" ChDir "D:\" 'gewünschten Pfad angeben, falls gewünscht varDateiname = Application.GetSaveAsFilename(varNeueDatei, "Microsoft Excel-Dateien (*.xls), *. _ xls") If varDateiname = False Then Exit Sub End If ActiveWorkbook.SaveAs varDateiname End Sub

Private Sub DateiSpeichern() Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) ChDir Verzeichnis DateiName = ActiveSheet.Range("N11") varDateiname = Application.GetSaveAsFilename(DateiName, "Microsoft Excel-Dateien (*.xls), *.xls _ ") If varDateiname = False Then Exit Sub End If ActiveWorkbook.SaveAs varDateiname End Sub

Sub AlsBoxAnzeigen() Dim Verzeichnis As String Dim DateiName As String Verzeichnis = ThisWorkbook.Path DateiName = ActiveSheet.Range("N11").Value MsgBox Verzeichnis & "\" & DateiName & ".xls" End Sub

Sub SpeichernUnter() Dim dlg As Object Dim Verzeichnis As String Dim DateiName As String Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\" DateiName = Verzeichnis & ActiveSheet.Range("N11").Value & ".xls" Set dlg = Application.FileDialog(msoFileDialogSaveAs) With dlg .InitialFileName = DateiName .Show End With If dlg False Then dlg.Execute End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread