Thema Datum  Von Nutzer Rating
Antwort
Rot Textmarke überschreiben
 07.05.2019 14:00:32 Üsame
Solved
07.05.2019 22:50:57 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Üsame		 Datum:
07.05.2019 14:00:32		 Views:
711		 Rating:
     
Antwort:
 Nein
Thema:
Textmarke überschreiben
Hallo, ich habe folgenden Code, welcher die Variablen des UserForms, Textmarken zuordnet, das Dokument ausfüllt und speichert.
Mein Problem ist, dass bei erneutem ausfüllen des UserForms, der neue Inhalt an den vorhandenen Textmarken angehängt wird.
Wie lösche ich den Inhalt der vorhandenen Textmarke und ersetze ihn mit den neuen Werten?
Danke im Voraus :)
 
 
 
Private Sub CommandButton1_Click()
    Dim Klasse As Range
    Set Klasse = ActiveDocument.Bookmarks("Klasse").Range
    Klasse.Text = Me.Klasse.Value
    
    Dim Klasse1 As Range
    Set Klasse1 = ActiveDocument.Bookmarks("Klasse1").Range
    Klasse1.Text = Me.Klasse.Value
    
    Dim Geburtdatum As Range
    Set Geburtdatum = ActiveDocument.Bookmarks("Geburtdatum").Range
    Geburtdatum.Text = Me.Geburtstag.Value
    
    Dim Geburtdatum1 As Range
    Set Geburtdatum1 = ActiveDocument.Bookmarks("Geburtdatum1").Range
    Geburtdatum1.Text = Me.Geburtstag.Value
    
    Dim Name As Range
    Set Name = ActiveDocument.Bookmarks("Name").Range
    Name.Text = Me.VornameNachname.Value
    
    Dim Name1 As Range
    Set Name1 = ActiveDocument.Bookmarks("Name1").Range
    Name1.Text = Me.VornameNachname.Value

    Me.Repaint
    UserForm1.Hide
    
    Application.Dialogs(wdDialogFileSaveAs).Show
    
End Sub

 

 

 

 

 

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
Rot Textmarke überschreiben
 07.05.2019 14:00:32 Üsame
Solved
07.05.2019 22:50:57 Flotter Feger
NotSolved