Command Button mit Hyperlink

nok106 · 26.08.2007

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

Matjes · 26.08.2007

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 &lt;> 0 Then
  Err.Clear
  MsgBox Adresse nicht erreichbar: &amp; vbLf &amp; 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

nok106 · 26.08.2007

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

Matjes · 26.08.2007

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

nok106 · 27.08.2007

Hallo Matjes,

alles paletti, Danke

Gruß Odje

Command Button mit Hyperlink

nok106

Matjes

nok106

Matjes

nok106

Command Button mit Hyperlink

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums