Schleife: Hyperlink öffnen wenn Zeilenwert=1
03.11.2018 09:46:41
Dennis
es wäre super wenn Ihr mir bei folgender (eigentlich recht leichten) Problemstellung weiterhelfen könnt. In Spalte I befindet sich eine Auflistung von Hyperlinks. In der jeweils gleichen Zeile befindet sich in Spalte AP entweder eine 0 oder eine 1. Ich würde gern ein Makro schreiben, dass alle Links auf einmal öffnet, bei denen sich in der gleichen Zeile in der dazugehören Spalte AP eine 1 befindet. Der Bereich, in dem sich die Links befinden können, ist zwischen Zelle I19 und I500. Entsprechend stehen die binären Zahlenwerte in Spalte AP19 bis AP500. Das Ganze sieht vereinfacht so aus.
Bis jetzt habe ich folgenden (nicht funktionierenden) Code:
Sub Button_Gruppen_öffnen()
Dim i As Integer
i = 19
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 41).End(xlUp).Row To 1 Step -1
If Cells(i, 41).Value = 1 Then
Worksheets("Post-Übersicht").Range("I" & i).Hyperlinks(1).Follow
End If
Next
Application.ScreenUpdating = True
End Sub
Vielen Dank im Voraus!!