Dim rngCell As Excel.Range With ThisWorkbook.Worksheets("Tabelle1") Set rngCell = .Cells(.Rows.Count, "H").End(xlUp) End With 'Wert in der Zelle ' rngCell.Value 'Adresse Zelle (z.B. für Formelausdruck) ' rngCell.Address