Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.07.2024 16:00:57
15.07.2024 15:41:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblätter einzeln als Datei speichern

Tabellenblätter einzeln als Datei speichern
13.01.2009 11:46:16
murat
Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten ist gut, nur leider benötige ich keine Ordner sondern ich will das der Tabellenname bzw. Zelle "C2" der Dateiname ist. Bei diesem makro werden Ordner angelegt und die 20 Datei heißen alle Kostenverfolgung. Ich hoffe jemand kann mir helfen.
Private Declare

Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long


Sub BlaetterEinzelnSpeichern()
Dim strVerzeichnis As String
Dim shBlatt As Worksheet
strVerzeichnis = "C:\Temp\Excel\" 'mit "\" am Ende !!!
For Each shBlatt In ActiveWorkbook.Worksheets
If shBlatt.[C2]  "" Then
'Verzeichnis anlegen, falls noch nicht vorhanden !
MakeSureDirectoryPathExists strVerzeichnis & shBlatt.[C2].Value & "\"
shBlatt.Copy
ActiveWorkbook.SaveAs strVerzeichnis & ActiveSheet.[C2].Value & "\ _
Kostenverfolgung.xls"
ActiveWorkbook.Close False
Else
MsgBox shBlatt.Name, vbOKOnly + vbCritical, "Fehlender Dateiname in C2 in Blatt  _
_
_
End If
Next
End Sub


Vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter einzeln als Datei speichern
13.01.2009 12:06:00
PeTeR
Hallo Murat,
versuch mal:

Sub tabAlsDat()
speicherpfad = "C:\Temp\"
For Each shBlatt In ActiveWorkbook.Worksheets
shBlatt.Copy
ActiveWorkbook.SaveAs speicherpfad & ActiveSheet.[C2].Value & ".xls "
ActiveWorkbook.Close False
Next shBlatt
End Sub


Viel Erfolg
PeTeR

AW: Tabellenblätter einzeln als Datei speichern
13.01.2009 13:08:15
murat
Super!!!! Vielen Dank Sie haben mir sehr geholfen.
Anzeige

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige