Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

spezifische Daten konsolidieren

spezifische Daten konsolidieren
10.07.2002 11:20:52
Patt
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Tabellennamen in Liste
10.07.2002 12:23:12
Any Body
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige