Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt speichern Fehler

Forumthread: Tabellenblatt speichern Fehler

Tabellenblatt speichern Fehler
06.12.2015 20:14:18
Guesa
Hallo Forum
Hoffe mal wieder auf Eure Hilfe
Habe den Code im Forum gefunden und habe folgendes Problem:
Das abspeichern funktioniert wunderbar allerdings, wenn ich diese öffnen will bekomme ich eine "Format" Fehlermeldung. Wenn ich im Code von xls auf xlsm ändere bekomme ich eine Fehlermeldung beim abspeichern.
Schon mal schönen Dank im vorraus
Gruß
Guesa
https://www.herber.de/bbs/user/102041.xlsm

Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt speichern Fehler
06.12.2015 20:33:01
Sepp
Hallo Guesa,
du musst das FileFormat angeben!
Ich hab den Code etwas umgestellt!
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Speichern()
Dim wb As Workbook
Dim strFileName As String

On Error GoTo ErrorHandler
Application.DisplayAlerts = False

With ThisWorkbook.Worksheets("Tabelle2")
  strFileName = .Range("B1") & "\" & .Range("C1") & ".xlsx"
  'strFileName = .Range("B1") & "\" & .Range("C1") & ".xls"
End With

ActiveSheet.Copy

With ActiveWorkbook
  .SaveAs strFileName, FileFormat:=xlOpenXMLWorkbook
  'Oder als xls
  '.SaveAs strFileName, FileFormat:=xlWorkbookNormal
  .Sheets(1).Shapes("speichern1").Delete
  .Close True
End With

ErrorHandler:
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler: " & Err.Number
Application.DisplayAlerts = True
End Sub

Gruß Sepp

Anzeige
AW: Tabellenblatt speichern Fehler
06.12.2015 20:36:09
Nepumuk
Hallo,
versuch es mal so:
Public Sub Speichern()
    ActiveSheet.Copy
    ActiveSheet.Shapes("speichern1").Delete
    ActiveWorkbook.SaveAs Filename:=Range("B1").Value & "\" & Range("C1").Value & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close
End Sub

Gruß
Nepumuk

Anzeige
AW: Tabellenblatt speichern Fehler
06.12.2015 20:59:59
Guesa
Hallo Sepp u. Nepumuk
Sepp: Kommt eine Meldung "Fehler 9" und
"Index außerhalb des gültigen Bereichs" danach wird es abgespeichert
Von Dir Nepuumuk läuft es ohne Fehler
Danke an Euch Beide für die schnelle Rückmeldung
Gruß
Guesa

AW: Tabellenblatt speichern Fehler
06.12.2015 21:05:14
Sepp
Hallo Guesa,
hab's aber in deiner Datei getsetet!
Gruß Sepp

Anzeige
AW: Tabellenblatt speichern Fehler
06.12.2015 21:30:33
Guesa
Hallo Sepp
Habs gerade nochmal getestet mit xls aber kommt die gleiche Meldung.
Kann es an verschiedenen Versionen liegen? Ich hab hier 2007
Gruß
Guesa

AW: Tabellenblatt speichern Fehler
06.12.2015 21:47:00
Sepp
Hallo Guesa,
versuch es mal so.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Speichern()
Dim wb As Workbook
Dim strFileName As String

On Error GoTo ErrorHandler
Application.DisplayAlerts = False

With ThisWorkbook.Worksheets("Tabelle2")
  strFileName = .Range("B1") & "\" & .Range("C1") & ".xlsx"
  'strFileName = .Range("B1") & "\" & .Range("C1") & ".xls"
End With

ActiveSheet.Copy

With ActiveWorkbook
  .SaveAs strFileName, FileFormat:=51
  'Oder als xls
  '.SaveAs strFileName, FileFormat:=-4143
  .Sheets(1).Shapes("speichern1").Delete
  .Close True
End With

ErrorHandler:
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler: " & Err.Number
Application.DisplayAlerts = True
End Sub

Gruß Sepp

Anzeige
AW: Tabellenblatt speichern Fehler
07.12.2015 18:54:27
Guesa
Hi Sepp
"Fehler 9" Meldung ist weg "Index außer Bereich" noch da.

AW: Tabellenblatt speichern Fehler
07.12.2015 18:58:26
Sepp
Hallo Guesa,
dann heußt deine Tabelle nicht 'Tabelle2' der das Shape nicht 'speichern1'!
Gruß Sepp

Anzeige
AW: Tabellenblatt speichern Fehler
07.12.2015 19:12:23
Guesa
Hi Sepp
Hab gerade nochmal in die Datei geschaut die ich mit hochgeladen hatte. Sie heißt Tabelle2

AW: Tabellenblatt speichern Fehler
07.12.2015 19:13:01
Guesa
Hi Sepp
Hab gerade nochmal in die Datei geschaut die ich mit hochgeladen hatte. Sie heißt Tabelle2

