Sub test()
Dim Bereich As Range, LCount
Dim meAr
'wo die Hyperlinks stehen
With Sheets("Tabelle1")
Set Bereich = .Range("C1", .Cells(.Rows.Count, 3).End(xlUp))
End With
meAr = Bereich.Offset(0, 1) 'Ausgabebereich
'Daten prüfen
For LCount = 1 To Bereich.Hyperlinks.Count
If Dir(Bereich.Hyperlinks(LCount).Address) <> "" Then
meAr(Bereich.Hyperlinks(LCount).Range.Row, 1) = "ok."
Else
meAr(Bereich.Hyperlinks(LCount).Range.Row, 1) = "nicht ok."
End If
Next LCount
'Bewertung ausgeben
Bereich.Offset(0, 1) = meAr
End Sub
Sub test()
Dim Bereich As Range
Dim meAr
Dim hLink As Hyperlink
' Aktives Arbeitsblatt und Spalte A
With ActiveSheet.Columns(1)
' Ausgabebereich in Array
meAr = .Offset(0, 1)
'Daten prüfen
For Each hLink In .Hyperlinks
meAr(hLink.Range.Row, 1) = IIf(Dir(hLink.Address) "", "OK", "nicht OK")
Next
'Bewertung ausgeben
.Offset(0, 1) = meAr
End With
End Sub
Sub test()
Dim Bereich As Range
Dim meAr() As String
Dim hLink As Hyperlink
' Anzahl der Überschriftzeilen
Const uebRows = 1
' Aktives Arbeitsblatt und Spalte A
With ActiveSheet.Columns(1)
With .Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - uebRows).Offset(uebRows)
' Ausgabebereich in Array
ReDim meAr(uebRows + 1 To .Rows.Count + uebRows)
'Daten prüfen
For Each hLink In .Hyperlinks
meAr(hLink.Range.Row) = IIf(Dir(hLink.Address) "", "OK", "nicht OK")
Next
'Bewertung ausgeben
.Offset(0, 1) = Application.Transpose(meAr)
End With
End With
End Sub
Sub test()
Dim Bereich As Range, HyLink As Hyperlink
Dim meAr() As String
With Sheets("Tabelle1")
Set Bereich = .Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
End With
With Bereich
Redim Preserve meAr(.Cells(1, 1).Row To .Cells(.Rows.Count, 1).Row, 1 To 1)
For Each HyLink In .Hyperlinks
If Dir(HyLink.Address) <> "" Then
meAr(HyLink.Range.Row, 1) = "ok."
Else
meAr(HyLink.Range.Row, 1) = "nicht ok."
End If
Next HyLink
.Offset(0, 1) = meAr
End With
End Sub
Sub test()
Dim hLink As Hyperlink
' Aktives Arbeitsblatt und Spalte A
With ActiveSheet.Columns(1)
' Prüft und schreibt Werte in Spalte 2 von Spalte A --> Spalte B
For Each hLink In .Hyperlinks
.Cells(hLink.Range.Row, 2) = _
IIf(Dir(hLink.Address) "", "OK", "nicht OK")
Next
End With
End Sub
Sub test()
Dim hLink As Hyperlink
' Prüfen in Spalte A = 1 und schreiben in Spalte B = 2
For Each hLink In ActiveSheet.Columns(1).Hyperlinks
ActiveSheet.Cells(hLink.Range.Row, 2) = _
IIf(Dir(hLink.Address) "", "OK", "nicht OK")
Next
End Sub
Sub testeHyperlinks()
Dim zeIle As Long
' Spalte die durchsucht wird, hier A
Const sCol = 1
Application.ScreenUpdating = False
' Nimmt das aktive Arbeitsblatt
With ActiveSheet
' Ab Zeile 2, in 1 steht wohl eine Überschrift
For zeIle = 2 To .Cells(Rows.Count, sCol).End(xlUp).Row
' Wenn Hyperlink da
If .Cells(zeIle, sCol).Hyperlinks.Count > 0 Then
' Schauen, ob es den gibt, OK oder Nicht OK eintragen
If Dir(.Cells(zeIle, sCol).Hyperlinks(1).Address) "" Then
.Cells(zeIle, sCol + 1).Value = "OK"
Else
.Cells(zeIle, sCol + 1).Value = "nicht OK"
End If
Else
' Kein Hyperlink, also Zelle daneben leeren
.Cells(zeIle, sCol + 1).ClearContents
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Um Hyperlinks in Excel zu überprüfen und deren Gültigkeit festzustellen, kannst Du ein einfaches VBA-Skript verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie Du dies machst:
Excel öffnen: Stelle sicher, dass Du die Excel-Datei mit den Hyperlinks geöffnet hast.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul einfügen: Klicke mit der rechten Maustaste auf „VBAProject (DeinDateiname)“ und wähle „Einfügen“ > „Modul“.
Code einfügen: Kopiere und füge den folgenden Code in das Modul ein:
Sub testeHyperlinks()
Dim zeIle As Long
Const sCol = 1 ' Spalte A
Application.ScreenUpdating = False
With ActiveSheet
For zeIle = 2 To .Cells(Rows.Count, sCol).End(xlUp).Row
If .Cells(zeIle, sCol).Hyperlinks.Count > 0 Then
If Dir(.Cells(zeIle, sCol).Hyperlinks(1).Address) <> "" Then
.Cells(zeIle, sCol + 1).Value = "OK"
Else
.Cells(zeIle, sCol + 1).Value = "nicht OK"
End If
Else
.Cells(zeIle, sCol + 1).ClearContents
End If
Next
End With
Application.ScreenUpdating = True
End SubMakro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle testeHyperlinks aus der Liste und klicke auf „Ausführen“.
Das Skript überprüft die Hyperlinks in Spalte A und zeigt in Spalte B an, ob der Link gültig ist oder nicht.
Fehler: „Typ nicht definiert“
Lösung: Stelle sicher, dass Du die richtigen Variablen in Deinem VBA-Code definiert hast. Achte darauf, dass die verwendeten Objekte (wie Range und Hyperlink) korrekt deklariert sind.
Fehler: „Methodenfehler“
Lösung: Überprüfe, ob die angegebenen Zellen tatsächlich Hyperlinks enthalten. Wenn die Zellen leer sind, kann dies zu einem Fehler führen.
Links werden nicht korrekt überprüft
Lösung: Achte darauf, dass die Links in der richtigen Spalte stehen und dass Du die Spalte im Code entsprechend anpasst.
Es gibt unterschiedliche Ansätze, um Links zu überprüfen. Neben dem VBA-Skript kannst Du auch Formeln verwenden, um die Gültigkeit von Hyperlinks zu überprüfen. Zum Beispiel:
HYPERLINK-Funktion: Diese Funktion kann genutzt werden, um zu testen, ob ein Link funktioniert, indem Du eine Kombination aus IFERROR und HYPERLINK verwendest.Hier sind einige praktische Beispiele, die Dir helfen, die Methoden zur Überprüfung von Hyperlinks besser zu verstehen:
Beispiel 1: Einfache Linküberprüfung
For Each hLink In ActiveSheet.Columns(1).Hyperlinks
If Dir(hLink.Address) <> "" Then
hLink.Range.Offset(0, 1).Value = "OK"
Else
hLink.Range.Offset(0, 1).Value = "nicht OK"
End If
NextBeispiel 2: Überprüfung mit Array für bessere Performance
Dim meAr() As String
ReDim meAr(1 To .Cells(.Rows.Count, 1).End(xlUp).Row)
For Each hLink In .Hyperlinks
meAr(hLink.Range.Row) = IIf(Dir(hLink.Address) <> "", "OK", "nicht OK")
Next
.Offset(0, 1) = Application.Transpose(meAr)Application.ScreenUpdating = False: Dies verbessert die Performance des Makros, da die Bildschirmaktualisierung während der Ausführung deaktiviert wird.1. Wie kann ich sicherstellen, dass das VBA-Skript auch in Excel 2010 funktioniert?
Das obige Skript ist mit Excel 2010 und neueren Versionen kompatibel. Achte darauf, dass Du die richtigen Zellen und Spalten im Code anpasst.
2. Was kann ich tun, wenn ich keine VBA-Makros verwenden möchte?
Du kannst Excel-Formeln oder Add-Ins verwenden, um Links zu überprüfen, jedoch bieten VBA-Skripte oft mehr Flexibilität und Möglichkeiten zur Automatisierung.