Laufzeitfehler 438
02.03.2017 08:12:08
Defence
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Suchen nach Unternehmer
ActiveSheet.Unprotect Password:="CBM"
If Target.Column = 10 And Target.Row = 10 Then
Worksheets("Unternehmerliste").Range("$A$1:$B$23252").AutoFilter Field:=2, Criteria1:=" _
0"
Cancel = True
Range("J11").Select
Selection.ClearContents
Sheets("Unternehmerliste").Select
End If
'öffnen der Kalkaulation
If Not Intersect(Target, Range("AE13:AE1007")) Is Nothing Then
ActiveCell.EntireRow.Select
Selection.copy
'neuer Pfad angeben für Kalakualtion
Workbooks.Open("O:\CREABETON\TM Tief- und Infrastrukturbau\INFRAMUR\00 - Offerten\ _
zz__Dokumente Offertool\Kalkualtion Inframur.xltm").Activate
Worksheets("Tabelle3").Activate
ActiveSheet.Range("A3").Select
Range("a3").paste
Worksheets("Tabelle1").Activate
Worksheets("Tabelle1").Range("B2").Select
End If
If Not Intersect(Target, Range("AD13:AD1007")) Is Nothing Then
End If
End Sub
Bei Range ("a3") kommt bei mir der Laufzeitfehler 438!!! Bin am Verzweifeln. Habe echt kein Plan warum oder wie ich das umgehen könnte.Bin für jeden Tipp dankbar.
Vielen Dank schon im voraus.
Gruss
Defence