Und das Shape?
07.12.2015 19:16:09
Sepp
Hallo Guesa,
sonst lade die Datei mit der Fehlermeldung mal hoch.
Gruß Sepp

Anzeige
Und das Shape?
07.12.2015 19:16:11
Sepp
Hallo Guesa,
sonst lade die Datei mit der Fehlermeldung mal hoch.
Gruß Sepp

AW: Und das Shape?
07.12.2015 20:07:48
Sepp
Hallo Guesa,
nicht nachvollziehbar! Läuft wie erwartet!
Kommentiere mal die Fehlerbehandlung aus und sag, wo der Code hängt!
Sub Speichern()
Dim wb As Workbook
Dim strFileName As String

'On Error GoTo ErrorHandler
'Application.DisplayAlerts = False

With ThisWorkbook.Worksheets("Tabelle2")
  strFileName = .Range("B1") & "\" & .Range("C1") & ".xlsx"
  'strFileName = .Range("B1") & "\" & .Range("C1") & ".xls"
End With

ActiveSheet.Copy

With ActiveWorkbook
  .SaveAs strFileName, FileFormat:=51
  'Oder als xls
  '.SaveAs strFileName, FileFormat:=-4143
  .Sheets(1).Shapes("speichern1").Delete
  .Close True
End With

'ErrorHandler:
'If Err.Number > 0 Then MsgBox Err.Description, , "Fehler: " & Err.Number
'Application.DisplayAlerts = True
End Sub

Gruß Sepp

Anzeige
AW: Und das Shape?
07.12.2015 20:22:18
Guesa
Hi Sepp
Der Code hängt nicht, wird alles ausgeführt bzw. richtig gespeichert und ich kann die abgespeicherte Datei auch ohne Probleme öffnen.
Es öffnet sich die MsgBox und gibt diese Meldungen aus zuerst kommt "Fehler 9" und dann "Index außer Bereich"
Wenn ich im Code 9 eingebe kommen keine Fehlermeldungen mehr
Gruß
Guesa

Anzeige
AW: Und das Shape?
07.12.2015 20:44:42
Sepp
Hallo Guesa,
wo im Code bitte, gibst du "9" ein?
Hat deine Originaldatei noch anderen Code?
Gruß Sepp

;

Forumthreads zu verwandten Themen

Tabellenblatt unter Blattnamen speichern
Jakob

Hallo,
ich möchte ein einzelnes Tabellenblatt unter den Blattnamen und den Wert aus der Zelle B11 im Tabellenblatt "Eingabe" abspeichern. Die Zelle B11 habe ich mit einen Namen (Lieferung) definiert.
Wie muß der VBA-Code dafür aussehen?
Vielen Dank schon mal für Eure Hilfe.
Gruß...
23.09.2008 17:08:00
Thread-ID: 1011833
4 Beiträge
Tabellenblatt separat speichern als csv
Herbert

Hallo,
der beigefügte Code wurde mir freundlicherweise hier bereit gestellt. Aus einer Datei wird ein Tabellenblatt in eine neue Datei im Ordner C:\temp gespeichert. Das Dateiformat der neuen Datei ist csv. Die einzelnen Werte der neuen csv-Datei werden durch Semikolon getrennt. Ich benötig...
16.10.2008 16:07:00
Thread-ID: 1016905
6 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Kopiertes Tabellenblatt aus Vorlage speichern
Bertram

Hallo zusammen,
ich bekomme seit Neuestem beim Speichern einer Datei (mittels VBA) manchmal eine Fehlermeldung. Ich habe zwar schon im Archiv gesucht, aber nix gefunden. Wahrscheinlich liegt's an meinen Suchbegriffen, denn ich hab die Fehlermeldung noch nie vorher gesehen und weiß nicht, wi...
05.03.2009 12:20:42
Thread-ID: 1056776
11 Beiträge
Anzeige
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Tabellenblätter kopieren und speichern
Bastian

Hallo zusammen,
da ich nach langem suchen nicht weiterkomme, hoffe und denke ich, dass mir weitergeholfen werden kann.
Kurz zu meinem Hintergrund: Nachdem ich Excel jahrelang eher zu Erstellung meines Stundenplans an der Uni genutzt habe, arbeite ich seit ca. 2 Jahren etwas intensiver d...
16.09.2009 10:01:09
Thread-ID: 1103108
6 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Anzeige
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge
Tabellenblatt als Datei speichern
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....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Images aus Tabellenblatt auf C speichern
kle

Hallo,
habe in einem Tabellenblatt eine Grafik (Bild) - dieses möchte ich gern temporär auf C:\Temp speichern als gif und nach einem anderen Vorgang soll es wieder gelöscht werden.
Aber irgendwie bekomme ich das speichern nicht hin... HILFE !
Vielen Dank !
Gruß
Kay
09.05.2010 21:51:45
Thread-ID: 1156307
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige