Application.FileDialog(msoFileDialogSave

Hallo Zusammen,
derzeit komme ich bei einem kleinen Projekt nicht weiter.
Folgende Aufgabe soll das Makro erledigen (Start des Makro durch Klick auf Button):
Aktuelles Arbeitsblatt ("30-60") kopieren - eine 8 stellige Nummer (SAP-Nr. erfragen) - den Speichern unter Dialog für das neue Arbeitsblatt aufrufen - dort schon den Pfad ausgewählt haben und den Namen nach einem Schema (Datum & SAP-Nr & Tabellenblattname) vorgeben - nach dem Klick auf speichern die neue Datei und die ggf. noch geöffnete Mappe (kopiertes Arbeitsblatt) schließen und den Fokus wieder auf die Ursprungsdatei setzen.
Mein Problem ist im Bereich - nach dem klick auf speichern die neue Datei und die ggf. noch geöffnete Mappe (kopiertes Arbeitsblatt) schließen und den Fokus wieder auf die Ursprungsdatei setzen.
Ich versuche auch das Klicken von Abbruch statt okay im Speichern unter Dialog abzufangen, dadurch passieren aber Dinge, die ich nicht nachvollziehen kann. Sie passieren für mich nicht sichtbar innerhalb von "Application.FileDialog(msoFileDialogSave)" diese Funktion verstehe ich offensichtlich nicht richtig.
Vielleicht kann mir jemand helfen. Anbei die Datei (https://www.herber.de/bbs/user/144266.xlsm)
Den Button / die Makrofunktion habe ich derzeit nur auf Tabellen(Arbeits-)blatt 30 - 60 implementiert. Wenn der Code einmal läuft, soll er für alle Arbeitsblätter gebutz werden (Anpassung der Bezeichnung 30-60 an den jeweiligen Namen des Blatts.
Passwort für den Arbeitsmappenschutz ist Probe (steht aber auch im Makro) ;-)
Vielen Dank schon einmal.
Grüße Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
Refaktorisierung, also Code unter die Lupe nehmen, und umgestalten. Amazing.
Dein Code lässt sich wie folgt kürzen/stützen. Die Teilung in Subs soll zu einer besseren thematischen Übersicht führen. Weniger verschachtelte Struktur.
Der Aufruf von FileDialog(msoFileDialogSaveAs) erlaubt die Auswahl einer Zieldatei, zwingt aber nicht damit zu speichern. Sogar besser separat zu handeln.
Der Aufruf der Makro machst Du am besten mit Alt+F8 anstatt Knopf. Sonst hast Du im gespeicherte Blatt ein Knopf ohne Code. Sollte Blatt unabhängig funktionieren.

Const cNetzLW = "N:"
Const cInitPfad = "N:\TE\Produkte\"
Public Sub AktuellesBlatt_speichern()
Dim SAPNummer As String
Dim DateiName As String
WorkbookSperre_setzen False
If Not Netzlaufwerk_testen(cNetzLW) Then Exit Function
SAPNummer = SAPNummer_abfragen(ActiveSheet.Name)
If SAPNummer = "" Then Exit Sub
DateiName = DateiName_abfragen(ActiveSheet.Name, SAPNummer)
If DateiName = "" Then Exit Sub
Tabelle_speichern ActiveSheet, DateiName
WorkbookSperre_setzen True
End Sub
Private Sub WorkbookSperre_setzen(Status As Boolean)
If Status Then
ThisWorkbook.Protect Password:="Probe", Structure:=True, Windows:=False 'aktiviert den  _
Arbeitsmappenschutz mit Passwort
Else
ThisWorkbook.Unprotect Password:="Probe"
End If
End Sub
Private Function Netzlaufwerk_testen(Netzlaufwerk As String) As Boolean
'Unter "Early Binding": Extra >> Verweise, "Microsoft Scripting Runtime"
Dim fs As newFileSystemObject
If fs.DriveExists(Netzlaufwerk) Then
Netzlaufwerk_testen = True
Else
MsgBox "Netzlaufwerk >" & Netzlaufwerk & "

Ungefragte Meinung: es wird viele bunte Elemente mit sehr wenige Information in unzählige Dateien gespeichert. Digitale Vermüllung von teueren Netzlaufwerk-Festplatten?
VG
Yal

Private Function BlattName_abfragen(BlattName) As String 'Auslesen des Tabellenblattnames, prüfen auf Sonderzeichen und Übernahme als Variable BlattName Dim BlattNameZeichen As String Dim i As Integer Dim Gültig As Boolean BlattName = ActiveSheet.Name Debug.Print BlattName 'Schleife, die unerlaubtes Zeichen entfernt For i = 1 To Len(BlattName) BlattNameZeichen = Mid(BlattName, i, 1) If BlattNameZeichen = "[" Or BlattNameZeichen = "]" Or BlattNameZeichen = "/" _ Or BlattNameZeichen = "\" Or BlattNameZeichen = ">" Or BlattNameZeichen = ":" _ Or BlattNameZeichen = "*" Then BlattName = Left(BlattName, i - 1) & "-" & Right(BlattName, Len(BlattName) - i) End If Next 'i Debug.Print BlattName BlattName_abfragen = BlattName End Function

Private Function BlattName_korrigieren(ByVal BlattName) As String 'Auslesen des Tabellenblattnames, prüfen auf Sonderzeichen und Übernahme als Variable BlattName Dim i As Integer Const ListeVerbotenen = "[]/\>: debug.print blattname die unerlaubtes zeichen entfernt for i="i" to len mid next blattname_abfragen="Trim(BlattName)" end function>

Beliebteste Forumthreads (12 Monate)

Application.FileDialog(msoFileDialogSave

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

284 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Application.FileDialog(msoFileDialogSave

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

284 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread