Gruppe
Feature
Problem
Nach Auswahl eines Namens in einem Gültigkeitsfeld soll sich die restliche Adresse über Formeln aktualisieren. Die Gültigkeitsauswahl soll bei Neueinträgen angepasst werden.
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & iRow).Name = "Adressen"
End Sub