Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1504to1508
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
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vba speichern ohne Makros

Vba speichern ohne Makros
15.07.2016 09:39:40
Sepp
Hallo zusammen,
wir haben eine Datei xlsm mit der wir eine Woche damit arbeiten.
Danach wird sie neu abgespeichert mit xls weil die Übertragung ins andere Programme nur xls zulässt. Beim übertragen kommt immer die Meldung Makro aktivieren oder deaktiviert.
Kann man per Vba machen,wenn Speichern unter xls dann makros deaktiviert.
Besten Dank
Sepp

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vba speichern ohne Makros
15.07.2016 09:49:35
baschti007
Hey Sepp
das hier dann kommt die Meldung nicht
Application.DisplayAlerts = False
AW: Vba speichern ohne Makros
15.07.2016 12:30:06
Sepp
Hallo wo und wie muss ist das machen?
Diese Arbeitsmappe mit 

Sub und End Sub
Gruß sepp
AW: Vba speichern ohne Makros
15.07.2016 12:43:44
baschti007 

Sub datei_save()
Dim DateiName As String
DateiName = "HansWurst"
Application.DisplayAlerts = False '-- Wenn datei vorhanden wird sie überschieben und es wird  _
nicht nachgefragt
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("USERNAME") & "\Desktop\" & DateiName & " _
.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False    '-- Wird auf dem Desktop gespeichert
End Sub

Anzeige
AW: Vba speichern ohne Makros
17.07.2016 17:11:26
Sepp
hey danke aber der Speicher Ort ist immer wo anderst. Macht das was aus?
LG sepp
AW: Vba speichern ohne Makros
18.07.2016 07:27:25
baschti007
Soo ?
Sub datei_save()
Dim DateiName As String
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker) '--- Ordner wählen
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1)  "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!") Else MsgBox strOrdner
DateiName = "HansWurst"
Application.DisplayAlerts = False '-- Wenn datei vorhanden wird sie überschieben und es wird _
nicht nachgefragt
ActiveWorkbook.SaveAs Filename:=strOrdner & DateiName & " .xlsx ", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False    '-- Wird auf dem Desktop gespeichert"
End Sub

Anzeige
AW: Vba speichern ohne Makros
18.07.2016 07:29:02
baschti007
Ahh so
Sub datei_save()
Dim DateiName As String
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker) '--- Ordner wählen
.InitialFileName = "C:\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1)  "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then MsgBox ("Kein Ordner gewählt!"): Exit 


Sub Else MsgBox strOrdner
DateiName = "HansWurst"
Application.DisplayAlerts = False '-- Wenn datei vorhanden wird sie überschieben und es wird _
nicht nachgefragt
ActiveWorkbook.SaveAs Filename:=strOrdner & DateiName & " .xlsx ", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False    '-- Wird auf dem Desktop gespeichert"
End Sub
Anzeige
super danke :-)
18.07.2016 08:01:15
Sepp
.
super danke :-)
18.07.2016 08:52:20
Sepp
.
Kein Ding ;)
18.07.2016 13:12:47
baschti007

47 Forumthreads zu ähnlichen Themen

Datei speichern aber ohne Makros und VBA
Thomas

Hallo alle zusammen,
ich verstehe es einfach nicht, obwohl ich im Archiv mir schon alles reingezogen habe. Könnt Ihr mir bitte helfen?
Ich habe eine Datei mit sehr vielen Modulen, Formularen und Klassenmodulen sowie Makros in Tabellen und "DieseArbeitsmappe".
Da die Datei dadurch se...
23.10.2008 15:49:00
Thread-ID: 1018710
5 Beiträge
Anzeige
VBA: Datei ohne Makros speichern
André

Moin zusammen,
gegeben ist eine Exceldatei mit Makros (.XSLM).
In dieser Datei soll nun ein Makro folgendes tun:
- die Datei speichern, wobei der User den Dateinamen und Pfad angeben darf
- die Datei darf nur in den Formaten XLSX oder XlS, in jedem Fall aber ohne Makros gespeich...
19.04.2010 13:13:27
Thread-ID: 1152560
8 Beiträge
Mit Makro Makros löschen und speichern
Tilo

Hallo,
ich möchte aus einer vorhandenen Excel-Datei mit vielen Makros eine neue Datei erzeugen bzw. abspeichern die keine Makros mehr enthällt.
In einem 'Private_Sub_Workbook_Open' werden momentan in meiner Arbeitsmappe einige Makros angestossen und am Ende soll die Ursprungsdatei zunäc...
03.10.2010 21:28:37
Thread-ID: 1180509
7 Beiträge
Anzeige
Datei schließen ohne speichern?
heidi

Hallo Excel-Gemeinde,
ich lade von extern die Datei "wbkundenanalyse".
Nachdem ich sie für meine Zwecke "benutzt" habe (Formatierungen geändert, usw.), möchte ich sie wieder schließen ohne zu speichern.
Wie kann die die Abfrage ausschalten: Sollen Ihre Änderungen in ..... gespeiche...
31.01.2011 15:38:15
Thread-ID: 1198264
3 Beiträge
Speichern ohne Dateiendung. Warum nur?
chandler

Hallo,
nach langer Recherche habe ich mich entschlossen doch zu fragen.
Möchte gerne einzelne Tabelle/n speichern als Tabellenname mit aktuellem Datum.
Habe leider zwei Fragen:
1. Warum wird die Filename extension XLS respektive XLSM (Excel 2010) nicht angehängt?
2. Unter...
06.01.2012 08:53:56
Thread-ID: 1244831
20 Beiträge
variable Chart und Worksheet ohne Makros speichern
Thomas

Hallo an Alle,
in dem unten stehenden Code wird eine Text-Datei in ein neues Tabellenblatt importiert und daraus in einem neuen Tabellenblatt ein Diagramm erzeugt. Anschließend wird die Mappe unter dem Tabellenblattnamen in einer neuen Mappe gespeichert und die beiden erzeugten Tabellenblä...
04.06.2012 16:48:59
Thread-ID: 1265987
4 Beiträge
Sheet als neue Datei ohne Makros, Laufzeitfehler 9
onkelbobby

Hi,
ich habe eine Datei aus der ich ein Sheet in eine neue Datei speichern möchte, jedoch ohne Makros.
Hier mein Code:
Sub AEinfügen() If Len(Dir("C:\ZB Liste Excel", vbDirectory)) = 0 Then MkDir "C:\ZB Liste Excel" End If ActiveSheet.Copy ActiveWorkbook.SaveAs "C:\ZB Liste Excel\"...
01.08.2012 11:47:56
Thread-ID: 1273365
8 Beiträge
Datei ohne Makro abspeichern mit bestimmtem Namen
Simon

Hallo Forumsgemeinde,
ich brauche mal eure Hilfe.
Ich habe eine .xlsm - Datei als firmeninternes Dokument mit einem kleinen Makro drinnen. Ich möchte aus diesem Dokument mittels einer Schaltfläche eine Kundenversion erstellen.
Beim Makro selber fehlt mir jedoch das Wissen.
Die D...
26.10.2012 11:41:30
Thread-ID: 1283983
7 Beiträge
Anzeige

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
4
12
7
6
4
2
19
3
7
6
5
2
1
4
4
5
14
1
2
2
3
3
1
11
2