speichern unter

Forumthread: speichern unter

speichern unter

26.01.2014 07:04:25

Dennis

guten morgen zusammen, habe folgendes problem.
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
Application.Dialogs(xlDialogSaveAs).Show Range("c30")            ' speichern _
unter
End If
End Sub

das funktioniert wunderbar aber ich hätte aber gerne noch das er die datei speichern unter zbs. auf laufwerk C, als standart speicherort definiert.
lg
dennis

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

"C:\" & Range("c30").Value

26.01.2014 07:20:12

Matthias
AW: "C:\" & Range("c30").Value

26.01.2014 07:52:01

Dennis
AW: "C:\" & Range("c30").Value

26.01.2014 08:22:02

Dennis
= "C:\" & DateiName

26.01.2014 08:45:29

Matthias
AW: = "C:\" & DateiName

26.01.2014 09:23:17

Dennis

"C:\" & Range("c30").Value

26.01.2014 07:20:12

Matthias

Hallo

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
Application.Dialogs(xlDialogSaveAs).Show "C:\" & Range("c30").Value
End If
End Sub

Gruß Matthias

AW: "C:\" & Range("c30").Value

26.01.2014 07:52:01

Dennis

hallo,
vielen dank aber leider funktioniert es nicht. er speichert mir die datei immer dort ab wo ich meine hauptdatei abgelegt habe. also nicht auf laufwerk C

AW: "C:\" & Range("c30").Value

26.01.2014 08:22:02

Dennis

Hallo nochmals,
Also ich möchte das sich das Fenster öffnet "Speichern unter"
dabei optimaler weise ein
-vorgegebener Speicherpfad schon offen ist.
habe dies bisher
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
Application.Dialogs(xlDialogSaveAs).Show "C:\" & Range("c30").Value
End If
End Sub

= "C:\" & DateiName

26.01.2014 08:45:29

Matthias

Hallo
Dann machs doch so wie Du es im ersten Beitrag gepostet hast

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DateiName As String
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
DateiName = Range("C30").Value
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\" & DateiName
.FilterIndex = 2
If .Show = -1 Then
.Execute
Else
MsgBox "Abgebrochen"
End If
End With
End If
End Sub

Gruß Matthias

AW: = "C:\" & DateiName

26.01.2014 09:23:17

Dennis

super..................
vielen lieben dank an alle, die mir geholfen haben. es funktioniert wunderbar.
einen herzlichen dank
wünsche euch einen schönen sonntag
lg
dennis

Beliebteste Forumthreads (12 Monate)

Forumthread: speichern unter

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread