Office: Zellbereiche verschiedener Tabellenblätter zusammenfügen

Zunächst ein freundliches Hallo an das Board und die User. Beim Lesen der Anfragen fiel mir auf, wie zuvorkommend und schnell die vorgetragenen Probleme gelöst werden. Dafür schon einmal ein grosses Kompliment.

Mein Problem dürfte für die Experten einfacherer Art sein: Ich schreibe Daten (Einnahmen und Ausgaben) in zwei verschiedene Tabellen der gleichen Mappe. Die hier relevanten Bereiche habe ich gleich formatiert. Nun möchte ich mittels eines Makros diese 2 Bereiche zusammenfügen und auswerten. Ich weiß jedoch nicht, wie man den aktiven Bereich einer Tabelle anspricht.

Für Eure Hilfe danke im voraus.

Freundl. Gruß
Peter

 

Hallo!

Den benutzten Bereich eines Blattes ermittelst du mit
Sheets("DeinBlattname").UsedRange

BTW: Muss es denn ein Makro sein?
So wie du das beschreibst, lässt sich das doch sicher auch mit Formeln lösen.

 

@Schatzi,

zunächst vielen Dank für Deine schnelle Antwort. Wenn sich meine Aufgabe mit Formeln lösen liesse, okay. Aber wie? Also nochmal:

Erste Tabelle aktiven Bereich markieren und in eine neues Tabellenblatt kopieren. Dann aus der zweiten Tabelle bestimmte Spalten, soweit aktiv, markieren, kopieren und in dem neuen Tabellenblatt anfügen. Dann diese Daten sortieren und Teilergebnisse anzeigen. Das in eine Formal zu packen, packe ich nicht.

Es ginge evtl. auch anders. In den beiden Tabellen werden Buchungen wie in einem Kassenbuch vorgenommen. Wenn es möglich wäre, die jeweils eingegebene Buchungszeile in der Auswertungstabelle unten anzufügen, hätte ich auch die benötigte Zahlenbasis.

Freundl. Gruß
Peter

 

Hallo!

So ganz blicke ich durch dein Vorhaben immer noch nicht durch...
Warum machst du die ganze Sache nicht gleich auf einem einzigen Blatt?
Mit dem Autofilter kannst du doch nach Ein- und Ausgaben filtern und mit TEILERGEBNIS, SUMMEWENN, ZÄHLENWENN und/oder SUMMENPRODUKT die nötigen Ergebnisse anzeigen.

Wenn du hier eine Beispielmappe hochlädst und anhand dieser genau beschreibst, was wann wo passieren soll, dann wird es vielleicht etwas anschaulicher.

 

@ Schatzi,

das habe ich mir auch schon überlegt, alle Buchungen in eine Tabelle zu schreiben und die Werte entspr. anzeigen zu lassen. Damit wären aber meine Kollegen, die im Verein damit befaßt sind, überfordert. Ich lade jetzt einfach mal einen anonymisierten Auszug der Datei hoch. Zusammenführung habe ich die Tabelle genannt, die ich gerne automatisch erzeugen möchte. Darauf basiert die Auswertung.

Die Auswertung zeigt den aktualisierten Stand der Einnahmen und Ausgaben zu den verschiedenen Konten. Parallel dazu wird in einem weiteren Tabellenblatt mit Hilfe von TEILSUMMEN bei jeder Buchung die Endsumme des jeweiligen Kontos aktualisiert.

Danke für Deine Mühe
Freundl. Gruß
Peter

 

Die Datei passwortgeschützt hochzuladen ist vielleicht nicht das Allercleverste... :lol: :lol: :lol:

 

Sorry, da hast Du völlig recht, habe ich ganz übersehen. Ich lade die Datei hiermit nochmals hoch.

Peter

 

Hallo!

Ich glaube, jetzt endlich begriffen zu haben, worauf du hinaus willst...
Test dies mal an einer KOPIE deiner Beispieldatei:

Rechtsklick auf den Tabellenreiter "Auswertung" > Code anzeigen
Diesen Code in das Codefenster rechts kopieren:

Code:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Auswertung").Columns("A:F").Delete
With Sheets("Giro")
.Range(.Cells(1, 1), .Cells(.Range("A65536").End(xlUp).Row, 6)).Copy
End With
Sheets("Auswertung").Activate
Sheets("Auswertung").Range("A1").PasteSpecial Paste:=xlPasteAll
With Sheets("Handkasse")
.Range(.Cells(2, 6), .Cells(.Range("H65536").End(xlUp).Row, 11)).Copy
End With
With Sheets("Auswertung")
.Activate
.Cells(.Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll
.Cells.ClearOutline
.Range(.Cells(1, 1), .Cells(.Range("A65536").End(xlUp).Row, 6)).Select
Selection.Sort Key1:=.Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Columns("A:F").AutoFit
.Range("A1").Select
End With
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Der Code wird jedesmal automatisch ausgeführt, wenn das Blatt "Auswertung" aktiviert wird.
Das Blatt "Zusammenführung" wird damit überflüssig.

War es das, was du wolltest?

 

@ Schatzi

Hallo,

das ist genau das, was ich mir vorgestellt habe. Allerdings habe ich nicht geglaubt, daß es diesen Aufwand erforder. Herzlichen Dank für Deine Mühe.

Zwei Dinge sind mir beim Testen aufgefallen:
1. Beim erstmaligen Öffnen des Tabellenblatts Auswertung erscheint eine Fehlermeldung "Laufzeitfehler 1004" und "Anwendungs- oder objektdefinierter Fehler". Drückt man die Fehlermeldung mit Beenden weg, wird das Makro ausgeführt.

2. Das Makro wird nur beim erstmaligen Öffnen der Datei ausgeführt. Geht man nach weiteren Dateneingaben auf das Tabellenblatt Auswertung passiert nichts. Das Makro wird erst nach Neustart von Excel und erneutem Öffnen der Datei wieder ausgeführt. Damit könnte ich jedoch leben.

Nochmals vielen Dank

Freundl. Gruß
Peter

 

Hallo!

Das kann ich nicht nachvollziehen; bei mir funktioniert es fehlerfrei...
Hast du's vielleicht an die falsche Stelle kopiert?
Sonst lade die Datei mit dem eingefügten Makro doch nochmal hoch.
Ich habe meine Datei auch nochmal angehängt.
Weist diese bei dir den/die gleichen Fehler auf?

 

Hallo,

habe die von Dir erzeugte Datei heruntergeladen. Diese verhält sich genauso wie die von mir erzeugte. Kann das damit zusammenhängen, dass ich Excel 2000 benutzt und Du wahrscheinlich eine neuere Version?

Gruß, Peter

 

Hallo!

Momentan sitze ich an einem "Fremd-Computer" und arbeite mit XL2003.
Aber daheim habe ich auch XL2000 (und XL2007).
Ich werde das aber übermorgen (Montag) mal testen können.

Musst dich halt noch a bisserl gedulden...

 

Hallo,

selbstverständlich, die Sache eilt nicht im geringsten. Bis dann.

Gruss, Peter

 

Hallo!

Weil ich meine eigene Vergesslichkeit kenne:
Solltest du bis Mittwoch nichts von mir hören, dann poste einfach nochmal in diesem Thread oder schicke mir eine PN.

 

So, jetzt hab' ich's unter XL2000 getestet.
Es liegt wohl nur an einer einzigen Zeile.
Scheinbar hat sich von 2000 bis 2003 irgendwas geringfügig am Sortiermodus geändert.
Dieser Code läuft bei mir:

Code:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Auswertung").Columns("A:F").Delete
With Sheets("Giro")
.Range(.Cells(1, 1), .Cells(.Range("A65536").End(xlUp).Row, 6)).Copy
End With
Sheets("Auswertung").Activate
Sheets("Auswertung").Range("A1").PasteSpecial Paste:=xlPasteAll
With Sheets("Handkasse")
.Range(.Cells(2, 6), .Cells(.Range("H65536").End(xlUp).Row, 11)).Copy
End With
With Sheets("Auswertung")
.Activate
.Cells(.Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlPasteAll
.Cells.ClearOutline
.Range(.Cells(1, 1), .Cells(.Range("A65536").End(xlUp).Row, 6)).Select
Selection.Sort Key1:=.Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Columns("A:F").AutoFit
.Range("A1").Select
End With
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub