Bitte um kleine Änderung eines Makros
Chris
bitte helft mir, nachfolgendes Makro so abzuändern, dass nicht der Hyperlink geöffnet wird, sondern noch das Wort resume hintendransteht. Also z.B. wenn der Hyperlink in der Tabelle https://www.google.de/ ist soll durch das Makro die Seite https://www.google.de/resume geöffnet werden.
Falls es die Seite nicht gibt, soll das Makro ohne Fehlermeldung und ohne Abbruch in der nächsten Zeile weitermachen. Fehlermeldung im Firefox ala Seite kann nicht gefunden werden, sind egal.
Vielen Dank
Sub OpenHyps()
Dim row As Long
Dim Start As Long
Dim Ende As Long
Start = InputBox("In welcher Zeile starten?", "START")
Ende = InputBox("In welcher Zeile enden?", "ENDE")
For row = Start To Ende
If Cells(row, 3).Hyperlinks.Count = 1 Then
Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=Cells(row, 3), NewWindow:=True
Application.DisplayAlerts = True
End If
Next
End Sub
Anzeige