Gruppe
Funktion
Problem
Bei Auswahl eines Namens in Zelle A9 soll die übrige Adresse über Formeln vervollständigt werden.
ClassModule: Tabelle2
Private Sub Worksheet_Calculate()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A" & iRow).Name = "Adressen"
End Sub