kann mir jemand sagen, wie ich auf einem Tabellenblatt in Spalte A alle Tabellennamen des Workbooks, in Spalte B jeweils die letzte ausgefüllte Zeile (den letzten Datensatz) des jeweiligen Tabellenblatts kopieren kann.
Besten Dank.
kann mir jemand sagen, wie ich auf einem Tabellenblatt in Spalte A alle Tabellennamen des Workbooks, in Spalte B jeweils die letzte ausgefüllte Zeile (den letzten Datensatz) des jeweiligen Tabellenblatts kopieren kann.
Besten Dank.
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim i As Integer
For i = 1 To Worksheets.Count
' 1 dazu damit Überschrift möglich
Inhalt.Cells((i + 1), 1) = Worksheets(i).Name
Next i
End Sub
Sub Workbook_Open()
Mach_Inhalt
End Sub
Private Sub Mach_Inhalt()
Dim i, j As Integer
j = 2
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Inhalt" Then
Worksheets(i).PageSetup.LeftFooter = ThisWorkbook.FullName
Else
If Inhalt.Cells((j), 1) <> Worksheets(i).Name Then
Inhalt.Cells((j), 1) = Worksheets(i).Name
' Vollen Dateiname in Fusszeile übernehmen
Worksheets(i).PageSetup.LeftFooter = ThisWorkbook.FullName
End If
j = j + 1
End If
Next i
Inhalt.Cells((Worksheets.Count + 1), 1) = ""
End Sub