PDA

Vollständige Version anzeigen : Hyperlinkprobleme


Acolon
23.03.2009, 09:29
Hallo zusammen,
ich habe mal wieder ein kleines Problem:grins: .

Private Sub CommandButton18_Click()
Worksheets("HT7").Activate
Range("A1").Select
Application.Dialogs(xlDialogInsertHyperlink).Show
With Fundstellen
Fundstellen.TextBox15.Value = ActiveSheet.Cells(1, 1).Value
End With
End Sub

Mit dem obigen Code wird, aus einer UserForm, der Hyperlink-Dialog aufgerufen, ein Hyperlink erstellt, in ein Tabellenblatt geschrieben und anschließend in eine Textbox eingetragen.

Hyperlink erstellen und in ein Tabellenblatt schreiben klappt einwandfrei,
nur bei der Übergabe an die Textbox gibt es Probleme.
Der Anzeigename des Hyperlinks wird in der Textbox angezeigt aber der eigentliche Hyperlink wird nicht mit übergeben.

Gruß Acolon

IngGi
23.03.2009, 10:07
Hallo Acolon,

bei Textboxen ist der Name Programm. Sie können nur Text enthalten.

Gruß Ingolf

Acolon
23.03.2009, 12:54
Hallo Ingo,
danke für die schnelle Antwort. Nach etwas nachdenken ist mir das Problem klar geworden, bei dem Übertrag von der Hilfstabelle wird nur der Text aus der Zelle in die Textbox übertragen und nicht der Hyperlink.
Dann muss ich halt versuchen eine andere Lösung zu finden.
Danke
Gruß Acolon