Thema Datum  Von Nutzer Rating
Antwort
05.05.2017 10:41:31 Mario
NotSolved
05.05.2017 10:58:54 Crazy Tom
NotSolved
05.05.2017 11:19:37 BigBen
Solved
05.05.2017 11:36:32 Gast16293
Solved
05.05.2017 12:16:10 BigBen
NotSolved
05.05.2017 11:17:26 BigBen
Solved
05.05.2017 11:35:51 Gast51360
NotSolved
Blau Datei nur mit Werten speichern
 05.05.2017 12:13:21 BigBen
Solved
05.05.2017 12:21:07 Gast16178
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
05.05.2017 12:13:21		 Views:
890		 Rating:
     
Antwort:
 Nein
Thema:
Datei nur mit Werten speichern

Hallo,

Nach dem Ändern der Formeln kann die Arbeitsmappe mit dem bestehenden Code gespeichert und geschlossen werden:

Sub Speichern_EPG()
    Dim sh As Worksheet
    Dim rng As Range
    ActiveWorkbook.Sheets.Copy
    
    For Each sh In ActiveWorkbook.Worksheets
        For Each rng In sh.UsedRange.Cells
            rng.Formula = rng.Value
        Next
    Next
    
    ' Kopie Speichern
    
    Dim ord As String
    Dim Dateiname As String
    Dim Antwort As Integer
    Dim Wert As String
    Dim rngZelle As Range
    Dim lngAnz As Long
    
    Wert = [A2].Value
    ord = "P:\gba\abteilungen\AEC\EPLAN\Data\Projekte\KEBA AG\" & Wert & ".edb" & "\DOC" & "\Angebot"
    If Dir(ord, vbDirectory) <> "" Then
        MsgBox "Ein Ordner mit dem Namen Angebot ist im Verzeichnis " & ord & " schon vorhanden!"
        MsgBox "Es wird kein Ordner angelegt das Dokument wird jedoch in den vorhandenen Ordner gespeichert!"
    Else
    Antwort = MsgBox("Der Ordner " & ord & " ist nicht vorhanden!" _
            & vbNewLine _
            & "Soll der Ordner angelegt werden?", vbYesNo)
        If Antwort = vbYes Then
            MkDir ord
            MsgBox "Der Ordner " & ord & " wurde angelegt und die Datei darin gespeichert!"
        Else
            MsgBox "Es wurden keine Änderungen vorgenommen!"
        End If
    End If
         
              
    ActiveWorkbook.SaveAs Filename:="P:\gba\abteilungen\AEC\EPLAN\Data\Projekte\KEBA AG\" & Wert & ".edb" & "\DOC" & "\Angebot\Preisliste_SSL_Lieferanten_V0_EPG.xlsx"
    ActiveWorkbook.Close True
End Sub

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
05.05.2017 10:41:31 Mario
NotSolved
05.05.2017 10:58:54 Crazy Tom
NotSolved
05.05.2017 11:19:37 BigBen
Solved
05.05.2017 11:36:32 Gast16293
Solved
05.05.2017 12:16:10 BigBen
NotSolved
05.05.2017 11:17:26 BigBen
Solved
05.05.2017 11:35:51 Gast51360
NotSolved
Blau Datei nur mit Werten speichern
 05.05.2017 12:13:21 BigBen
Solved
05.05.2017 12:21:07 Gast16178
NotSolved