Thema Datum  Von Nutzer Rating
Antwort
05.09.2020 19:49:02 Marcel Gärtner
NotSolved
05.09.2020 20:16:00 X-Post
NotSolved
05.09.2020 21:21:43 Gast59106
NotSolved
05.09.2020 21:30:13 Mase
NotSolved
06.09.2020 10:54:46 Marcel Gärtner
NotSolved
06.09.2020 11:48:48 Marcel Gärtner
NotSolved
06.09.2020 12:21:11 Gast74419
NotSolved
10.09.2020 12:08:58 Marcel Gärtner
NotSolved
10.09.2020 19:44:57 Gast74419
NotSolved
Blau für ein Datenpaar
 10.09.2020 19:51:28 Marcel Gärtner
NotSolved
10.09.2020 20:05:28 Gast31171
NotSolved
10.09.2020 20:19:27 für ein Datenpaar
NotSolved
10.09.2020 20:25:28 Mase, bist du das?xD
NotSolved
10.09.2020 20:26:39 Mase
NotSolved
10.09.2020 20:28:36 :o)
NotSolved
10.09.2020 20:33:55 Mase
NotSolved
10.09.2020 21:31:07 Marcel Gärtner
NotSolved
10.09.2020 22:56:24 Gast81822
NotSolved
11.09.2020 15:26:58 Gast63092
NotSolved
11.09.2020 15:59:29 für ein Datenpaar ?
NotSolved
11.09.2020 19:19:17 Gast81711
NotSolved
13.09.2020 03:37:52 Gast254
NotSolved

Ansicht des Beitrags:
Von:
Marcel Gärtner		 Datum:
10.09.2020 19:51:28		 Views:
877		 Rating:
     
Antwort:
  Ja
Thema:
für ein Datenpaar		 
habe versucht eine schleife zubauen ! 

Dim RegExp    As VBScript_RegExp_55.RegExp
  Dim Matches   As VBScript_RegExp_55.MatchCollection
  Dim Expr      As String
  Dim start     As Date, jetzt As Date
  Dim Schleife  As Long
  
  start = Now
  
  Do While jetzt < start + TimeSerial(0, 0, 1)
        jetzt = Now
        Schleife = Schleife + 1
Loop
Debug.Print "Schleife wurde" & Schleife & " mal durchlaufen"
  
  With New RegExp
     
    .Global = False
    .IgnoreCase = True
    .MultiLine = False
     
    With Worksheets("Tabelle1").Range("A1")
      Expr = .Offset(0, 0).Value & .Offset(1, 0).Value & .Offset(2, 0).Value
    End With
     
    .Pattern = """<img(.*?)>.*?</img>""(,\d+)"
    Set Matches = .Execute(Expr)
     
    Dim Part1 As String
    Dim Part2 As String
    Dim Part3 As String
     
    If Matches.Count > 0 Then
       
      Part1 = Left$(Expr, Matches(0).FirstIndex)
      Part3 = Matches(0).SubMatches(1)
       
      .Pattern = "src=""""(.+?)"""""
      Set Matches = .Execute(Expr)
       
      If Matches.Count > 0 Then
        Part2 = Matches(0).SubMatches(0)
      Else
        Range("A5").Value = ""
        Call MsgBox("Angabe zu Image-Source nicht gefunden.", vbExclamation)
        Exit Sub
      End If
       
      Range("A5").Value = Part1 & Part2 & Part3
       
      Call MsgBox("Fertig.", vbInformation)
       
    Else
      Range("A5").Value = ""
      Call MsgBox("Nix gefunden.", vbExclamation)
    End If
     
  End With
   
End Sub
 

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
05.09.2020 19:49:02 Marcel Gärtner
NotSolved
05.09.2020 20:16:00 X-Post
NotSolved
05.09.2020 21:21:43 Gast59106
NotSolved
05.09.2020 21:30:13 Mase
NotSolved
06.09.2020 10:54:46 Marcel Gärtner
NotSolved
06.09.2020 11:48:48 Marcel Gärtner
NotSolved
06.09.2020 12:21:11 Gast74419
NotSolved
10.09.2020 12:08:58 Marcel Gärtner
NotSolved
10.09.2020 19:44:57 Gast74419
NotSolved
Blau für ein Datenpaar
 10.09.2020 19:51:28 Marcel Gärtner
NotSolved
10.09.2020 20:05:28 Gast31171
NotSolved
10.09.2020 20:19:27 für ein Datenpaar
NotSolved
10.09.2020 20:25:28 Mase, bist du das?xD
NotSolved
10.09.2020 20:26:39 Mase
NotSolved
10.09.2020 20:28:36 :o)
NotSolved
10.09.2020 20:33:55 Mase
NotSolved
10.09.2020 21:31:07 Marcel Gärtner
NotSolved
10.09.2020 22:56:24 Gast81822
NotSolved
11.09.2020 15:26:58 Gast63092
NotSolved
11.09.2020 15:59:29 für ein Datenpaar ?
NotSolved
11.09.2020 19:19:17 Gast81711
NotSolved
13.09.2020 03:37:52 Gast254
NotSolved