Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

spezifische Daten konsolidieren

Forumthread: 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.

Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige