MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 22.10.2017, 13:11   #1
Jack Raiden
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - VBA - Speichern unter Dialog

Hallo alle miteinander,

ich möchte eine Funktion in meine Excel Tabelle einbauen welche die vorhandenen Daten verändert. Damit der Benutzer aber die vorhandene Tabelle nicht einfach überschreibt, möchte ich vorher den „Speichern unter“ Dialog aufrufen damit er die Datei unter einem neuen Namen abspeichert. Problem an der Sache ist, dass der Benutzer den „Speichern unter“ Dialog ja auch einfach schließen kann ohne die Datei neu abzuspeichern. Ich würde daher gern in einer IF Abfrage herausfinden ob der Speichern Knopf des Dialogs gedrückt wurde oder nicht. Kann mir evtl. jemand verraten wie das geht?

Außerdem habe ich noch folgende Frage:
Wenn der Speichern unter Dialog auftaucht möchte ich einen Dateinamen vorgeben. Doch leider funktioniert dieser Code nicht:
Code:

    Application.Dialogs(xlDialogSaveAs).Show dateiName, 52
Dieser Code funktioniert hingegen schon.
Code:

    Application.Dialogs(xlDialogSaveAs).Show "test", 52
Wisst Ihr warum das so ist?
Jack Raiden ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.10.2017, 13:23   #2
Manuel352
MOF User
MOF User
Standard

Hallo,

zu deiner zweiten Frage wegen dem Dateinamen vorgeben, würde ich dies hier mal versuchen.

PHP-Code:

Dim Filename As String

    
 Filename 
ThisWorkbook.Name                               
  Filename 
Left(ActiveWorkbook.NameLen(ActiveWorkbook.Name)-5
Hiermit deklarierst du den Dateinamen und er sollte nun zur Verfügung stehen. Bei mir Funktioniert es so in mehreren Dateien wunderbar.

Mit dem ersten Befehl erhältst du den Dateinamen mit Dateiformat (also xlsm) und mit dem zweiten ohne Dateiformat.



So hab ich es gerade mal versucht und es funktioniert:

PHP-Code:

Sub test()

Dim Filename As String
     
 Filename 
ThisWorkbook.Name
  Filename 
Left(ActiveWorkbook.NameLen(ActiveWorkbook.Name) - 5)

Application.Dialogs(xlDialogSaveAs).Show Filename52


End Sub 
Gruß Manuel

Geändert von Manuel352 (22.10.2017 um 13:33 Uhr).
Manuel352 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.10.2017, 13:52   #3
Jack Raiden
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

@Manuel352
Da ich nicht nur den Dateinamen sondern auch den Pfad vorgeben möchte, habe ich das so gemacht:
Code:

    dateiName = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".") - 1) + " " + datum
Ich schätze mal es liegt an der Pfadangabe. Kann man diese auch anders umsetzen?
Jack Raiden ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.10.2017, 14:04   #4
Nepumuk
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Jack,

teste mal:

Public Sub Beispiel()
    Dim strFilename As String
    With ThisWorkbook
        strFilename = Left$(.FullName, InStrRev(.FullName, ".") - 1) & _
            " " & Format$(Date, "yyyy_mm_dd")
    End With
    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 2
        .InitialFileName = strFilename
        If .Show = -1 Then
            .Execute
        Else
            MsgBox "Abbrechen gedrückt!"
        End If
    End With
End Sub

__________________

Gruß
Nepumuk
Nepumuk ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.10.2017, 14:19   #5
Jack Raiden
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Genau so hab ich mir das vorgestellt. Tausend Dank dafür :-)
Jack Raiden ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:30 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.