Thema Datum  Von Nutzer Rating
Antwort
Rot Word VBA Userfom Eingabe als Hyperlink
25.01.2021 21:17:47 MrAnomie
NotSolved
26.01.2021 15:11:08 Mase
NotSolved
26.01.2021 22:19:04 MrAnomie
NotSolved
27.01.2021 00:02:39 Mase
NotSolved

Ansicht des Beitrags:
Von:
MrAnomie
Datum:
25.01.2021 21:17:47
Views:
572
Rating: Antwort:
  Ja
Thema:
Word VBA Userfom Eingabe als Hyperlink

Hallo liebe Gemeinde,

ich möchte in Word gerne über eine Userform Eingaben (Name, Geschäftsstelle, Email und Telefonummer) ermöglichen, welche geschlossene Textmarken ansteuern und entsprechend ersetzen soll. 

 

Das klappt auch alles ganz wunderbar. 

Nun möchte ich gerne, dass er die Email Eingabe als Hyperlink einfügt, sodass man bei Klick direkt eine Email öffnet. Hier komme ich nicht weiter.

 

Hier mein Quellcode:

 

Private Sub cmdOK_Click()

Dim bmName As Range

Dim bmGst As Range

Dim bmGstu As Range

Dim bmEmail As Range

Dim bmTelefon As Range

 

With ActiveDocument

    'die Textmarken als Einfügestellen definieren

    Set bmName = .Bookmarks("Name").Range

    Set bmGst = .Bookmarks("Gst").Range

    Set bmGstu = .Bookmarks("Gstu").Range

    Set bmEmail = .Bookmarks("Email").Range

    Set bmTelefon = .Bookmarks("Telefon").Range

    'Textmarken füllen

        bmName = Me.TxtName.Value

        bmGst = Me.cmbxGst.Value

        bmGstu = Me.cmbxGst.Value

        bmEmail = Me.TxtEmail.Value

        bmTelefon = Me.TxtTelefon.Value

    'Textmarken wiederherstellen

    .Bookmarks.Add Name:="Name", Range:=bmName

    .Bookmarks.Add Name:="Gst", Range:=bmGst

    .Bookmarks.Add Name:="Gstu", Range:=bmGstu

    .Bookmarks.Add Name:="Gstu", Range:=bmGstu

    .Bookmarks.Add Name:="Telefon", Range:=bmTelefon

    

        End With

Unload Me

End Sub

Kann mir hier jemand helfen?

 

Vielen Dank!


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 Word VBA Userfom Eingabe als Hyperlink
25.01.2021 21:17:47 MrAnomie
NotSolved
26.01.2021 15:11:08 Mase
NotSolved
26.01.2021 22:19:04 MrAnomie
NotSolved
27.01.2021 00:02:39 Mase
NotSolved