04.12.2016, 15:00
Hi Lupo,
hattest du dein Makro getestet? Bei mir meckerte der Debugger zweimal, weil die Variablen i und j nicht deklariert waren. Mit dieser Ergänzung funktioniert dein Vorschlag:
hattest du dein Makro getestet? Bei mir meckerte der Debugger zweimal, weil die Variablen i und j nicht deklariert waren. Mit dieser Ergänzung funktioniert dein Vorschlag:
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i as Long
Dim j As Long
With Target
If .Row < 8 And .Column = 1 Then
Application.EnableEvents = False
For i = 1 To 7
If i <> .Row And Cells(i, 1) = .Value Then
For j = 1 To 7
If Application.WorksheetFunction.CountIf([A1:A7], Cells(j, 3)) = 0 Then Cells(i, 1) = Cells(j, 3)
Next
End If
Next
Application.EnableEvents = True
End If
End With
End Sub