Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bitte um kleine Änderung eines Makros

Bitte um kleine Änderung eines Makros
Chris
Hallo alle zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bitte um kleine Änderung eines Makros
20.02.2012 15:40:02
KlausF
Hallo Chris,
ungetestet:
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
Dim PFAD As String
PFAD = Cells(row, 3).Value & "/" & "resume"
Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=PFAD, NewWindow:=True
Application.DisplayAlerts = True
End If
Next
End Sub

Gruß
Klaus
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige