ich habe ca. 250 Excel-Dokumente mit Explosionszeichnungen.
Auf den Zeichnungen liegen kleine Textboxen mit der Bestellnummer des mittels Linie verbundenen Bauteils.
Da es nicht immer Textboxen sind die der Ersteller verwendet hat sondern manchmal auch z.B. Rechtecke mit Text (scheint in Excel unterschieden zu warden) habe ich vor einiger Zeit die VBA-Zeilen so geändert, dass bei verschiedenen Zeichenobjekten funktionieren.
Sub BestNr_in_Zwischanablage()
If TypeName(Application.Caller) "String" Then Exit Sub
With ActiveSheet.Shapes(Application.Caller)
Select Case .Type
Case 1, 17: BestNr = .DrawingObject.Text
Case Else: MsgBox "Ungültiges Textfeld"
End Select
End With
End Sub
Nun hat unsere IT die Notebooks mit Windows 7 (64bit) und Office 2010 ausgestattet.Plötzlich funktionieren diese Dokumente mit den Explosionszeichnungen aber nicht mehr zuverlässig.
Einige Textfelder funktionieren noch, andere starten bein anklicken zwar das Makro aber der Inhalt der Variable entspricht dem letzten funktionirendem Textfeld und neu eingefügte Textfelder (Copy&Paste) fügen die Nummer in die Variable ein von der ich das Textfeld kopiert habe und nicht das, welches sich jetzt in der Zelle befindet.
Kennt jemand ähnliche Sympthome oder weiß einen Ansatz für die Lösung meines Problems?
Kann man irgendwo ersehen, welche "ID" ein Testfeld in Excel hat?
Vielleicht wird bei Copy&Paste eine 100%ige Kopie der Ursprungsdatei erstellt und beide haben die gleiche "interne Kennung"?
Danke und Gruß
Florian