Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1128to1132

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Tabellenblatt als Datei speichern

Forumthread: Tabellenblatt als Datei speichern
5 Beiträge zu diesem Forumthread
Anzeige
327 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
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 i2 des jeweiligen tabellenblattes.

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Tabellenblatt als Datei speichern

Josef
AW: Tabellenblatt als Datei speichern

Rudi
AW: Tabellenblatt als Datei speichern

murat
sheet ausgeblendet?

Rudi
AW: Tabellenblatt als Datei speichern

murat

AW: Tabellenblatt als Datei speichern

19.01.2010 16:27:42

Josef

Hallo Murat,
das sollte so laufen.

Sub tabAlsDat()
  Dim objSh As Worksheet, strPath As String

  strPath = "C:\Temp\"

  For Each objSh In ThisWorkbook.Worksheets
    objSh.Copy
    ActiveWorkbook.SaveAs strPath & objSh.[I2].Value & ".xls "
    ActiveWorkbook.Close False
  Next

End Sub

Gruß Sepp

AW: Tabellenblatt als Datei speichern

19.01.2010 16:28:42

Rudi

Hallo,

Fehler bei kompilieren variable nicht definert

deutlicher gehts doch kaum. Deklariere die Variablen.

Sub tabAlsDat()
Dim SpeicherPfad As String, shBlatt As Worksheet
SpeicherPfad = "C:\Temp\"
For Each shBlatt In ActiveWorkbook.Worksheets
shBlatt.Copy
ActiveWorkbook.SaveAs SpeicherPfad & ActiveSheet.[I2].Value & ".xls "
ActiveWorkbook.Close False
Next shBlatt
End Sub

Gruß
Rudi

AW: Tabellenblatt als Datei speichern

19.01.2010 16:53:49

murat

Hallo Rudi,
ich bekomme jetzt laufzeit fehler "1004" die methode 'copy' für das Objekt "Worksheet" ist fehlgeschlagen.
gruß
murat

sheet ausgeblendet?

20.01.2010 12:46:07

Rudi

Hallo,

Sub tabAlsDat()
Dim SpeicherPfad As String, shBlatt As Worksheet
SpeicherPfad = "C:\Temp\"
For Each shBlatt In ActiveWorkbook.Worksheets
If shBlatt.Visible Then
shBlatt.Copy
ActiveWorkbook.SaveAs SpeicherPfad & ActiveSheet.[I2].Value & ".xls "
ActiveWorkbook.Close False
End If
Next shBlatt
End Sub

Gruß
Rudi

AW: Tabellenblatt als Datei speichern

19.01.2010 16:44:23

murat

vielen Dank!