Command Button mit Hyperlink

Dieses Thema Command Button mit Hyperlink im Forum "Microsoft Office Suite" wurde erstellt von nok106, 26. Aug. 2007.

Thema: Command Button mit Hyperlink Hallo Excelfreunde ! Gibt es hierfür eine Lösung ? Ich möchte einen CommandButton mit einem Hyperlink versehen,...

  1. Hallo Excelfreunde !

    Gibt es hierfür eine Lösung ?

    Ich möchte einen CommandButton mit einem Hyperlink versehen, weiss aber nicht wie das geht. :-\

    Mit dem Button soll per Klick eine Excelarbeitsmappe und/oder Tabellenblätter geöffnet werden.

    Hat jemand eine Idee ob das geht und wenn ja - Wie ?

    Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

    MfG Odje
     
  2. Hallo nok106,

    das kannst du mit folgendem Makro machen:

    Code:
    Private Sub CommandButton1_Click()
     
     Dim sAdr As String
     
     sAdr = C:\Test\Test.xls#Tabelle2!A1
     
     On Error Resume Next
     ActiveWorkbook.FollowHyperlink Address:=sAdr, NewWindow:=True
     If Err.Number <> 0 Then
      Err.Clear
      MsgBox Adresse nicht erreichbar: & vbLf & sAdr
     End If
     On Error GoTo 0
     
    End Sub
    Das Makro muß in der Codeseite des Blattes mit dem Command-Button liegen. Der Name des Command-Button muß CommandButton1 sein (sonst anpassen). In die Codeseite gelangt man am einfachsten, wenn man die Blattlasche mit der rechten Maustaste anklickt und->Code anzeigen' wählt.

    Im String sAdr = C:\Test\Test.xls#Tabelle2!A1 wird das zu öffnende Ziel beschrieben.
    Hier:
    Tabelle Test.xls im Verzeichnis C:\Test
    Blatt Tabelle2
    Zelle A1

    #Tabelle2!A1 kannst du weglassen, wenn kein bestimmtes Blatt angezeigt werden soll.

    Gruß Matjes :)
     
  3. Hallo Matjes,

    für deine Hilfe besten Dank.

    Leider klappt das Makro nicht gänzlich bei mir.

    Im String D:\Daten\Giro2007.xls#Sonderkonto!A15 wird die gewählte Datei wohl geöffnet
    aber der Sprung zum angegebenen Tabellenblatt/Zelle funktioniert nicht.

    Wo könnte der Fehler liegen ?

    Gruß Odje
     
  4. Hallo nok106,

    das FollowHyperlink scheint der SubAdresse nicht ganz zu folgen :'(

    Dann machen wir es auf eine andere Methode:
    einen Hyperlink in der Zelle hinter dem Button eintragen und folgen.

    Das sieht dann so aus:
    (mußt den alten Makro durch diesen ersetzen und sAdr und sSubAdr anpassen.

    Gruß Matjes :)
    Code:
    Private Sub CommandButton1_Click()
     
     Dim r As Range, h As Hyperlink
     Dim sAdr As String, sSubAdr As String
    
    ->Ankerzelle des Buttons bestimmen
     Set r = ActiveSheet.Cells(CommandButton1.Parent.Cells.Row, _
                   CommandButton1.Parent.Cells.Column)
     
    ->alten Hyperlink in dieser Zelle löschen
     On Error Resume Next
     For Each h In r.Hyperlinks: h.Delete: Next
     On Error GoTo 0
     
    ->neuen Hyperlink hinter Button eintragen und folgen
     sAdr = C:\Test\Test.xls
     sSubAdr = Tabelle2!A36
     Set h = r.Hyperlinks.Add( _
           Anchor:=r, _
           Address:=sAdr, _
           SubAddress:=sSubAdr, _
           TextToDisplay:=)
     h.Follow
     
    AUFRAEUMEN:
     Set r = Nothing: Set h = Nothing
    End Sub
     
  5. Hallo Matjes,

    alles paletti, Danke :D

    Gruß Odje
     
Die Seite wird geladen...

Command Button mit Hyperlink - Ähnliche Themen

Forum Datum
Fehlermeldung nach dem Hochfahren(Invalid command line)... Windows 10 Forum 6. Nov. 2015
Toatal Commander 8.51a....wohin mit meiner wincmd.ini ? Software: Empfehlungen, Gesuche & Problemlösungen 17. Aug. 2015
Command & Conquer Alarmstufe Rot 3 Problem Windows 7 Forum 1. Juli 2010
Ashampoo Photo Commander 7 – Kostenlose Vollversion Software: Empfehlungen, Gesuche & Problemlösungen 11. Apr. 2010
Double Commander Software: Empfehlungen, Gesuche & Problemlösungen 28. Feb. 2010