Thema Datum  Von Nutzer Rating
Antwort
30.11.2020 16:46:57 Dieter Schwinkendorf
NotSolved
Blau If mit Instr klappt nicht
 30.11.2020 17:40:10 volti
NotSolved
30.11.2020 21:58:07 Gast38234
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
30.11.2020 17:40:10		 Views:
471		 Rating:
     
Antwort:
  Ja
Thema:
If mit Instr klappt nicht

Hallo Dieter,

versuche es doch mal so:

Option Explicit

Sub TEST()
 Dim Azeile As Integer, Z As Integer
 
 Worksheets("Test").Activate
 Azeile = 2
 Z = 9
 Do While Cells(Azeile, 1).Value <> "999"
   On Error Resume Next
   Err = 0
   If InStr(Cells(Azeile, 1).Hyperlinks(1).Address, "https://search.ancestry.de") = 1# Then
      If Err = 0 Then Cells(Azeile, 2) = Z
      Err = 0
   End If
   Azeile = Azeile + 1
 Loop
End Sub

viele Grüße

Karl-Heinz

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.11.2020 16:46:57 Dieter Schwinkendorf
NotSolved
Blau If mit Instr klappt nicht
 30.11.2020 17:40:10 volti
NotSolved
30.11.2020 21:58:07 Gast38234
NotSolved