Thema Datum  Von Nutzer Rating
Antwort
22.02.2017 12:21:46 Robert
Solved
Blau "Specihern unter" öffnen, Dateiformat ändern
 22.02.2017 16:22:12 BigBen
Solved
23.02.2017 07:54:19 Robert
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
22.02.2017 16:22:12		 Views:
592		 Rating:
     
Antwort:
 Nein
Thema:
"Specihern unter" öffnen, Dateiformat ändern

Hallo,

verwende doch künftig bitte einen anderen Browser zum Erstellen eines Beitrags in diesem Forum. Manche Browser sind nicht in der Lage, die Inhalte standardkonform zu übertragen.

Ich verwende den Mozilla Firefox als Browser.

Der vorhandene VBA-Code brauch nur etwas ergänzt werden:

Sub Speichern()
    Const C_CLASS_MSFORMS_DATAOBJECT As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
    ' Dim o As MSForms.DataObject ' EarlyBinding
    Dim o As Object ' LateBinding (nur nötig wenn keine Userform vorhanden ist)
    Dim s As String
    ' Set o = New MSForms.DataObject ' EarlyBinding
    Set o = CreateObject(C_CLASS_MSFORMS_DATAOBJECT) ' LateBinding
    s = Range("B15").Text
    'Call o.SetText(s, 1)
    'Call o.PutInClipboard
    Set o = Nothing
    ChDir "C:\Users\epa01\Desktop\Aktuelle_Messung"
    Application.Dialogs(xlDialogSaveAs).Show s, 52
End Sub

Der Umweg über die Zwischenablage kan ebenfalls entfallen, da der Dateiname als Parameter dem Show-Parameter übergeben wird.

52 steht für den Dateityp xlsm.

Quelle: http://www.office-loesung.de/ftopic331494_0_0_asc.php

LG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.02.2017 12:21:46 Robert
Solved
Blau "Specihern unter" öffnen, Dateiformat ändern
 22.02.2017 16:22:12 BigBen
Solved
23.02.2017 07:54:19 Robert
NotSolved