Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1364to1368
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

Datei aus bestehendem Dokument neu speichern

Datei aus bestehendem Dokument neu speichern
23.06.2014 12:33:09
Showd0wn
Hallo,
ich habe eine Excel Datei (1) in der ich meinen Code habe. In dieser Datei gibt es einen Hyperlink zu der Datei Quelle (2).
Set Dat = ActiveWorkbook.Sheets(...)
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Set Quelle = ActiveWorkbook
Das ist mein Einstieg dazu. Jetzt möchte ich über eine Abfrage in (1) meine Datei (2) als neue Datei mit neuem Namen speichern (am besten über speichern unter Dialog) und die weiteren Codeanweisungen sollen sich dann auf die neue Datei beziehen.(Die weiteren Anweisung spreche ich über QuellDat.Sheets... an)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei aus bestehendem Dokument neu speichern
23.06.2014 12:58:58
Showd0wn
*Quelle.Sheets... an

AW: Datei aus bestehendem Dokument neu speichern
23.06.2014 13:38:49
Rudi
Hallo,
sowas?
Sub aaaa()
Dim strFile As String
Dim wksDat As Worksheet, wkbQuelle As Workbook
Set wksDat = ActiveWorkbook.Sheets("test")
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Set wkbQuelle = ActiveWorkbook
strFile = Application.GetSaveAsFilename
If strFile  "Falsch" Then
wkbQuelle.SaveAs strFile, xlOpenXMLWorkbook
End If
With wkbQuelle
'mach was
End With
End Sub

Gruß
Rudui
Anzeige

95 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige