Hallo zusammen,
ein Kollege von mir hat eine Excel Datei erstellt mit der man automatisch Preislisten für die einzelnen Kunden erstellen kann. Die VBA Makros funktioneren bei all meinen Kollegen einwandfrei nur bei mir kommt der Fehler: Laufzeitfehler 1004 Das Element mit dem angegebenen Namen wurde nicht gefunden. Der Debugger zeigt hierbei folgendes (siehe unten) und ActiveSheet.Shapes.Range(Array("Button1")).Select wird gelb hervorgehoben. Mein Kollege ist völlig ratlos und kann den Fehler nicht nachvollziehen, da es bei allen anderen funktioniert, egal ob Excel 2013 oder 2016. Vielleicht habt ihr ja eine Idee an was es liegen könnte. Die Excel Einstellungen haben wir überprüft und keine Unstimmigkeiten festgestellt.
Gruß
Twinfather
Sub Verknuepfungen_loeschen()
'
' BR 27.11.2017
'
On Error GoTo Sprung1
KDDat = Range("M1")
ActiveWorkbook.BreakLink Name:=Toolna, Type:=xlExcelLinks
Range("M1") = ""
Sprung1:
On Error GoTo Sprung2
ActiveSheet.Shapes.Range(Array("Button1")).Select
Selection.OnAction = "Produkt_Liste_erstellen_2"
ActiveSheet.Shapes.Range(Array("Button2")).Select
Selection.OnAction = "allesnull_2"
ActiveSheet.Shapes.Range(Array("Button3")).Select
Selection.OnAction = "Produkt_suchen_2"
ActiveSheet.Shapes.Range(Array("Button4")).Select
Selection.OnAction = "Produkte_suchen_rueck_2"
Sprung2:
Range("M1") = ""
Range("A3").Select |