Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.08.2012 09:37:10 |
Sebastian Förster |
|
|
|
28.08.2012 12:57:25 |
Dekor |
|
|
|
28.08.2012 13:03:00 |
Gast29212 |
|
|
Eingaben auf Userform vor beenden speichern, letzen Stand beim öffnen des Dokuments |
29.08.2012 12:31:04 |
Dekor |
|
|
Von:
Dekor |
Datum:
29.08.2012 12:31:04 |
Views:
2278 |
Rating:
|
Antwort:
|
Thema:
Eingaben auf Userform vor beenden speichern, letzen Stand beim öffnen des Dokuments |
Hallo Sebastian,
das geht auch mit Word. Hier ein Ansatz mit Speicherung der Werte in einer externen Datei.
den ersten Teil musst du beim beenden der Userform ausführen lassen, den zweiten Teil beim öffnen bzw. Aufruf der Userform
Sub Userform_Daten_in_Datei_sichern()
Dim Ziel As String
Dim oFSO As Object
Dim TextStream As Object
Dim i As Long
'### Textdatei vorbereiten
Ziel = "C:\Temp\userform.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.CreateTextFile(Ziel, True)
On Error Resume Next
Set TextStream = GetObject(Ziel)
TextStream.WriteLine = Userform.Textfeld1
TextStream.WriteLine = Userform.Textfeld2
TextStream.WriteLine = Userform.Textfeld3
' usw.
TextStream.Close
Set TextStream = Nothing
Set oFSO = Nothing
End Sub
Sub Userform_Daten_aus_Datei_lesen()
Dim Ziel As String
Dim oFSO As Object
Dim TextStream As Object
Dim i As Long
'### Textdatei vorbereiten
Ziel = "C:\Temp\userform.txt"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = oFSO.OpenTextFile(Ziel)
Userform.Textfeld1 = TextStream.ReadLine
Userform.Textfeld2 = TextStream.ReadLine
Userform.Textfeld3 = TextStream.ReadLine
' usw.
TextStream.Close
Set TextStream = Nothing
Set oFSO = Nothing
End Sub
Gruß Detlev
|
- 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
|
|
28.08.2012 09:37:10 |
Sebastian Förster |
|
|
|
28.08.2012 12:57:25 |
Dekor |
|
|
|
28.08.2012 13:03:00 |
Gast29212 |
|
|
Eingaben auf Userform vor beenden speichern, letzen Stand beim öffnen des Dokuments |
29.08.2012 12:31:04 |
Dekor |
|
|