Tabelle per Makro(?) aktualisieren

Guten Morgen,
ich habe eine Excel-Datei bei der ich insgesamt 5 Blätter habe.
1. Blatt Übersicht -- Name: ,,Total"
2. - 5. Blatt Daten -- Namen: ,,A", ,,I", ,,C" und ,,T"
In der Übersicht holt sich Excel dann die benötigten Informationen per Sverweise, alles schön und gut.
Das Suchkriterium, muss ich aber immer, wenn ich eine neue Zeile in einer der 4 Datenblätter eintrage, logischerweise auch in der Übersicht neu eintragen.
Gibt es hierfür ein "einfaches" Makro, damit Excel quasi immer:
von Blatt ,,A": Ab Zelle B5 bis zum letzten Eintrag in der Spalte sucht - kopiert und dann in der Übersicht einfügt (Ab Zelle)
+
von Blatt ,,I" Ab Zelle A4 bis zum letzten Eintrag in der Spalte sucht - kopiert und dann in der Übersicht in der nächsten freie Zelle in Spalte B einfügt (Quasi unter den Daten von Blatt A
+
von Blatt ,,C" Ab Zelle A7 bis zum letzten Eintrag in der Spalte sucht - kopiert und dann in der Übersicht in der nächsten freie Zelle in Spalte B einfügt (Quasi unter den Daten von Blatt I
+
von Blatt ,,T" Ab Zelle A6 bis zum letzten Eintrag in der Spalte sucht - kopiert und dann in der Übersicht in der nächsten freie Zelle in Spalte B einfügt (Quasi unter den Daten von Blatt C
?
Habe es per Makro-Aufzeichnen versucht, aber leider nicht ganz realisierbar.
Leider ist die Datei zu groß(3,5 MB), egal ob ich sie als ZIP komprimiere oder nicht... Falls hier jemand einen Tipp hat, gerne bescheid sagen!
Total: Userbild

Liebe Grüße
LeRayZ

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Uebersicht() Dim ws As Worksheet Dim rng As Range Dim rngdata As Range Dim shUebersicht As Worksheet Set shUebersicht = Worksheets("Total") For Each ws In Worksheets If ws.Name "Total" Then Set rng = ws.UsedRange Set rngdata = rng.Columns(1).Offset(1).Resize(rng.Rows.Count - 1, 2) With shUebersicht .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Resize(rngdata.Rows.Count, 2).Value = rngdata.Value End With End If Next ws End Sub

Hmm leider kopiert er damit zu viele Daten, da es noch mehrere Blätter in der Datei gibt.
Also ich dachte, ich hätte das relativ gut beschrieben, sorry!
Ich denke es müssen schon extra die vier Datenblätter angesprochen werden.
Blatt A: Alle Daten ab (und inklusive) Zelle B5 (B4 nicht, hier ist die Überschrift)
Blatt I: Alle Daten ab (und inklusive) Zelle A4 (A3 nicht, Zelle ist leer)
Blatt C: Alle Daten ab (und inklusive) Zelle A7 (A6 nicht, Zelle ist leer)
Blatt T: Alle Daten ab (und inklusive) Zelle A6 (A5 nicht, hier ist die Überschrift)
Spalte 2 soll in dem Makro absolut keine Rolle spielen, es geht wirklich nur um das "stumpfe" Copy und Paste Verfahren von den oben genannten Daten aus der Spalte Local Id (ohne Überschrift)

Option Explicit Sub Uebersicht() Dim ws As Worksheet, shUebersicht As Worksheet Dim rngdata As Range, x As Range Dim arrdata Dim i As Long Set shUebersicht = Worksheets("Total") i = 1 For Each ws In Worksheets If ws.Name "Total" Then Set rngdata = ws.UsedRange.Columns(1).Offset(1).Resize(ws.UsedRange.Rows.Count - 1) If TypeName(arrdata) = "Empty" Then ReDim arrdata(0, 1 To rngdata.Rows.Count) Else ReDim Preserve arrdata(0, 1 To UBound(arrdata, 2) + rngdata.Rows.Count) End If For Each x In rngdata.Cells If x.Value "" Then arrdata(0, i) = x.Value i = i + 1 End If Next End If Next ws ReDim Preserve arrdata(0, 1 To i) With shUebersicht .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Resize(UBound(arrdata, 2)).Value = Application.Transpose(arrdata) End With End Sub

' If ws.Name "Total" Then If ws.Name = "A" Or ws.Name = "I" Or ws.Name = "C" Or ws.Name = "T" Then 'bekannte Blätter auswählen With shUebersicht .Range(.Range("B6"), .Range("B6").End(xlDown)).ClearContents 'Liste löschen .Range("B6").Resize(UBound(arrdata, 2)).Value = Application.Transpose(arrdata) 'neue Daten einfügen End With

Beliebteste Forumthreads (12 Monate)

Tabelle per Makro(?) aktualisieren

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread