Macro Problem
17.02.2016 16:51:22
Erik
Hallo zusammen !
Habe ein Macro das mir ein Problem bereitet.
Ich habe bereits einen Tread aufgemacht, bei dem es aber ein Problem mit dem Zertifikat der xls Datei gibt, deshalb hier das Makro ohne Beispieldatei:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D1000")) Is Nothing And Target.Count = 1 Then
Range("H" & Target.Row) = Format(Now, "dd.mm.yyyy")
End If
On Error GoTo Fehler
Dim LR&
With ActiveSheet
LR = .Cells(Rows.Count, 5).End(xlUp).Row 'letzte Zeile der Spalte E
If Not Intersect(Target, .Range("D:D")) Is Nothing Then
If Target.Count <> 1 Then 'wenn mehrere Zellen gleichzeitig
MsgBox "Bitte nur einzeln ändern"
Application.EnableEvents = False
Application.Undo
ElseIf Target.Value <> "" And Target.Row < LR Then
Application.EnableEvents = False
.Range(.Cells(Target.Row + 1, 4), .Cells(LR, 4)). _
SpecialCells(xlCellTypeBlanks) = Target.Value
.Range(.Cells(Target.Row, 8), .Cells(LR, 8)). _
SpecialCells(xlCellTypeBlanks) = Cells(Target.Row, 8)
End If
End If
End With
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub
sobald ich in diesem Beispiel etwas in Zelle D7 eingebe wird die Tabelle richtig vervollständigt !
Lösche ich aber E9 bis G9, so daß nur noch zwei Zeilen mit Artikel befüllt sind
und gebe dann wiederum ein Kennzeichen in D7 ein,
kommt der Fehler 1004 und die ganze Tabelle wird befüllt.
Kann mir jemand helfen ?
Gruß
Erik