Thema Datum  Von Nutzer Rating
Antwort
Rot Blatt als Datei abspeichern
 02.09.2018 18:40:42 Alexander
NotSolved
02.09.2018 19:21:15 xlKing
NotSolved
02.09.2018 19:26:02 Gast2857
NotSolved
02.09.2018 19:33:42 Gast97626
NotSolved
03.09.2018 21:15:56 Ulrich
NotSolved
04.09.2018 12:26:48 xlking
NotSolved

Ansicht des Beitrags:
Von:
Alexander		 Datum:
02.09.2018 18:40:42		 Views:
1010		 Rating:
     
Antwort:
  Ja
Thema:
Blatt als Datei abspeichern
Hallo Leute :)
 
ich bin nun schon seit einiger Zeit auf der Suche nach einem passenden Script für mein Excel Makro - vielleicht könnt ihr mir ja weiterhelfen.
 
Ich möchte gerne ein bestimmtes Blatt in meinem Excel File als neue Datei mit vordefiniertem Namen abspeichern.
Den Speicherpfad soll er allerdings abfragen.
 
Ich habe nur Anleitungen für mehrere Blätter gefunden aber konnte mir diese nicht so zurecht basteln wie ich es gebraucht hätte...
 
Hier der Code der am nähesten rankommt:
 
 
Public bolAbfrage As Boolean

Sub Daten_exportieren()
Dim FileName As Variant
Dim Pfad As String
Dim FileExtension As String

If Not bolAbfrage Then
   FileName = Application.GetSaveAsFilename("Bulkupload_otimiert.xls")
   If FileName <> False Then
      Pfad = GetFullPath(FileName)
      FileExtension = GetFileExtension(FileName)
      bolAbfrage = True
   Else
      Exit Sub
   End If
End If

For i = 1 To ActiveWorkbook.Sheets.Count

Blatti = Sheets(i).Name

Sheets(i).Copy

ActiveWorkbook.SaveAs Pfad & ThisWorkbook.Name & "-" & Blatti & FileExtension '*** oder wie  _
auch immer deine Datei heißen soll.

ActiveWorkbook.Close

Next i

MsgBox "Dateien wurden erfolgreich erstellt und gespeichert!"
bolAbfrage = False
End Sub

Public Function GetFileExtension(ByVal FullPath As String) As String
GetFileExtension = Right(FullPath, Len(FullPath) - InStrRev(FullPath, ".", -1) + 1)
End Function

Public Function GetFullPath(ByVal FullPath As String) As String
GetFullPath = Left(FullPath, InStrRev(FullPath, "\", -1))
End Function
 
Dabei werden alle Blätter nacheinander abgespeichert. Bei mir soll es aber wie gesagt ein bestimmtes sein.
 
 
Ich bedanke mich schonmal bei euch für eure Hilfe :)
 
LG
Alex
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Blatt als Datei abspeichern
 02.09.2018 18:40:42 Alexander
NotSolved
02.09.2018 19:21:15 xlKing
NotSolved
02.09.2018 19:26:02 Gast2857
NotSolved
02.09.2018 19:33:42 Gast97626
NotSolved
03.09.2018 21:15:56 Ulrich
NotSolved
04.09.2018 12:26:48 xlking
NotSolved