VBA: Laufzeitfehler 1004
28.08.2017 11:01:44
Joline
ich habe einen kleinen Code bei dem mir Excel seit heute morgen den Laufzeitfehler 1004 auswirft. Letzte Woche und in einer baugleichen Datei tritt der Fehler nicht auf. Ich bin etwas ratlos, was kann die Ursache sein? Der Fehler liegt laut Excel in der Zeile mit "If Not Intersect..."
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
If ComboBox1 = "2 Rinderfiletsteaks" Then
Worksheets("Eingabe Versuchsdaten").Shapes.AddLine([J18].Left, [J18].Top, [F22].Left, [ _
_
F22].Top).Select
Worksheets("Eingabe Versuchsdaten").Shapes.AddLine([J22].Left, [J22].Top, [F18].Left, [ _
_
F18].Top).Select
Worksheets("Eingabe Versuchsdaten").Shapes.AddLine([P24].Left, [P24].Top, [G35].Left, [ _
_
G35].Top).Select
Worksheets("Eingabe Versuchsdaten").Shapes.AddLine([P35].Left, [P35].Top, [G24].Left, [ _
_
G24].Top).Select
Worksheets("Auswertung").Rows(11).Hidden = True
Worksheets("Auswertung").Rows(12).Hidden = True
ActiveCell.Select
Else
Worksheets("Auswertung").Rows(11).Hidden = False
Worksheets("Auswertung").Rows(12).Hidden = False
Dim Shp As Shape
For Each Shp In Sheets("Eingabe Versuchsdaten").Shapes
If Not Intersect(Shp.TopLeftCell, Sheets("Eingabe Versuchsdaten").Range("D17:P36")) Is _
_
Nothing Then Shp.Delete
Next Shp
End If
Application.ScreenUpdating = True
End Sub
Es wäre klasse, wen einer von euch drauf schauen könnte und bestenfalls den Fehler findet oder einen alternativen Lösungsvorschlag hat.
Liebe Grüße
Joline