Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1040to1044
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
Hyperlinks öffnen
18.01.2009 13:09:00
Chris
Hallo alle zusammen,
ich benutze in einer Mappe folgendes Makro, welches die Hyperlinks in Spalte D öffnet.

Sub OpenHyps()
Dim row As Long
For row = 1 To Cells.SpecialCells(xlCellTypeLastCell).row
If Cells(row, 4).Hyperlinks.Count = 1 Then
Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=Cells(row, 4), NewWindow:=True
Application.DisplayAlerts = True
End If
Next
End 

Sub
Nun sind es leider inzwischen so viele Links geworden, dass Excel beim Ausführen abstürzt. Kann  _
_
man dies irgendwie erweitern, dass vorher abgefragt wird, welche Hyperlinks geöffnet werden  _
sollen, dass ich z.B. die Zahlen 1 und 100 eingebe und dann die Hyperlinks von D1 bis D100 geöffnet werden?
Danke für eure Mühe
Gruß
Chris


		

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks öffnen
18.01.2009 13:31:38
Uwe
Hi Chris,
meinst Du in etwa so?:

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, 4).Hyperlinks.Count = 1 Then
Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=Cells(row, 4), NewWindow:=True
Application.DisplayAlerts = True
End If
Next
End Sub


Gruß
Uwe
(:o)

AW: Hyperlinks öffnen
18.01.2009 19:16:59
Chris
hat funktioniert, danke nochmal für deine Hilfe,
Gruß
Chris
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige