Office: Hyperlinks in Userform

Hallo,

Ich hab folgendes Problem: Ich starte in einer Userform die Abfrage nach einem Ort, in der selben Userform habe ich ein zweites Textfeld, in das man optional die URL eintragen kann.

Sollte nun beides eingetragen worden sein, so soll in der Ausgabezelle nicht nur der Ortsname erscheinen, sondern ein Hyperlink mit dem Text des Orts unterlegt mit dem Link.
Das Problem liegt nicht in der Gestaltung der Bedingung, sondern in der des Hyperlinks.

Gibt es eine Möglichkeit in der ich einfach

Code:

ActiveCell.Value = Hyperlink ("URL";"Name des Links")

erstellen kann?
So dass also in der Ausgabezelle der Name des Ortes erscheint, klickt man darauf sich die URL öffnet?
Habe das Forum durchsucht und auch andre Seiten, allerdings ohne brauchbaren erfolg.

Danke schon im Voraus!
Grüße

 

Also, ich habe nochmal etwas mehr rumprobiert und jetzt folgenden code:

Code:

    If URL <> "" Then
    Hyperlinks.Add Address:=URL, TextToDisplay:=Ort
    Else
    ActiveCell.Value = Ort
    End If

wobei URL und ORT jeweils die Werte aus den entsprechenden Textboxen sind, auf Anchor habe ich verzichtet weil ich bereits eine Zelle zuvor aktiviert hab...
Aber es geht irgendwie nicht

 

Hallo!

Es gibt die Funktion HYPERLINK:

=HYPERLINK(URL;freundlicher Name)

Du kannst der Zelle eine Formel dieser Art zuweisen:

ActiveCell.Formula = "=HYPERLINK(" & URL & "," & freundlName & ")"

 

Da fehlen wohl noch einige Gänsefüßchen...

ActiveCell.Formula = "=hyperlink(""" & URL & """,""" & freundlName & """)"

 

Vielen Dank. Mir ist der Weg und daher das Ergebnis aber nicht ganz klar.
Mein Code jetzt:

Code:

If URL <> "" Then
    ActiveCell.Formula = "=HYPERLINK(" & URL & "," & Ort & ")"
    Else
    ActiveCell.Value = Ort
End If

Wenn jemand also das Feld für die URL frei lässt, so soll einfach nur der Ortsname in die aktive Zelle geschrieben werden (ging bis dato auch immer) wenn jemand nun aber eine URL eingibt, so wird der Zelle die Funktion zugewiesen, und quasi ein Link gebastelt mit der URL und dem Text.

Bei mir wird nun aber immer ein Link erstellt, selbst wenn die URL Box leer bleibt und wenn sie ausgefüllt wird entsteht ein Laufzeitfehler: "Typen unverträglich"
Wo würde denn der Fehler an meiner ursprünglichen Version liegen bzw. was mache ich grade falsch?

Danke schonmal!

 

aaaaah, moment, ich schau nochmal, habs erst jetzt gelesen :D

 

Aber nein, sorry, auch mit den Gänsefüsschen mehr habe ich immer noch das Problem des Laufzeitfehlers, bin gradziemlich ratlos

 

An deinem letzten geposteten Code-Teil kann das aber eigentlich nicht liegen, wenn sowohl "URL" als auch "Ort" String-Variablen sind.

 

Auch wenn das speichertechnisch nicht laut gesagt werden darf, aber ich definiere die Variablen primär gar nicht um mich auf das Wesentliche zu konzentrieren, wodurch sie meines wissens nach automatisch als variant definiert werden was wiederum keine Probleme verursachen sollte...

Ich werde übers Wochenende etwas rumprobieren, irgendwo muss ja der Fehler stecken. Danke dir aber bis jetzt schon vielmals für die Hilfe!

 

Also, hab keine Ahnung worans lag, hab die Variablen nochmal definiert, diesmal auch explizit als Strings und auf einmal gings, auch die Bedingung geht so wie ich das gerne hätte, bis auf eine Kleinigkeit:

Nach Beendigung der Eingabe und dem Klick auf "weiter" kommt die nächste Abfrage. In dieser hat man wieder die Möglichkeit über "zurück" in die Ausgangslage zu gelangen. Zwar wird der Text gelöscht und auch die Funktion aufgehoben, allerdings bleibt die Formatierung des Textes erhalten. Sprich wird ein neuer Text eingegeben, diesmal allerdings ohne URL, bleibt die Schriftfarbe blau und unterstrichen, wenn auch kein Link dahinter liegt.
Gibt es einen Weg in der ich die Schriftformatierung wieder auf Standard setzen kann?

Danke

 

lange probiert, hab das ganze jetzt mal wie folgt gelöst:

Code:

    With ActiveCell.Font
        .Name = "Arial"
        .FontStyle = "Fett"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 0
    End With

Geht soweit auch, bin aber auch offen für elegantere Vorschläge.
Sonst Danke!