Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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
Anzeige
"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

Anzeige
= "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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige