|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.11.2017 15:30:31 |
hartmut |
|
|
|
27.11.2017 17:19:26 |
Gast97472 |
|
|
 Speichern einer freigegebenen Arbeitsmappe |
28.11.2017 07:33:18 |
Gast63962 |
|
|
|
28.11.2017 07:34:41 |
Gast56442 |
|
|
Von:
Gast63962 |
Datum:
28.11.2017 07:33:18 |
Views:
802 |
Rating:
|
Antwort:
|
Thema:
Speichern einer freigegebenen Arbeitsmappe |
|
Entschuldigung hatte wohl den falschen Editor.
Hoffentlich ist das Format jetzt richtig.
Option Explicit
Public Sub speichern1()
' speichern und sichern
' Variablen mit Ort für speichern laden
varPfadsicher = Tabelle1.Range("A1").Value
varPfadsicher = varPfadsicher & "\PE2017"
varPfadkopie = Tabelle1.Range("A4").Value
varPfadkopie = varPfadkopie & "\PE2017"
UserFormEinstellung.TextBoxh = Tabelle1.Range("A2").Value
UserFormEinstellung.TextBoxmin = Tabelle1.Range("A3").Value
nummer = Tabelle1.Range("A5").Value
strPath = ThisWorkbook.Path
strname = ThisWorkbook.Name
strPfad = strPath & "\" & strname
Application.DisplayAlerts = False
'Datei mit neuer Nummer + 1 speichern
ThisWorkbook.SaveAs Filename:=varPfadsicher & "_" & nummer + 1 & ".xlsm", AccessMode:=xlShared
'Datei überschreiben
If Dir(varPfadkopie) = "" Then ' gibt es schon eine Datei die überschrieben werden kann?
Else
Kill (varPfadkopie & "*.xlsm") 'alte Datei löschen
End If
ThisWorkbook.SaveAs Filename:=varPfadkopie & ".xlsm", AccessMode:=xlShared
ThisWorkbook.SaveAs Filename:=strPfad, AccessMode:=xlShared
Application.DisplayAlerts = True
Tabelle1.Range("A5").Value = nummer + 1 ' Nummer für Datei Namen +1
End Sub
'anzeigen es wird gespeichert
Public Sub speichern()
UserForm2.Show
End Sub |
- 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
|
|
27.11.2017 15:30:31 |
hartmut |
|
|
|
27.11.2017 17:19:26 |
Gast97472 |
|
|
Speichern einer freigegebenen Arbeitsmappe |
28.11.2017 07:33:18 |
Gast63962 |
|
|
|
28.11.2017 07:34:41 |
Gast56442 |
|
|