Auflistung von Blättern auf ein Blatt

Blättern · 2017-02-26T13:19:50+00:00

Hallo, ich bin auf der Suche nach einer Lösung Zeilen die mit Daten gefüllt sind und sich auf mehreren Tabellenblättern befinden auf einem Blatt aufzulisten. Hierbei haben alle Blätter die selben Überschriften in der ersten Zeile und auf der Zusammenfassung sollte noch zusätzlich der Name des Tabellenblatts stehen von dem die Daten kommen. Ich habe schon viel gesucht, es wird immer auf VBA verwiesen. Davon habe ich aber leider kein Ahnung. Eine Beispielsdatei windet Ihr hier: https://www.herber.de/bbs/user/111777.xlsx Für Eure Hilfe möchte ich mich schon im voraus bedanken. Viele Grüße Thorsten Kroll

Hallo Werner,
die Daten auf den anderen Blättern werden per Hand bzw. bei zwei Zellen per Dropdown eingegeben.
Habe jetzt dem "Makro" von ransi:

Public Sub Zusammenfassung()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Set wsZiel = ThisWorkbook.Worksheets("Zusammenfassung")
For Each wsQuelle In ThisWorkbook.Worksheets
loLetzteZ = wsZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
If wsQuelle.Name  "Zusammenfassung" Then
loLetzteQ = wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row
If loLetzteQ > 1 Then
With wsQuelle
.Range(.Cells(2, 1), .Cells(loLetzteQ, 9)).Copy wsZiel.Cells(loLetzteZ, 1)
wsZiel.Cells(loLetzteZ, 10) = wsQuelle.Name
End With
End If
End If
Next
End Sub

eine Tastenkobi zugeordnet
und ein zweites Makro das vorher die Zellen leert:
Sub Zellen_löschen()
'
' Zellen_löschen Makro
'
' Tastenkombination: Strg+l
'
Range("A2:J10").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub
Jetzt bin ich gerade dabei diese zusammenzufassen oder einen Button zu erstellen der beide ausführt. Mal sehen ob es klappt.
Viele Grüße
Thorsten

Hallo Thorsten,
kannst ja auch mal das hier ausprobieren:
in ein allgemeines Modul:

Public Sub Zusammenfassung()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Application.ScreenUpdating = False
Application.EnableEvents = False
Set wsZiel = ThisWorkbook.Worksheets("Zusammenfassung")
With wsZiel
loLetzteZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(2, 1), .Cells(loLetzteZ, 10)).ClearContents
End With
For Each wsQuelle In ThisWorkbook.Worksheets
loLetzteZ = wsZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
If wsQuelle.Name  "Zusammenfassung" Then
loLetzteQ = wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row
If loLetzteQ > 1 Then
With wsQuelle
.Range(.Cells(2, 1), .Cells(loLetzteQ, 9)).Copy wsZiel.Cells(loLetzteZ, 1)
wsZiel.Cells(loLetzteZ, 10) = wsQuelle.Name
End With
End If
End If
Next
Set wsZiel = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

ins Code-Modul vom Blatt "Zusammenfassung"
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Code-Fenster kopieren

Private Sub Worksheet_Activate()
Call Zusammenfassung
End Sub

Wie läuft es ab:
Sobald du von irgendeinem Blatt auf das Blatt "Zusammenfassung" wechselst wird das Makro im Modul aufgerufen. Dieses Makro leert dann zunächst das Blatt "Zusammenfassung" (bis auf die Überschriftenzeile) und kopiert dann alle Daten von allen anderen Blättern (in denen Daten vorhanden sind) ins Blatt "Zusammenfassung".
Der Code wird halt immer ausgeführt, sobald du auf das Tabellenblatt "Zusammenfassung" wechselst, egal ob in den anderen Blättern etwas geändert wurde oder nicht.
So hast du aber immer die aktuellen Daten aus den Blättern in deiner Zusammenfassung.
Gruß Werner

Auflistung von Blättern auf ein Blatt

Forumthread: Auflistung von Blättern auf ein Blatt

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Auflistung von Blättern auf ein Blatt

Forumthread: Auflistung von Blättern auf ein Blatt

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread