Office: Inhalt einer Zelle als teil eines Hyperlinks

Hallo,

da ich den Browser "Firefox" nicht einsetze, konnte ich es nur mit dem "InternetExplorer" ausprobieren und da funktionierte folgendes Makro, wobei ich hinterher die Programmaufrufe gemäß deinen Vorgaben geändert habe. Sollte jedoch der Firefox für einen ordnungsgemäßen Homepage-Aufruf noch weitere Schalter/Parameter benötigen, müsstest du diese im Bereich des blau gekennzeichneten Programmabschnittes noch hinzufügen:

Code:

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
  Dim strLink As String, AnwID As Variant
  Dim App As String
  On Error GoTo Err_Sel_Change
  
  With Target
    If .Column = 11 Then              'falls Target in Spalte K liegt und
      If .Cells.Count = 1 Then        'falls genau 1 Zelle selektiert ist und
        If Not IsEmpty(.Value) Then   'falls diese Zelle nicht leer ist, dann ...
          strLink = "http://www.meinewebseite.de/" & .Value
          App$ = "C:\Program Files\Mozilla Firefox\firefox.exe "
          AnwID = Shell([COLOR="#0000CD"][B]App & " " & strLink[/B][/COLOR], vbNormalFocus)
        End If
      End If
    End If
  End With
  Exit Sub
  
Err_Sel_Change:
  'exit sub
  MsgBox "Fehlgeschlagener Hyperlink:" & vbNewLine & strLink
         
End Sub

Sollte jedoch, um auf die angegebene Subpage zu gelangen, ein LogIn nötig sein, so kannst du diesen mit vorgenannten Makro nicht umgehen.

 

Großartig, tausend Dank. Genau auf diesem Weg funktioniert es und wenn sich mal an den Pfaden was ändern sollte, das kriege ich dann schon angepasst.

Dann hätte ich jetzt nur zwei kleine Schönheitsfragen:

1) Wenn es keinen Link für die Zeile gibt enthält K "---" (also drei Minuszeichen ohne Anführungszeichen). Kannst du bitte in der If-Not-Abfrage noch ergänzen, dass auch kein Aufruf erfolgen soll, wenn wenn diese 3 Minuszeichen in der Zelle enthalten sind?

2) Jetzt ist es ja so, dass wenn ich die Zelle anklicke oder mit den Cursortasten auswähle, sofort der Befehl ausgeführt wird. Ist eine Abfrage in der Art "Vorgang aufrufen?" mit Auswahl "ja / nein" möglich?

Viele Grüße!

 

Hallo,

Makro müsste in etwa so ausschauen:

Code:

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
  Dim strLink As String, AnwID As Variant
  Dim App As String
  On Error GoTo Err_Sel_Change
  
  With Target
    If .Column = 11 Then              'falls Target in Spalte K liegt und
      If .Cells.Count = 1 Then        'falls genau 1 Zelle selektiert ist und
        'falls diese Zelle nicht leer ist oder nicht "---" ist, dann ...
        If Not (IsEmpty(.Value) Or .Value = "---") Then
          '... dann erfrage, ob Aufruf der Internetseite (ja) erfolgen soll:
          If MsgBox(Prompt:="Vorgang aufrufen?", Buttons:=vbInformation + vbYesNo, Title:="INTERNET?") = vbYes Then
             strLink = "http://www.meinewebseite.de/" & .Value
             App$ = "C:\Program Files\Mozilla Firefox\firefox.exe "
             AnwID = Shell(App & " " & strLink, vbNormalFocus)
          End If
        End If
      End If
    End If
  End With
  Exit Sub
  
Err_Sel_Change:
  'exit sub
  MsgBox "Fehlgeschlagener Hyperlink:" & vbNewLine & strLink
         
End Sub

 

Super, das funktioniert großartig. So ist es perfekt. Vielen, vielen Dank für deine Unterstützung!

Wünsche einen schönen Abend!

 

Hallo,

auch wenn es nun funktioniert, google mal nach "Hyperlinkbasis". Die hätte da schon mMn helfen können, die Eingangsfrage zu beantworten.

 

Hi Silex,

hab ich mal getan. Du bist also der Meinung, dass Excel an dem vom VBA-Script übergebenem Link irgendwas ändert? Was sollte denn deiner Meinung nach dann bei Hyperlink-Basis eingegeben werden?

VG