Hallo liebe Leute,

ich versuche mich schon seit Stunden daran meine Hyperlinks (die nur die Ordnerstruktur/Pfad einer CSV-Datei darstellen) mittels VBA einzeln nach einander zu Öffnen, zu Bearbeiten und dann im Anschluss wieder zu schließen. Kann mir einer dabei Helfen, ich bin ein wahrer VBA_Grünschnabel/Neuling (nennt wie Ihr es wollt :D ).

Folgendes liegt vor:

Ich habe eine Spalte D, in der meine Hyperlinks alle liegen. Allerdings kann diese Spalte auch von A bis X gehen, je nach Ordnerpfad. Diese Hyperlinks befinden sich in unregelmäßigen Zellenabständen untereinander. Sprich:

D5: Hyperlink (1)

D6: LP

D7:HP

D8: Hyperlink(2)

D9: Hyperlink(3) usw...

Ich habe bisher einen Code, der mir alle Hyperlinks auf einmal öffnet. Allerdings auch wenn ich den Bearbeitungscode dazwischen lege, tut dieser mir nichts bearbeiten. Ich brache einen Code, der mir einen hyperlink nach dem anderen öffnet. Ich dachte mir da was mit "Hyperlink.Count" . Ist es möglich, dass man mittels einer Schleife die hyperlinks öffnet, sie bearbeitet, dann wieder schließen kann? Falls ja, ist es möglich bei dieser Schlefe für das i = 1 den ersten Hyperlink zu benutzen und für i =2 den zweiten? Diese i´s der Schleife könnte ich im späteren Bearbeitungscode gut gebrauchen, wenn sie mit den Hyperlinks übereinstimmen.

Hier der Auszug aus dem VBA-Code, der leider nur alle Hyperlinks auf einmal öffnet. Dieser ist auf diversen foren zu finden.

Private Sub CommandButton2_Click()
    Dim c As Range

For Each c In Range("D1:D5")
   If c.Hyperlinks.Count Then
      c.Hyperlinks(1).Follow
   End If
Next c
End Sub

Ich habe mich auch an diesen VBA-Code probiert, allerdings werden hier mit dem i alle Zellen aufgelistet.

Private Sub CommandButton3_Click()
    Dim i As Integer
    Dim xDatei As String
    xDatei = ThisWorkbook.Name
    Application.ScreenUpdating = False
        For i = 4 To Range("D20").End(xlUp).Row
            Cells(i, 4).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
                Windows(xDatei).Activate
        Next
    Application.ScreenUpdating = True
End Sub