Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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

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

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

Anzeige

301 Forumthreads zu ähnlichen 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
Anzeige
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
Nur Tabellenblatt speichern nicht ganze Arbeitsm
Horst

Hey !
Da eine meiner Arbeitsmappe immer mehr Arbeitsblätter (Tabellen) bekommt. Möchte ich diese irgendwie ausgliedern und nur bei bedarf wieder reinladen.
Kann ich das irgend wie per Marko oder zu Fuß erledigen?
Das heißt unter ihrem Namen ablegen. Und irgendwie (per extra Menüpunk...
19.03.2009 11:41:16
Thread-ID: 1061772
10 Beiträge
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
Automatisch berechnen nur in einem Tabellenblatt
Gerrit

Moin,
habe das automatische berechnen gernerell ausgeschaltet, jedoch bei einem Tabellenblatt brauche ist es.
Gibt's hier ne Möglichkeit?
Vielen Dank!
Gerrit
20.06.2009 23:56:05
Thread-ID: 1083169
22 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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
13
10
2
9
2
7
21
5
7
13
2
4
3
5
4
5
7
6
12
3
12
8
2