Deutschland, ausgewählte evangelische Kirchenbücher 1500-1971(dahinter verbirgt sich die entsprechende Internetadresse.
Darunter kommen 'normale' Stringfelder bis zur nächsten Internetadresse.
Ich möchte in Spalte 2 die Internetfelder mit '9' Markieren.
Mein erstes Progi läuft die erste Schleife durch und bleibt beim zweiten Durchlauf
mit Laufzeitfehler(9) Index außerhalb des gültigen Bereiches stehen.
Vermutlich ist der If Befehl mit Instr nicht ok, wenn dort normale Str auftauchen.
Hier mein kleines Programm
Vielen Dank für die Hilfe im Voraus
Dieter
Option Explicit
Sub TEST()
Worksheets("Test").Activate
Dim Azeile As Integer
Azeile = 3
Dim Z As Integer
Z = 9
Do While Cells(Azeile, 1).Value <> "999"
If InStr(Cells(Azeile, 1).Hyperlinks(1).Address, "https://search.ancestry.de") = 1# Then
Cells(Azeile, 2) = Z
Azeile = Azeile + 1
Else
Azeile = Azeile + 1
End If
Loop
End Sub
|