spezifische Daten konsolidieren



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: spezifische Daten konsolidieren
von: Patt
Geschrieben am: 10.07.2002 - 11:20:52

Hallo,

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.


nach oben   nach unten

Tabellennamen in Liste
von: Any Body
Geschrieben am: 10.07.2002 - 12:23:12

zur 1. Frage habe ich eine Lösung:


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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Werte aus Diagramm"