Thema Datum  Von Nutzer Rating
Antwort
26.03.2021 09:13:52 ScOtty
NotSolved
26.03.2021 18:08:17 Gast73552
NotSolved
30.03.2021 11:26:26 ScOtty
NotSolved
30.03.2021 11:57:51 Gast33696
****
NotSolved
30.03.2021 13:28:17 ScOtty
NotSolved
Blau Visio Makro über mehrere Arbeitsblätter
 31.03.2021 18:42:55 Gast18908
*****
Solved
01.04.2021 12:38:34 ScOtty
Solved
01.04.2021 18:42:53 Gast76244
NotSolved

Ansicht des Beitrags:
Von:
Gast18908		 Datum:
31.03.2021 18:42:55		 Views:
633		 Rating:
     
Antwort:
 Nein
Thema:
Visio Makro über mehrere Arbeitsblätter

Er mach die Eintragungen und am ende kommt "Laufzeitfehler ... Objektname nicht gefunden"

Was bedeutet "am Ende"? >> In welcher Zeile kommt der Fehler?

Sub BearbeiterAndern2()
  Dim objPage As Visio.Page
  For Each objPage In ThisDocument.Pages
    objPage.Shapes("A3_Kopf").Shapes("Bearbeiter").Text = "Testname"
  Next
End Sub

Es ist wichtig, dass auf allen Blättern diese Shapes "A3_Kopf" und "Bearbeiter" - in besagter Hierarchie - existieren!

Tun sie das nicht, muss man das berücksichtigen. In diesem Fall kann man wohl nicht prüfen ob der Name vorhanden ist; man kommt um den Laufzeitfehler also nicht herum. In diesem Fall könnte man z.B. so an die Sache heran gehen:

Sub BearbeiterAndern3()
  Dim objPage As Visio.Page
  On Error Resume Next
  For Each objPage In ThisDocument.Pages
    objPage.Shapes("A3_Kopf").Shapes("Bearbeiter").Text = "Testname"
    If Err.Number <> 0 Then
      'hier könnte man z.B. mitschreiben, welche Blätter es betrifft
      Err.Clear
    End If
  Next
End Sub

Wie immer ungetestet...

 

Grüße

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.03.2021 09:13:52 ScOtty
NotSolved
26.03.2021 18:08:17 Gast73552
NotSolved
30.03.2021 11:26:26 ScOtty
NotSolved
30.03.2021 11:57:51 Gast33696
****
NotSolved
30.03.2021 13:28:17 ScOtty
NotSolved
Blau Visio Makro über mehrere Arbeitsblätter
 31.03.2021 18:42:55 Gast18908
*****
Solved
01.04.2021 12:38:34 ScOtty
Solved
01.04.2021 18:42:53 Gast76244
NotSolved