Hyperlinks in Userform :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Hyperlinks in Userform

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 08.08.2008, 14:12

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

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 08.08.2008, 15:05

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 :(

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 08.08.2008, 16:08

Hallo!

Es gibt die Funktion HYPERLINK:

=HYPERLINK(URL;freundlicher Name)

Du kannst der Zelle eine Formel dieser Art zuweisen:

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 08.08.2008, 16:29

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

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

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 08.08.2008, 16:32

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!

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 08.08.2008, 16:32

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

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 08.08.2008, 16:37

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 08.08.2008, 16:44

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

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 08.08.2008, 21:25

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!

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 09.08.2008, 07:26

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

correx
Newbie
Newbie

Anmeldedatum: 06.08.2008
Beiträge: 13

Verfasst am: 09.08.2008, 13:38

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!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Outlook öffnet keine Hyperlinks mehr	Dariusz	Microsoft Outlook Hilfe	3	17.11.2008, 22:42
	Formatänderung der Hyperlinks in PP 2003	R-R Intering	Microsoft PowerPoint Hilfe	0	21.10.2008, 10:18
	Userform Befehlsfläsche funktioniert ...	Posaune	Microsoft Excel Hilfe	2	17.09.2008, 23:28
	Hyperlinks in neuer Spalte deaktivieren	MiniMe	Microsoft Excel Hilfe	0	16.09.2008, 15:38
	Hyperlinks werden nicht generiert	Blubbie	Microsoft Excel Hilfe	2	08.09.2008, 08:00

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de