Gruppe
Funktion
Problem
Wie kann ich in einem Deckblatt Verweise auf Tabellenblätter einfügen, deren Namen in der Kopfzeile stehen?
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