Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Wert in Textbox als Hyperlink

Betrifft: Wert in Textbox als Hyperlink von: Heinz H
Geschrieben am: 07.10.2007 01:48:44

Hallo Leute

Habe eine TextBox11 in einer UF die mir Daten von einer anderen Tab. ausliest. Der Wert ist dort als Email Adresse gespeichert.
Ist es möglich wenn ich auf TextBox11 klicke das mir mein Mailpogramm mit der Adresse geöffnet wird.
In TextBox12 habe ich Internetseiten,da sollte sich mein Browser öffnen.
Also als Hyperlink.

Könnte mir dabei bitte jemand helfen.

Gruß Heinz

  

Betrifft: AW: Wert in Textbox als Hyperlink von: Matthias L
Geschrieben am: 07.10.2007 06:18:55

Hallo Heinz

M.E. geht das nur mit Doppelklick bei Textboxen, oder wie ich es im Beispiel zeige mit zusätzlichen Button



und hier das Beispielmappe zum testen: https://www.herber.de/bbs/user/46579.xls ;o)






  

Betrifft: AW: Wert in Textbox als Hyperlink von: Heinz H
Geschrieben am: 07.10.2007 09:19:39

Guten morgen Matthias

Du bist G E N I A L !!!

Recht Recht herzlichen DANK !!!


Gruß Heinz


  

Betrifft: AW: Wert in Textbox als Hyperlink von: Heinz H
Geschrieben am: 07.10.2007 09:37:54

Hallo Matthias

Nur noch eine Frage bitte:

Wenn in TextBox12 keine Internetadresse steht u.ich klicke auf Button "Browser" kommt eine Fehlermeldung
"Ungültiger Prozeduraufruf"".
Könnte man eventuell wenn TextBox12 ist leer. Button deaktivieren oder so ähnlich ?

Danke & Gruß Heinz


  

Betrifft: AW: Wert in Textbox als Hyperlink von: Matthias L
Geschrieben am: 07.10.2007 09:57:23

Hallo Heinz

Ja das geht. Es gibt da viele Möglichkeiten:

Eine ist diese:

Private Sub CommandButton2_Click()
If UserForm1.TextBox12.Value <> "" Then
 Browser
End If
End Sub



oder eine weitere Möglichkeit:

Private Sub TextBox12_Change()
If TextBox12.Value = "" Then Me.CommandButton2.Enabled = False
If TextBox12.Value <> "" Then Me.CommandButton2.Enabled = True
End Sub







  

Betrifft: AW: Wert in Textbox als Hyperlink von: Heinz H
Geschrieben am: 07.10.2007 10:06:05

Nochmals ein HALLO Matthias

Einfach T R A UM H A F T !!!

Danke

Gruß Heinz


  

Betrifft: AW: Wert in Textbox als Hyperlink von: Hajo_Zi
Geschrieben am: 07.10.2007 10:19:05

Hallo Matthias,

da der Vergleich
If TextBox12.Value <> "" nur True oder False ergeben kann, reicht auch
Me.CommandButton2.Enabled = TextBox12.Value <> ""

GrußformelHomepage


  

Betrifft: Danke Hajo, da hast Du recht ;o) oT. von: Matthias L
Geschrieben am: 07.10.2007 10:35:53




  

Betrifft: AW: Danke Hajo, da hast Du recht ;o) oT. von: Nepumuk
Geschrieben am: 07.10.2007 11:44:22

Hallo Matthias,

unter Verwendung der TextLength - Eigenschaft kannst du sogar den Vergleich mit einer leeren Zeichenfolge weglassen.

Private Sub TextBox12_Change()
    CommandButton2.Enabled = TextBox12.TextLength
End Sub

Gruß
Nepumuk


  

Betrifft: Danke, Nepumuk ... Nachfrage allgemein von: Matthias L
Geschrieben am: 07.10.2007 11:58:55

Hallo

Auch Dir, Danke für Deine Ausführung.

Wie könnte man sicherstellen, das bei der Eingabe von 1, 2 oder mehr Leerzeichen
das Button trotzdem .Enabled=False bleibt

Schon bei der Eingabe von nur einem Leerzeichen wird das Button freigegeben!
Hast Du / hat jemand eine Idee?





  

Betrifft: AW: Danke, Nepumuk ... Nachfrage allgemein von: Nepumuk
Geschrieben am: 07.10.2007 12:10:13

Hallo Matthias,

du könntest per RegEx prüfen, ob es sich um eine gültige Webadresse handelt. Das ist aber bei denen, wegen der großen Vielfalt, nicht so ganz einfach.

Gruß
Nepumuk


  

Betrifft: Danke, aber RegEx find ich nicht in der Hilfe ! von: Matthias L
Geschrieben am: 07.10.2007 12:55:24

Hallo Nepumuk

Dieses RegEx ist aber keine Excelfunktion oder wo finde ich das in Excel oder VBA ?





  

Betrifft: AW: Danke, aber RegEx find ich nicht in der Hilfe von: Ramses
Geschrieben am: 07.10.2007 13:15:43

Hallo Matthias

schau mal hier vorbei als Beispiel zum programmieren

http://www.regular-expressions.info/

oder hier in Deutsch

http://de.wikipedia.org/wiki/Regul%C3%A4rer_Ausdruck

Gruss Rainer


  

Betrifft: Danke, Rainer, Dich hätte ich fast vergessen oT. von: Matthias L
Geschrieben am: 08.10.2007 23:00:23




  

Betrifft: Dazu könnte evtl. der Operator LIKE helfen von: NoNet
Geschrieben am: 07.10.2007 13:30:02

Hallo Matthias,

zur Überprfung eines "regular expression" kannst Du unter Excel VBA den Operator LIKE verwenden. Schau Dir dazu mal die Beispiele in der Onlinehilfe an.

Gruß, NoNet


  

Betrifft: Danke NoNet und Nepumuk oT von: Matthias L
Geschrieben am: 07.10.2007 14:57:22




 

Beiträge aus den Excel-Beispielen zum Thema "Wert in Textbox als Hyperlink"