Thema Datum  Von Nutzer Rating
Antwort
26.09.2017 10:17:34 Gast54597
NotSolved
Blau Kein Abbruch des Makros falls Hyperlink nicht vorhanden
 26.09.2017 13:42:47 Gast30772
NotSolved
27.09.2017 08:51:53 Gast54597
NotSolved
27.09.2017 08:54:22 Gast54597
NotSolved
27.09.2017 09:47:27 Gast30772
*****
NotSolved
28.09.2017 09:10:27 Gast54597
NotSolved
28.09.2017 12:38:48 Gast30772
NotSolved

Ansicht des Beitrags:
Von:
Gast30772		 Datum:
26.09.2017 13:42:47		 Views:
630		 Rating:
     
Antwort:
  Ja
Thema:
Kein Abbruch des Makros falls Hyperlink nicht vorhanden

< manche Hyperlinks nach dem Namenschema noch nicht existieren

Typ des Verweises? - Lokal? - http...?

Warum nicht einfach eine Fehlerbehandlung?

Muster

Option Explicit

Sub test()
Const Form As String = ".jpg"
Dim oShp As Shape
Dim Rng As Range
Dim x As Single
On Error GoTo errh

With ActiveSheet
   Set Rng = .Range("A1")
   Do While Rng.Value <> ""
      .Pictures.Insert (Rng.Value & Form)
      Set oShp = .Shapes(.Shapes.Count)
      x = x + 220
      With oShp
         .Top = Rng.Top + 100
         .Left = x
         .Height = 100
         .Width = 100
      End With
      Set Rng = Rng.Offset(1)
   Loop
End With
errh:
Select Case Err.Number
   Case 0
   Case 1004   'Die Insert-Methode des Pictures-Objektes konnte nicht ausgeführt werden.
      Set Rng = Rng.Offset(1)
      Resume
   Case Else
      Call MsgBox("allgemeiner Fehler", vbExclamation, "Abbruch")
End Select
End Sub

Sub tast()
Const Form As String = ".jpg"
Dim oShp As Shape
Dim Rng As Range
Dim x As Single

With ActiveSheet
   Set Rng = .Range("A1")
   Do While Rng.Value <> ""
      On Error Resume Next
      .Pictures.Insert (Rng.Value & Form)
      If Err.Number = 0 Then
         Set oShp = .Shapes(.Shapes.Count)
         x = x + 220
         With oShp
            .Top = Rng.Top + 100
            .Left = x
            .Height = 100
            .Width = 100
         End With
      End If
      On Error GoTo 0
      Set Rng = Rng.Offset(1)
   Loop
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
26.09.2017 10:17:34 Gast54597
NotSolved
Blau Kein Abbruch des Makros falls Hyperlink nicht vorhanden
 26.09.2017 13:42:47 Gast30772
NotSolved
27.09.2017 08:51:53 Gast54597
NotSolved
27.09.2017 08:54:22 Gast54597
NotSolved
27.09.2017 09:47:27 Gast30772
*****
NotSolved
28.09.2017 09:10:27 Gast54597
NotSolved
28.09.2017 12:38:48 Gast30772
NotSolved