ich verzweifele an diesem Makro hier,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range, z&, cc As Range, zf&
Dim gefunden As Boolean
If Target.Column = 5 And Target.Count = 1 Then
If Target "" And Target.Offset(, -4) "" Then
z = Target.Row
gefunden = False
Set cc = Range("A1:A" & z - 1).Find(Target.Offset(, -4).Value, _
Range("A1"), xlValues, xlWhole)
If Not cc Is Nothing Then
zf = cc.Row
Do
Set cc = Range("A1:A" & z - 1).FindNext(cc)
If cc.Offset(, 4) = Target Then
Target.Offset(, -1) = cc.Offset(, 3)
gefunden = True
End If
Loop Until cc Is Nothing Or cc.Row = zf Or gefunden
End If
If Not gefunden Then Target.Offset(, -1).Value = "n.v."
End If
End If
End Sub
Das Makro funktionierte bis vorhin bestens, bis ich noch ein paar Spalten eingefügt habe.Was vorher Spalte D war ist jetzt Spalte E und was vorher Spalte E war ist jetzt Spalte G. Ich verzweifele daran das Makro abzuändern, dass es wieder funktioniert.
Heilft ihr mir bitte?
Jenny