Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur Tabelleblätter über "Speichern unter" speichen

Nur Tabelleblätter über "Speichern unter" speichen
23.09.2004 17:10:41
christoph
HI.
Ist es möglich über den
Application.Dialogs(xlDialogSaveAs).Show
nur die Tabellen 11 und 12 zu speichern und nicht die ganze Arbeitsamappe
Danke für hilfe

Christoph

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

Betreff
Datum
Anwender
Anzeige
nein o.w.t
23.09.2004 20:50:51
andre
AW: Nur Tabelleblätter über "Speichern unter" speichen
24.09.2004 07:46:41
rolf
hi christop
musst du dir noch anpassen,
an der abbruchfunktion arbeite ich noch
' SPEICHERN UNTER

Sub SPEICHERN_UNTER1()
' FESTLEGEN DES LAUFWERKS IN DEM GESPEICHERT WERDEN SOLL
ChDrive "D"
' FESTLEGEN DES ORDNERS IN DEM GESPEICHERT WERDEN SOLL
ChDir "D:\TEST"
' AUSWAHL DER TABELLENBLÄTTER DIE GESPEICHERT WERDEN SOLLEN
Sheets(Array("Tabelle5", "Tabelle4")).Select
Sheets(Array("Tabelle5", "Tabelle4")).Copy
' SPEICHERN MIT EINEM VORGEGEBENEN NAMEN UND DATUM UHRZEIT
NeuName = "NEUER NAME" & "    " & Now
' DER DOPPELPUNKT DER UHRZEIT WIRD DURCH UNTERSTRICH ERSETZT
NeuName = Replace(NeuName, ":", "_")
DlgAnswer = Application.GetSaveAsFilename(InitialFileName:=NeuName, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If DlgAnswer <> "Falsch" Then
ActiveWorkbook.SaveAs Filename:=NeuName, FileFormat:=xlNormal
'ActiveWorkbook.Close
End If
End Sub

rolf
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige