Hallo zusammen,
ich habe mir diesen Code vor einiger Zeit mal aus dem Forum kopiert.
Wie stelle ich es an, das mir der Code in Spalte 3 die letzte Zelle in der sich Daten befinden auswirft. Komme da einfach nicht weiter.
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = blatt.Name
'von mir ergänzt
Nummer = Sheets(blatt).lastRow = Range("u65536").End(xlUp).Row
Sheets("Inhaltsverzeichnis").Cells(zeile, 3).Value = Nummer
zeile = zeile + 1
Next blatt
Gruß Sonnenpeter