Funktion in Dropdown-Listen

[WillWissen]

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:

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

[WillWissen]

Alle weiteren Antworten, die nicht unmittelbar zur Lösungsfindung geschrieben wurden, sondern der VBA-Nachhilfe dienten, habe ich in den neuen Thread VBA-Nachhilfe Variablendeklaration ( http://www.clever-excel-forum.de/thread-7536.html ) verschoben.