Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SaveCopyAs ?

SaveCopyAs ?
30.10.2019 12:33:00
Bernhard
Hallo Experten,
ich möchte eine Datei bei der ersten Speicherung als Kopie mit einem Namensvorschlag, der (z.B.) aus der Zelle A1 generiert wird, speichern. Die Ausgangsdatei soll unverändert geschlossen werden. Ich möchte also das, was bei der Speicherung einer schreibgestützten Datei passiert erzeugen, nur mit einem Namensvorschlag.
Habe nach Recherche mit ActiveWorkbook.SaveAs und SaveCopyAs herumprobiert, aber ohne Erfolg.
Gibt es dafür einen geeigneten Befehl ?
Mit freundlichen Grüßen
Bernhard

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SaveCopyAs ?
30.10.2019 13:32:30
Nepumuk
Hallo Bernhard,
so eventuell?
Public Sub Beispiel()
    Dim objFileDialog As FileDialog
    Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)
    With objFileDialog
        .FilterIndex = 2 '2 = .xlsm
        .InitialFileName = ThisWorkbook.Path & "\" & Tabelle1.Cells(1, 1).Text
        If .Show Then Call .Execute
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: SaveCopyAs ?
30.10.2019 19:28:34
Bernhard
Hallo Nepumuk,
vielen Dank !
Wo schreibe ich das hin ? Habe keine Erfahrung mit "Public Sub"
Gruß Bernhard
AW: SaveCopyAs ?
30.10.2019 19:51:37
Nepumuk
Hallo Bernhard,
ich weiß nicht wie du das haben willst. Beim Versuch des "normalen" Speicherns der schreibgeschützten Datei, über einen Button oder wie? Du schriebst "beim 1. speichern" was soll ich darunter verstehen?
Gruß
Nepumuk
AW: SaveCopyAs ?
30.10.2019 22:11:12
Bernhard
Hallo Nepumuk,
sorry, meine Worte waren etwas nebulös. Wahrscheinlich ist es ganz hilfreich zu sagen, was ich eigentlich damit erreichen will:
Die Ausgangsdatei ist eine etwas komplexe Eingabemaske, die von zahlreichen Nutzern verwendet wird. Wenn die Nutzer ihren Datensatz speichern, kreieren sie Dateinamen, die sie passend finden und halten sich eher nicht so genau an die vereinbarte Namensgebung.
Deshalb soll der richtige Name bei der Speicherung vorgeschlagen werden. Ich erspare dir Details und sage mal, dass er sich z.B. aus der Zelle A1 ableiten soll.
Es geht mit dabei nur um die erstmalige Speicherung der Datei. Danach ist es egal. Der Status "noch nicht gespeichert" soll in einer Zelle erkennbar sein, deren Ausgangswert 0 ist und nach erster Speicherung auf 1 gesetzt wird. So hatte ich mir das ausgedacht.
Gruß Bernhard
Anzeige
AW: SaveCopyAs ?
31.10.2019 09:53:29
Nepumuk
Hallo Bernhard,
dann rufe aus deinem Formular einfach diese Routine auf. Die Tabellennamen und Zellen musst du natürlich anpassen.
Public Sub Speichern()
Dim objFileDialog As FileDialog
Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)
With objFileDialog
.FilterIndex = 2 '2 = .xlsm
.InitialFileName = ThisWorkbook.Path & "\" & Tabelle1.Cells(1, 1).Text
If .Show Then
Call .Execute
Tabelle1.Cells(2, 1).Value = 2
End If
End With
End Sub

Gruß
Nepumuk
AW: SaveCopyAs ?
31.10.2019 14:10:45
Bernhard
Hallo Nepumuk,
ich habe nicht erwähnt, dass ein Sub Workbook Before Save mit ein paar Vorgängen vorhanden ist.
Macht das was ? Wahrscheinlich schon, oder ?
Wo schreibe ich es unter diesen Bedingungen hin ?
Gruß Bernhard
Anzeige
AW: SaveCopyAs ?
31.10.2019 14:44:20
Nepumuk
Hallo Bernhard,
lass mich mal den Code sehen.
Gruß
Nepumuk
AW: SaveCopyAs ?
31.10.2019 21:40:41
Bernhard 

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks1 As Worksheet
Set wks1 = Worksheets("Therapieplan")
If wks1.Cells(4, 55) = 1 Then
wks1.Cells(1, 52) = ""
wks1.Cells(2, 4) = ""
wks1.Cells(1, 17) = ""
wks1.Cells(2, 10) = ""
wks1.Cells(1, 2) = ""
wks1.Cells(1, 10) = ""
End If
wks1.Cells(3, 53) = 1
'Abschliessend Benutzeransicht auf Standard
Worksheets("Therapieplan").Select
wks1.Cells(4, 53) = 0
End Sub

AW: SaveCopyAs ?
02.11.2019 10:10:11
Nepumuk
Hallo Bernhard,
ruf einfach diese Routine auf:
Option Explicit

Public Sub Speichern()
    Dim objFileDialog As FileDialog
    If ThisWorkbook.ReadOnly Then
        With Worksheets("Therapieplan")
            .Cells(1, 52).Value = Empty
            .Cells(2, 4).Value = Empty
            .Cells(1, 17).Value = Empty
            .Cells(2, 10).Value = Empty
            .Cells(1, 2).Value = Empty
            .Cells(1, 10).Value = Empty
            .Cells(3, 53) = 1
            .Cells(4, 53) = 0
            'Abschliessend Benutzeransicht auf Standard
            Call .Select
        End With
        Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)
        With objFileDialog
            .FilterIndex = 2 '2 = .xlsm
            .InitialFileName = ThisWorkbook.Path & "\" & Cells(1, 1).Text 'Anpassen !!!
            If .Show Then
                Cells(4, 55).Value = 2 'notwendig ?
                Application.EnableEvents = False
                Call .Execute
                Application.EnableEvents = True
            End If
        End With
    Else
        ThisWorkbook.Save
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: SaveCopyAs ?
03.11.2019 18:19:24
Bernhard
Hallo Nepumuk,
vielen Dank für Deine Hilfe !
Gruß Bernhard
AW: SaveCopyAs ?
31.10.2019 21:42:31
Bernhard 

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks1 As Worksheet
Set wks1 = Worksheets("Therapieplan")
If wks1.Cells(4, 55) = 1 Then
wks1.Cells(1, 52) = ""
wks1.Cells(2, 4) = ""
wks1.Cells(1, 17) = ""
wks1.Cells(2, 10) = ""
wks1.Cells(1, 2) = ""
wks1.Cells(1, 10) = ""
End If
wks1.Cells(3, 53) = 1
'Abschliessend Benutzeransicht auf Standard
Worksheets("Therapieplan").Select
wks1.Cells(4, 53) = 0
End Sub

AW: SaveCopyAs ?
01.11.2019 23:45:49
Bernhard
Hallo Nepumuk,
kann ich den von Dir erstellten Code unter diesen Bedingungen (s. Code in vorheriger Nachricht) über Workbook_BeforeSave aufrufen ?
Gruß Bernhard
Anzeige

82 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
SaveCopyAs zerstört Formular?
Olaf Eichstaedt
Ich habe das Gleich gerade unter Windows 95 und mit meinem Excel 97SR2 probiert. Muss ich Euch verraten, dass es dort funktioniert, sprich keine misteriösen Fehlermeldungen produziert werden?
16.04.2002 22:06:23
Thread-ID: 113902
2 Beiträge
Hiiilfeeeee!!! SaveCopyAs - Fehler
Tobias

Hallöchen,
ich habe zwei echt nervende Fehler in meinem Code. habe ein relativ aufwendigen VBA - Code, deswegen kann ich den hier nicht komplett rein stellen. aber zu mindest bis zum ersten Problem kann ich ihn gern posten.
Also das Problem ist folgendes, ich habe eine Arbeitsmappe mit...
17.02.2010 16:24:54
Thread-ID: 1139210
2 Beiträge
Anzeige
SaveAs über VBA macht bei BeforeSave Probleme
norman

Hallo alle,
ich habe ein wirklich kniffeliges Problem, das bereits hier mal angegangen wurde (https://www.herber.de/forum/archiv/1144to1148/t1147360.htm und https://www.herber.de/forum/archiv/1144to1148/t1145651.htm, vielen Dank an dieser Stelle an Tino, entschuldige bitte, dass ich damals...
23.07.2010 17:21:36
Thread-ID: 1168218
11 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
SaveCopyAs-Methode
Iris

Hallo,
ich bräuchte dringend einen Rat. Ich möchte mithilfe eines Makros eine Kopie der aktuellen Datei erstellen. Das tut er auch. Leider funktionieren die Makros in der neu erstellten Datei nicht und die Symbolleiste, die sich sonst immer automatisch mit dem Programm öffnet, wird nicht ang...
12.05.2002 06:58:54
Thread-ID: 120235
2 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge

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
10
3
1
1
3
10
6
1
3
4
1
6
3
1
3
5
1
3
4
4
2
2
2
2
6