Gruppe
Funktion
Bereich
SVERWEIS
Thema
Vervollständigung einer Adresse
Problem
Bei Auswahl eines Namens in Zelle A9 soll die übrige Adresse über Formeln vervollständigt werden.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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