Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.05.2017 10:41:31 |
Mario |
|
|
|
05.05.2017 10:58:54 |
Crazy Tom |
|
|
|
05.05.2017 11:19:37 |
BigBen |
|
|
|
05.05.2017 11:36:32 |
Gast16293 |
|
|
|
05.05.2017 12:16:10 |
BigBen |
|
|
|
05.05.2017 11:17:26 |
BigBen |
|
|
|
05.05.2017 11:35:51 |
Gast51360 |
|
|
Datei nur mit Werten speichern |
05.05.2017 12:13:21 |
BigBen |
|
|
|
05.05.2017 12:21:07 |
Gast16178 |
|
|
Von:
BigBen |
Datum:
05.05.2017 12:13:21 |
Views:
655 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
05.05.2017 10:58:54 |
Crazy Tom |
|
|
|
05.05.2017 11:19:37 |
BigBen |
|
|
|
05.05.2017 11:36:32 |
Gast16293 |
|
|
|
05.05.2017 12:16:10 |
BigBen |
|
|
|
05.05.2017 11:17:26 |
BigBen |
|
|
|
05.05.2017 11:35:51 |
Gast51360 |
|
|
Datei nur mit Werten speichern |
05.05.2017 12:13:21 |
BigBen |
|
|
|
05.05.2017 12:21:07 |
Gast16178 |
|
|