Target - Fehler im Code
30.09.2014 21:48:16
WalterK
Hallo,
etwas funktioniert hier nicht. Es wird die Zeile "If Traget.Address...." gelb markiert und als Fehlertext kommt: Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ende1 As Long
Dim Ende2 As Long
With ActiveSheet
Ende1 = 126
Ende2 = 330
If Target.Address = .Cells(6, 43) And .Range(.Cells(5, 46)) = "" And .Range(.Cells(6, 46)) = _
"" Then
.Range(.Cells(4, 42), .Cells(330, 44)).Copy .Cells(4, 45)
.Range(.Cells(5, 46), .Cells(9, 46)).ClearContents
.Range(.Cells(18, 45), .Cells(Ende1, 47)).ClearContents
.Columns(45).ColumnWidth = 10.29
.Columns(46).ColumnWidth = 25.86
.Columns(47).ColumnWidth = 25.86
End If
End With
End Sub