Thema Datum  Von Nutzer Rating
Antwort
09.06.2008 19:11:20 Ralf
NotSolved
Blau Aw:Hyperlink bei Übereinstimmung automatisch setze
 10.06.2008 07:39:03 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
10.06.2008 07:39:03		 Views:
1168		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Hyperlink bei Übereinstimmung automatisch setze
Hallo,

weil die einfache Auswahl einer Zelle, sei es nun mit der Maus
oder den Cursortasten, doch ein recht zufälliges Ereignis ist
oder sein kann, habe ich stattdessen das Doppelklick-Ereignis
für das Einfügen der Hyperlinks gewählt. Im Beispielcode wird
davon ausgegangen, dass die Auftragsnummer (und NUR sie) in der
ersten Spalte steht. Für deine Datei musst du das anpassen
(Target.Column), ebenso wie die Konstante mit dem Netzwerkpfad.
Wenn der Netzwerkressource ein Laufwerksbuchstabe zugewiesen
ist, kannst du den verwenden, dann natürlich ohne doppelten
Backslash (aber auch mit Backslash am Ende!). Die folgende Sub
gehört in den Codebereich der betreffenden Tabelle.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Const Ordner As String = "\\Server1\Excel\"
Dim Inhalt As Variant, Datei As String
If Target.Column = 1 Then
If Target.Hyperlinks.Count = 0 Then
Inhalt = Target.Value
If Not IsEmpty(Inhalt) Then
Datei = CStr(Inhalt) & ".xls"
If Dir$(Ordner & Datei) <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Target, _
Address:=Ordner & Datei, ScreenTip:=Datei & " öffnen"
End If
End If
End If
Cancel = True
End If
End Sub

Wenn du doch lieber die einfache Zellauswahl anstatt des
Doppelklicks hättest, ersetze die erste Zeile durch
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
und lösche die Zeile
Cancel = True

Gruß


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.06.2008 19:11:20 Ralf
NotSolved
Blau Aw:Hyperlink bei Übereinstimmung automatisch setze
 10.06.2008 07:39:03 jh
NotSolved