Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle als Datei speichern

Forumthread: Tabelle als Datei speichern

Tabelle als Datei speichern
22.12.2017 10:33:00
Sigrid
Guten Morgen,
vielleicht kann jemand helfen.
Ich möchte gern eine Tabelle also Sheet als Eigenständige Datei speichern.
Also der Sheet-Name ist "Sigrid" und die Datei soll also als
"Sigrid.xlms" gespeichert werden, danach möchte ich die
neue Datei noch bearbeiten und dann speichern/schließen.
Die Orginaldatei soll im Hintergrund offen bleiben, damit
ich später weiter arbeiten kann.
gruß
sigrid
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle als Datei speichern
22.12.2017 10:40:14
Sepp
Hallo Sigrid,
Sub saveSheet()
Dim strPath As String

strPath = ThisWorkbook.Path 'oder ="C:\Sigrid"

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

Sheets("Sigrid").Copy

With ActiveWorkbook
  .SaveAs Filename:=strPath & Sheets(1).Name & ".xlsm", FileFormat:=52
  .Close
End With

End Sub

Gruß Sepp

Anzeige
ich kaufe noch einen . ;-)
22.12.2017 10:48:01
Sepp 
Sub saveSheet()
Dim strPath As String

strPath = ThisWorkbook.Path 'oder ="C:\Sigrid"

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

Sheets("Sigrid").Copy

With ActiveWorkbook
  .SaveAs Filename:=strPath & .Sheets(1).Name & ".xlsm", FileFormat:=52
  .Close
End With

End Sub

Gruß Sepp

Anzeige
Sepp super...kann man noch
22.12.2017 10:54:49
Sigrid
Guten Morgen Sepp,
sehr schnell !
Funktioniert, kann man noch den Speicherort auswählen über ein Menü
oder so ?
gruß
sigrid
AW: Sepp super...kann man noch
22.12.2017 10:57:25
Sepp
Hallo Sigrid,
kein Problem.
Sub saveSheet()
Dim strPath As String

With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ThisWorkbook.Path  'oder "C:\Sigrid"
  .Title = "Ordnerauswahl"
  .ButtonName = "Auswahl..."
  .InitialView = msoFileDialogViewList
  If .Show = -1 Then
    strPath = .SelectedItems(1)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  End If
End With

If Len(strPath) Then
  
  Sheets("Sigrid").Copy
  
  With ActiveWorkbook
    .SaveAs Filename:=strPath & .Sheets(1).Name & ".xlsm", FileFormat:=52
    .Close
  End With
End If

End Sub


Gruß Sepp

Anzeige
Ja aber...
22.12.2017 11:11:12
Sigrid
Hallo Sepp,
das aktuelle Verzeichnis wird aufgerufen, kommt allerdings Hinweis
"Sigrid" Pfad ist nicht vorhanden, obwohl vorhanden ist.
Wenn ich dann auf das Verzeichnis klicke klappt es.
Ich wollte dies auch meinem Kollegen geben, wenn kein Verzeichnis angelegt wurde,
kann man dies ggf. auch erstellen ?
Geht das noch weiter, wenn Datei vorhanden Info und ggf. den Namen ändern ?
Der Sheet Name steht in Zelle B2.
Würde mich freuen wenn dies alles noch klappt !!!
gruß
sigrid
Anzeige
AW: Ja aber...
22.12.2017 11:28:46
Sepp
Hallo Sigrid,
alles kein Problem, habe jetzt aber keine Zeit, erst am Abend wieder.
Gruß Sepp

Super Sepp würde mich freuen !
22.12.2017 11:35:10
Sigrid
Hallo Sepp,
danke im Voraus,
freu mich auf heute Abend.
gruß
sigrid
Anzeige
AW: Super Sepp würde mich freuen !
22.12.2017 14:34:13
Sepp
Hallo Sigrid,
war doch schneller als gedacht.
' **********************************************************************
' Modul: Modul3  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub saveSheet()
Dim strPath As String, strFileName As String, strNewName As String

Const cstrTabToCopy As String = "Sigrid" 'Tabelle die kopiert werden soll - Anpassen!

With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ThisWorkbook.Path  'oder "C:\Sigrid"
  .Title = "Ordnerauswahl"
  .ButtonName = "Auswahl..."
  .InitialView = msoFileDialogViewList
  If .Show = -1 Then
    strPath = .SelectedItems(1)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  End If
End With

If Len(strPath) Then
  strFileName = strPath & Sheets(cstrTabToCopy).Range("B2").Text & ".xlsm"
  If Dir(strFileName, vbNormal) <> "" Then
    strNewName = InputBox("Die Datei" & vbLf & "'" & strFileName & "'" & vbLf & _
      "ist bereits vorhanden!" & vbLf & vbLf & "Wollen sie einen neuen Namen vergeben?", _
      "Dateiname")
    If strNewName <> "" Then
      strFileName = strPath & Left(strNewName, InStr(1, strNewName, ".xls") - 1) & ".xlsm"
    Else
      Exit Sub
    End If
  End If
  
  Sheets(cstrTabToCopy).Copy
  
  With ActiveWorkbook
    .SaveAs Filename:=strFileName, FileFormat:=52
    .Close
  End With
End If

End Sub

Beim Folder-Dialog muss man immer einen Ordner anklicken, sonst kommt die Fehlermeldung!
Einen neuen Ordner kann man direkt im Dialog über die Schaltfläche 'Neuer Ordner' anlegen.
Wenn die Datei schon vorhanden ist, öffnet sich ein Dialog, der zur Eingabe eines neuen Namens auffordert.
Gruß Sepp

Anzeige
Leider Fehlermeldung
22.12.2017 19:38:43
Sigrid
Hallo Sepp,
danke für das Schnelle.
Wie kann ich die Zeile ändern:
Const cstrTabToCopy As String = "ActiveSheet.Name" '"Sigrid" 'Tabelle die kopiert werden soll - Anpassen!
funktioniert nicht, es soll ja der Name der aktivenSheet übernommen werden.
Wenn der Name schon im Verzeichnis vorhanden ist, ich ändere diesen z.b. in weber, dann
wird eine Fehlermeldung ausgegeben:
"Laufzeitfehler 9
Ungültiger Prozeduraufruf oder ungültiges Argument"
mfg
sigrid
Anzeige
AW: Leider Fehlermeldung
22.12.2017 19:50:11
Sepp
Hallo Sigrid,
dann so.
' **********************************************************************
' Modul: Modul3  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub saveSheet()
Dim strPath As String, strFileName As String, strNewName As String
Dim strTabToCopy As String

strTabToCopy = ActiveSheet.Name 'Tabelle die kopiert werden soll - Anpassen!

With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ThisWorkbook.Path  'oder "C:\Sigrid"
  .Title = "Ordnerauswahl"
  .ButtonName = "Auswahl..."
  .InitialView = msoFileDialogViewList
  If .Show = -1 Then
    strPath = .SelectedItems(1)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  End If
End With

If Len(strPath) Then
  strFileName = strPath & Sheets(strTabToCopy).Range("B2").Text & ".xlsm"
  Do
    If Dir(strFileName, vbNormal) <> "" Then
      strNewName = InputBox("Die Datei" & vbLf & "'" & strFileName & "'" & vbLf & _
        "ist bereits vorhanden!" & vbLf & vbLf & "Wollen sie einen neuen Namen vergeben?", _
        "Dateiname")
      If strNewName <> "" Then
        If InStr(1, strNewName, ".xls") > 0 Then strNewName = Left(strNewName, InStr(1, strNewName, ".xls") - 1)
        strFileName = strPath & strNewName & ".xlsm"
      Else
        Exit Sub
      End If
    End If
  Loop While Dir(strFileName, vbNormal) <> "" And strNewName <> ""
  
  Sheets(strTabToCopy).Copy
  
  With ActiveWorkbook
    .SaveAs Filename:=strFileName, FileFormat:=52
    .Close
  End With
End If

End Sub

Gruß Sepp

Anzeige
Super aber...
22.12.2017 20:06:56
Sigrid
Hallo Sepp,
keine Fehlermeldung.
Aber wie bekomme ich den neuen Namen, wenn also schon vorhanden, in die Zelle B2,
damit vor dem Speichern der Sheetname auch geändert ist.
Ich hatte dies eingesetzt: 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = True
If Target.Address = "$B$2" Then
ActiveSheet.Name = ActiveSheet.Range("B2")
ActiveSheet.Range("B2").Select
End If
End Sub
gruß
sigrid
Anzeige
AW: Super aber...
22.12.2017 20:23:42
Sepp
Hallo Sigrid,
' **********************************************************************
' Modul: Modul3  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub saveSheet()
Dim strPath As String, strFileName As String, strNewName As String
Dim objTabToCopy As Object

Set objTabToCopy = ActiveSheet

With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ThisWorkbook.Path  'oder "C:\Sigrid"
  .Title = "Ordnerauswahl"
  .ButtonName = "Auswahl..."
  .InitialView = msoFileDialogViewList
  If .Show = -1 Then
    strPath = .SelectedItems(1)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  End If
End With

If Len(strPath) Then
  strFileName = strPath & objTabToCopy.Range("B2").Text & ".xlsm"
  Do
    If Dir(strFileName, vbNormal) <> "" Then
      strNewName = InputBox("Die Datei" & vbLf & "'" & strFileName & "'" & vbLf & _
        "ist bereits vorhanden!" & vbLf & vbLf & "Wollen sie einen neuen Namen vergeben?", _
        "Dateiname")
      If strNewName <> "" Then
        If InStr(1, strNewName, ".xls") > 0 Then strNewName = Left(strNewName, InStr(1, strNewName, ".xls") - 1)
        strFileName = strPath & strNewName & ".xlsm"
      Else
        Exit Sub
      End If
    End If
  Loop While Dir(strFileName, vbNormal) <> "" And strNewName <> ""
  
  If strNewName <> objTabToCopy.Name Then
    Application.EnableEvents = False
    objTabToCopy.Name = strNewName
    objTabToCopy.Range("B2") = strNewName
    Application.EnableEvents = True
  End If
  
  objTabToCopy.Copy
  
  With ActiveWorkbook
    .SaveAs Filename:=strFileName, FileFormat:=52
    .Close
  End With
End If

End Sub

Gruß Sepp

Anzeige
Du hast es aber drauf !!! Danke
22.12.2017 20:37:33
Sigrid
Hallo Sepp,
SUPER herzlichen Dank !
Vielleicht kannst Du mir helfen !?
Habe mir vorhin ein Makro kopiert:
'---- hiermit werden Dateien aktiviert ----------- 
Private Sub lstOffeneMappen_Change()
Dim Sh As Object
Dim wb As Workbook
With lstOffeneMappen
Set wb = Application.Workbooks(.List(.ListIndex))
End With
lstBlätter.Clear
For Each Sh In wb.Sheets
lstBlätter.AddItem Sh.Name
Next Sh
lstBlätter.ListIndex = 0
'Sheets(lstBlätter.ListIndex + 1).Activate
wb.Activate
!!!!!!!!!!!Me.Label1 = ThisWorkbook.Sheets.Count
End Sub
Die Dateien werden in der Listbox eingelesen, wenn ich aber in der Listbox
eine Datei mit mehreren Sheet auswähle, wird die Anzahl nicht angezeigt.
Die Zeile steht auch in der 

Private Sub UserForm_Initialize()
Weiß nicht warum !
gruß
sigrid
Anzeige
AW: Du hast es aber drauf !!! Danke
22.12.2017 20:40:24
Sepp
Hallo Sigrid,

Me.Label1 = wb.Sheets.Count
Gruß Sepp

Super Danke .... -)
22.12.2017 20:55:57
Sigrid
Hallo Sepp,
danke für die Unterstützung !
Ich wünsch Dir jetzt schon ein frohes Fest und
ein gesundes, erfolgreiches Jahr !!!
mfg
sigrid
Anzeige
Das wünsch ich Dir auch! o.T.
22.12.2017 20:59:28
Sepp
Gruß Sepp

AW: Tabelle als Datei speichern
22.12.2017 10:45:59
fcs
Hallo Sigrid,
etwa so. Als Verzeichnis für die zu speichernde Datei hab ich das Verzeichnis der Mappe mit dem Blatt "Sigrid" definiert - ggf. anpassen: 
Sub CopySigrid()
Dim wkb As Workbook
Dim sPfad As String
If MsgBox("Blatt ""Sigrid"" kopieren?", vbQuestion + vbOKCancel, _
"Blatt ""Sigrid"" in neue Datei") = vbCancel Then Exit Sub
sPfad = ActiveWorkbook.Path & "\"   'Verzeichnis ggf. anpassen
ActiveWorkbook.Worksheets("Sigrid").Copy
Set wkb = ActiveWorkbook
wkb.SaveAs Filename:=sPfad & "Sigrid.xlsm", FileFormat:=52 '52= _
xlOpenXMLWorkbookMacroEnabled
End Sub

Gruß
Franz
Anzeige
Hallo Franz klappt ebenfalls ...
22.12.2017 11:02:19
Sigrid
Guten Morgen Franz,
DANKE.
Funktioniert ebenfalls.
Ich würde jedoch den aktuellen Sheet-Namen übernehmen.
Wenn die neue Datei vorhanden ist soll dieser Name geändert werden,
der Name der Sheet steht in Zelle B2.
gruß
sigrid
;

Forumthreads zu verwandten Themen

Registerkarte als csv separat speichern
Herbert

Hallo,
ich möchte eine Registerkarte per Knopfdruck auf einen Button (Steuerelement) in eine neue Datei im Ordner C:\Temp speichern. Anbei der Code zum Speichern im txt-Format. Kann man diese auf das Ausgabeformat csv modifizieren? Bin für jede Hilfe dankbar.
Gruß Herbert
Dim strSep...
16.10.2008 10:01:00
Thread-ID: 1016757
2 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
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Als csv automatisiert speichern
Herbert

Hallo,
noch eine Frage zur Speicherung eines Excel-Sheets in eine neue Datei.
Die Ausgangsdatei hat eine Registerkarte. Der Inhalt dieser Registerkarte soll im Pfad C:\temp\sicherung als .csv-Datei abgelegt werden. Der Dateiname soll "Saldierung_aktuelles Datum.csv" sein.
Leider wir...
20.11.2008 12:02:00
Thread-ID: 1026369
2 Beiträge
Tabellenblätter einzeln als Datei speichern
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 i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
3 Beiträge
Anzeige
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Anzeige
Makro .CSV importieren/Exportieren
Hugo

Hallo,
muß eine .CSV Datei kommagetrennt in Spalten importieren.
Dann nach dem Bearbeiten wieder in eine .CSV Datei exportieren.
Benötigt wohl ein Makro.
Danke.
https://www.herber.de/bbs/user/60798.xls
29.03.2009 22:48:27
Thread-ID: 1065136
15 Beiträge
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Anzeige
Tabellen als Grafiken exportieren
Christian

Hallo,
ich habe eine sehr breite Excel-Tabelle und würde diese gerne in ein Word-Dokument einfügen. Damit die Werte gut lesbar sind und sich auch die Fromatierung nicht ändert, würde ich gerne die Tabelle durch mehrere untereinanderstehende Grafiken in Word einsetzen. Im Prinzip also die ge...
24.06.2009 17:32:46
Thread-ID: 1084177
2 Beiträge
Daten aus csv in Tabelle
Daniel

Hallo zusammen,
mein Problem besteht darin, ich möchte aus einem festen Speicherort (z.B. C:/) 9 csv Dateien (gleicher Aufbau und immer gleich benannt) in eine bestehende Excel Datei (Auswertung.xls), in ein bestehendes Tabellenblatt (Menge) in die Spalten B - Inhalt der csv Datei 1, in Spa...
26.06.2009 07:48:35
Thread-ID: 1084276
2 Beiträge
Als *.csv bestimmte Bereiche speichern
mehmet

Hallo Forum,
wie kann ich bestimmte Bereiche als *.csv Datei speichern?
Wenn ich Makroaufzeichnung mache, wird alles gespeichert (;;;;;;;;;;;).
Beginnend soll die Abfrage Zelle H10.
Wenn H10 = leer, dann Makro ende, sonst nur Zelle C10, F10, G10, H10, i10 und AB10 als csv (;) sp...
16.11.2009 07:19:32
Thread-ID: 1117477
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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