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

makro starten

Forumthread: makro starten

makro starten
11.11.2014 11:17:21
caro
Liebe Excel Profis
Wie kann ich in Excel steuern, dass "speichern unter" mit Dateipfad-Vorgabe aktiviert wird, sobald der Anwender (falls an der Datei Änderungen vorgenommen wurden) die Datei schliessen oder speichern (Datei darf keinesfalls überschrieben werden!)will?
Danke für einen guten Vorschlag und Gruss
Caro

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro starten
11.11.2014 11:22:59
yummi
Hallo Caro,
das kannst du im Workbook mit Workbook_BeforeSave abfangen.
Gruß
yummi

AW: makro starten
11.11.2014 11:28:32
caro
Hallo Yummi
danke für die Antwort. wo und wie genau muss das im Code platziert werden? 
Sub Speichern_unter_aufrufen_mit_Pfadangabe()
Dim Dateiname As String
'Dateiname basteln - Jahr Monat Tag
Dateiname = Format(Date, "Notenberechnung-yyyy-mm-dd")
'Dialog "Speichern unter" aufrufen
'Pfad und Dateinamen vorgeben
Application.Dialogs(xlDialogSaveAs).Show "I:\test" & Dateiname
End Sub

Anzeige
AW: makro starten
11.11.2014 11:32:04
yummi
Hallo Caro,
im VBA Editor auf Arbeitsmappe doppelklicken, dann von Allgemein auf Worksheet umstellen und rechts BeforeSave auswählen. Das erzeugt dir den Funktionsrumpf, in den du dein Code packen kannst.
Gruß
yummi

AW: makro starten
11.11.2014 11:27:59
ChrisL
Hi Caro
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.EnableEvents = False
Cancel = True
If SaveAsUI Then
Application.Dialogs(xlDialogSaveAs).Show ("Text"), xlOpenXMLWorkbookMacroEnabled
Else
ThisWorkbook.Save
End If
Application.EnableEvents = True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved = False Then
Select Case MsgBox("Sollen Ihre Änderungen in '" & ThisWorkbook.Name & "' gespeichert  _
werden?", vbYesNoCancel + vbExclamation)
Case vbYes
On Error Resume Next
Application.EnableEvents = False
If LCase(Right(ThisWorkbook.Name, 4))  "xlsm" Then
Application.Dialogs(xlDialogSaveAs).Show ("Text"), xlOpenXMLWorkbookMacroEnabled
Else
ThisWorkbook.Save
End If
Application.EnableEvents = True
Case vbNo
Me.Saved = True
Case vbCancel
Cancel = True
End Select
End If
End Sub

Alt+F11, links Doppelklick auf "DieseArbeitsmappe", Code einfügen.
cu
Chris

Anzeige
AW: makro starten
12.11.2014 09:12:26
caro
Hallo ChrisL
Vielen DAnk für die Antwort. Ich habe die Codes eingesetzt, nun kommt eine Syntax-Fehlermeldung. Das unten Fettgedruckte wird rot angezeigt... kannst du mir hier nochmal weiterhelfen?
Vielen DAnk!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved = False Then
Select Case MsgBox("Sollen Ihre Änderungen in '" & ThisWorkbook.Name & "' gespeichert  _
werden?", vbYesNoCancel + vbExclamation)
    Case vbYes
On Error Resume Next
Application.EnableEvents = False
If LCase(Right(ThisWorkbook.Name, 4))  "xlsm" Then
Application.Dialogs(xlDialogSaveAs).Show ("Text"), xlOpenXMLWorkbookMacroEnabled
Else
ThisWorkbook.Save
End If
Application.EnableEvents = True
Case vbNo
Me.Saved = True
Case vbCancel
Cancel = True
End Select
End If
End Sub

Anzeige
AW: makro starten
12.11.2014 09:32:09
ChrisL
Hi
Probier mal so... (Zeilenumbruch-Problem)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved = False Then
Select Case MsgBox("Sollen Ihre Änderungen in '" & ThisWorkbook.Name & _
"' gespeichert werden?", vbYesNoCancel + vbExclamation)
Case vbYes
On Error Resume Next
Application.EnableEvents = False
If LCase(Right(ThisWorkbook.Name, 4))  "xlsm" Then
Application.Dialogs(xlDialogSaveAs).Show ("Text"), xlOpenXMLWorkbookMacroEnabled
Else
ThisWorkbook.Save
End If
Application.EnableEvents = True
Case vbNo
Me.Saved = True
Case vbCancel
Cancel = True
End Select
End If
End Sub

cu
Chris

Anzeige
AW: makro starten
12.11.2014 10:01:09
caro
Vielen Dank Chris, das klappt jetzt! Wenn ich die Datei schliessen will, kommt die Frage, ob ich die Datei speichern will. Nun hätte ich aber gerne, dass nur "Speichern unter", vorzugsweise als normale xls Datei ohne Makro möglich ist, so dass niemand meine xlm Datei überschreiben kann (ausser mir bei Bedarf)...
Mein Ziel ist es, eine Excel-Vorlage zu haben analog einer WORD-Vorlage(.../Dateiname.dot), die jeder aufrufen kann, daran arbeiten, ausfüllen etc., die aber beim Speichern nur als neue Datei (.../Dateiname.doc) gespeichert werden kann.
Vielleicht gibt es dafür ja auch eine einfachere Variante, als VBA-Programmierung!?

Anzeige
AW: makro starten
12.11.2014 11:11:19
ChrisL
Hi Caro
Das kannst Du mit Excel genau gleich wie in Word machen d.h. als Vorlage abspeichern. Die Endung lautet dann *.xltm.
cu
Chris

AW: makro starten
12.11.2014 14:57:32
Caro
Hallo Chris
Das hatte ich probiert, leider war die Datei mit der Erweiterung *.xltm dann am Speicherort auf dem Laufwerksordner aber nicht sichtbar (?!) Zwar stand mir das File beim Öffnen von Excel als benutzerdefinierte Vorlage zur Verfügung, das war aber nicht das, was ich eigentlich wollte (Zugriff für alle Mitarbeiter). Nun habe ich es zuhause (Excel 2010) nochmals versucht und siehe da, es funktioniert bestens. Könnte es an einer mir unbekannten Einstellung an meinem Arbeitsplatz-PC liegen,dass xltm-Dateien dort im Explorer nicht aufgelistet werden?
Das Speichern-unter-Problem jedenfalls ist hiermit für mich gelöst. Vielen Dank für die Hilfe!
Grüsse
Caro

Anzeige
AW: makro starten
12.11.2014 15:43:48
ChrisL
Hi Caro
Danke für Dein Feedback. Keine Ahnung woran es gelegen hat, vielleicht unbewusst an einem anderen Ort gespeichert (bei Wechsel auf Vorlage wird mir immer ein anderer Pfad vorgetragen und klick mich dann manuell durch die Ordner). Aber Hauptsache es funktioniert jetzt ;)
lg
Chris
Anzeige
;

Forumthreads zu verwandten Themen

AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Makro starten
Christian

Gibt es einen Weg wie man ein Makro durch einen einfachen oder doppelklick auf eine Zelle innerhalb eines Blattes startet?
Per hyperlink kann man keine Makros starten und ein entsprechendes Ereignis innerhalb des Blattcodes scheint es auch nicht zu geben.
Gruß Christian
27.08.2008 14:11:00
Thread-ID: 1005084
5 Beiträge
Makro startet nicht
Peter

Hallo!
Ich habe hier im Forum einen Code entdeckt der genau das bewirkt was ich brauche. Nur leider startet das Makro nicht. Eine Fehlermeldung "Fehler beim Kompilieren. Außerhalb einer Prozedur ungültig" beendet den Vorgang noch bevor er wirklich gestartet wurde.
Ich habe versucht, den...
10.09.2008 23:19:36
Thread-ID: 1008947
5 Beiträge
Anzeige
Tabellenblatt wählen -> Makro startet
Gordon

Moin,
möchte gerne, dass ein Makro startet, wenn das Tabellenblatt "Tabelle1" selktiert wird. Ist das möglich, und wenn ja, wie hat dieser Code auszusehen? Der muss doch dann bestimmt in "dieseArbeitsmappe"?
Danke schon mal für die Hilfe....
Gruß
Gordon
18.09.2008 19:10:00
Thread-ID: 1010839
4 Beiträge
Nach erfolgter Eingabe in Zelle makro starten
Frank

Hallo Excel-Experten!
Dank eurer Hilfe oder durch den Makrorecorder habe ich in VBA schon einiges umsetzen können und bilde mir ein, dass es mich weiter bringt. Dafür schon mal Danke!!! Durch letzteren lies ich mir ein Makro zur Formatierung eines bestimmten Bereiches aufzeichnen. Dieses Ma...
24.09.2008 20:58:00
Thread-ID: 1012165
3 Beiträge
Makro stürtzt bei mehrfacher Wiederholung ab
Felix

Hey Leute (VBA Profis),
kämpfe jetzt schon seit einiger Zeit mit meinem Makro herum.... Bei erstmaliger Anwendung funktioniert es auch relativ gut ..Wunder soll es geben.. wird das Makro jedoch ein zweites Mal aktiviert, so kommt es zu einem total Absturz.
Das Makro bleibt meistens a...
07.10.2008 11:28:00
Thread-ID: 1014664
4 Beiträge
Makro starten nach Auswahl über Pivot Schaltfläche
Martin

Hallo zusammen,
wie kann ich automatisch ein Makro starten, nachdem ich in einem Pivotdiagramm ein bestimmtes Schaltflächenfeld betätigt habe.
In meiner Datei werden die Pivotdaten entsprechend einer Auswahlliste in einem Schaltflächenfeld selektiert und angezeigt. Da mir die Formatier...
16.10.2008 20:14:19
Thread-ID: 1016980
2 Beiträge
makro startet nicht
Rolf

Hallo Leute!
Ein rätzelhaftes versagen!
makro will nicht starten!
Private Sub Worksheet_Calculate() Application.EnableEvents = False If Range("A1").FormulaLocal > "" Then Range("A2").FormulaLocal = "=WECHSELN(A1;"","";""."")*1" If Range("A2") >= 10 Then Call Filterung End If...
18.10.2008 12:11:01
Thread-ID: 1017318
8 Beiträge
Anzeige
Symbolleisten und nur mit Makro starten
Arnold

Hallo,
habe von Excel 2003 auf excel 2007 gewechselt.
In excel 2003 klappt das Unterdrücken der Symbolleisten und start im vollbildmodus einwandfrei.
In Excel 2007 klappt das zwar auch, aber dann öffnen alle Mappen in Excel 2007 im vollbild und ohne Symbolleisten.
Meine Frage al...
01.12.2008 11:59:00
Thread-ID: 1029207
6 Beiträge
Über Zelle das Makro starten
derwich

Hallo Leute,
Ich habe ein Problem und zwar wie kann umsetzen:
wenn in Tabelle 2 in Zelle C5 der Wert 1 ist soll er mir aus der Tabelle3 die Werte von A4 bis A20 kopieren und in Tabelle1 in C4 bis C20 einfügen.
Danke schonmal im Voraus
10.12.2008 08:50:39
Thread-ID: 1031567
2 Beiträge
aus comboBox Makro starten?
KLausi

Hallo Excelfreunde,
habe eine combobox erstellt, nun habe ich ein Makro mit dem der Spezialfilter aktiviert wird und das Tab
beschreiben soll.
Nun gehe ich auf Code anzeigen
Private Sub ComboBox1_Change() Filtern End Sub
Filtern ist das Makro was mir nur Fehlermeldungen...
12.12.2008 18:49:00
Thread-ID: 1032506
3 Beiträge
Makro starten
Hans

Hallo Leute,
über ein makro lasse ich mehrere andere makros nacheinander starten, nun hab ich das problem das der zellwert einer zelle darüber entscheident ist welches makro ausgeführt werden soll, das funktioniert aber leider nicht, ich hoffe einer von euch kann mir weiterhelfen. hier der...
12.12.2008 22:13:31
Thread-ID: 1032532
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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