Hallo zusammen,
seit dem Übergang von Excel 2010 auf Excel 2016 funktionieren einige meiner Makros nicht mehr, wenn diese in ihrer Abfrage auf ausgeblendete Zeilen stoßen. In Excel 2010 gab es diesbezüglich aber keine Probleme und ich bin mittlweile auch echt am verzweifeln, weil ich nicht erkenne, was an dem Code falsch ist, beziehungsweise was sich von 2010 bis 2016 geändert hat. Ich hoffe es handelt sich dabei um ein generelles Problem beim Übergang, aber damit ihr es nachvollziehen könnt habe ich euch folgend noch einen meiner Codes.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Sub zehneinfuegen()
Dim q
q = ActiveCell.Row
Dim strString As String, rngCell As Range
strString = "Final time per unit (te) assembly/ testing/ packaging"
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Set rngCell = Columns(1).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If ActiveCell.Row < 7 Or rngCell.Row < q Then
MsgBox "You cannot insert a new line here"
Else
Call anfang
Sheets("Tabelle1").Visible = True
Sheets("Tabelle1").Select
Rows("3:12").Copy
Sheets("BOM").Select
ActiveCell.Select
Selection.EntireRow.Select
Selection.Insert Shift:=xlDown
Call protect
Sheets("Tabelle1").Visible = False
Call ende
End If
End Sub
////////////////////////////////////////////////////////////////////////////////////////////////
Das Problem tritt in der rot markierten Zeile auf und auch nur dann, wenn Zeilen auf dem Blatt, auf dem die neuen 10 Zeilen eiingefügt werden sollen, Zeilen ausgeblendet sind. (entweder durch eine Gruppierung oder ganz "normal") Es erscheint dann die Fehlermeldung: Laufzeitfehler "-2147417848 (80010108)" Automatisierungsfehler Das aufgerufene Objekt wurde von den Clients getrennt.
Leider hilft mir das nicht besonders weiter. Ich wäre mega glücklich, wenn mir einer von euch helfen könnte! Freue mich über jede Hilfe.
Danke schon mal im Voraus
Eure Sarah
|