Zusammenführen von daten aus verschiedenen Tabellen
Frank Klingler
Bei folgender Problemstellung benötige ich dringend Hilfestellung:
Ich möchte Vertriebsinformation des Aussendienstes, die in Form einer Excel
Tabelle fortlaufend erfasst werden, in einer zentralen Übersichtstabelle
zusammenfassen und dann weiter auswerten.
Dabei haben alle Einzeltabellen des Aussendienstes denselben Aufbau (bezg.
Aufbau, Spaltenanzahl, Spaltenüberschrift und deren Platzierung etc.),
allerdings immer eine verschiedene Anzahl an aktuellen Datensätzen (in
Zeilen).
Die Daten der Einzeltabellen sollen dazu (sortiert nach Angebotsdatum)
hintereinander in einem Tabellenblatt der zentralen Übersichtstabelle
zusammengeführt werden und möglichst beim Öffnen der zentralen
Übersichtstabelle oder manuell aktualisiert werden, sodass man immer über
aktuelle Informationen verfügt.
Wie mach ich das?
Vielen Dank im Voraus für jede Hilfestellung!
Grüsse
Frank Klingler
Christoph Sternberg
Frank Klingler meinte:
>Dabei haben alle Einzeltabellen des Aussendienstes denselben Aufbau (bezg.
>Aufbau, Spaltenanzahl, Spalten�berschrift und deren Platzierung etc.),
>allerdings immer eine verschiedene Anzahl an aktuellen Datens�tzen (in
>Zeilen).
Such mal in der Excel-Hilfe nach dem Stichwort "konsolidieren". Das hier
im einzelnen zu erkl�ren, w�rde IMHO zu weit gehen.
Christoph Sternberg */\
Frank Klingler
danke für den Hinweis. Ich möchte allerdings keine Daten summieren oder die
Anzahl der Datensätze berechnen...etc, sondern die verschiedenen Datensätze
zusammenkopieren...wenn möglich mit Aktualisierungsmöglichkeit...
Tabelle 1 z.B. 15 Datensätze
Tabelle 2 z.B. 8 Datensätze
Tabelle 3 z.B. 3 Datensätze
....also zusammengeführt in einem Übersichtstabellenblatt = alle 26
Datensätze.
Grüsse
Frank
"Christoph Sternberg" schrieb:
>
> Frank Klingler meinte:
>
> >Dabei haben alle Einzeltabellen des Aussendienstes denselben Aufbau (bezg.
> >Aufbau, Spaltenanzahl, Spaltenüberschrift und deren Platzierung etc.),
> >allerdings immer eine verschiedene Anzahl an aktuellen Datensätzen (in
> >Zeilen).
>
> Such mal in der Excel-Hilfe nach dem Stichwort "konsolidieren". Das hier
> im einzelnen zu erklären, würde IMHO zu weit gehen.
>
> Christoph Sternberg */\
>
Andreas Killer
<FrankKling...@discussions.microsoft.com> wrote:
> danke für den Hinweis. Ich möchte allerdings keine Daten summieren oder die
> Anzahl der Datensätze berechnen...etc, sondern die verschiedenen Datensätze
> zusammenkopieren...wenn möglich mit Aktualisierungsmöglichkeit...
Hatte ich gerade eben gemacht, kuckst Du hier:
http://groups.google.de/group/microsoft.public.de.excel/browse_thread/thread/ff6e68a86f67472e?hl=de#
Andreas.
Andreas Killer
<FrankKling...@discussions.microsoft.com> wrote:
> danke für den Hinweis. Ich möchte allerdings keine Daten summieren oder die
> Anzahl der Datensätze berechnen...etc, sondern die verschiedenen Datensätze
> zusammenkopieren...wenn möglich mit Aktualisierungsmöglichkeit...
> Tabelle 1 z.B. 15 Datensätze
> Tabelle 2 z.B. 8 Datensätze
> Tabelle 3 z.B. 3 Datensätze
> ....also zusammengeführt in einem Übersichtstabellenblatt = alle 26
> Datensätze.
Uups, sorry, hatte ich nicht eben gemacht, naja, fast das gleiche. ;-)
Probier mal das angehängte Makro.
Andreas.
Sub Test()
Dim S As Worksheet, R As Range
For Each S In Sheets
If S.Name <> ActiveSheet.Name Then
Set R = SheetLastCell
Set R = Cells(R.Row + 1, 1)
With S
.Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell))
_
.Copy R
End With
End If
Next
End Sub
Private Function SheetLastCell(Optional S As Worksheet) As Range
'Liefert die letzte verwendete Zelle der Tabelle
Dim R As Range, C As Range
If S Is Nothing Then Set S = ActiveSheet
Set R = S.Cells.SpecialCells(xlCellTypeLastCell)
If IsEmpty(R) And Not R.Address = Cells(1, 1).Address Then
Set C = S.Cells.Find("*", After:=R, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious)
Set R = S.Cells.Find("*", After:=R, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious)
Set SheetLastCell = S.Cells(R.Row, C.Column)
Else
Set SheetLastCell = R
End If
End Function