Automatisierte Übersicht aus mehreren Tabellen

Question

Hallo,

ich habe eine Excel.Datei in der ich für verschiedene Standorte (bsp.: Nürnber, Mannheim, Hamburg,....etc.) Listen mit Fehlermeldungen habe. Ach ja, ich habe pro Standort ein Tabellen-Blatt.

Wenn ein Fehler behoben wurde wird in Spalte G ein Datum eingetragen. Der Kopf der Tabellen ist in allen Blättern gleich, die Liste Startet mit Zeile 16.

Nun möchte ich mir eine Übersicht erstellen, in der alle offenen Meldungen gezeigt werden (automatisiert). Und wenn ich dann in Tab. xy ein Datum eintrage soll der Punkt auch aus der Übersicht verschwinden.

Hat jemand ne Idee wie man das Umsetzen könnte???

Gruß Lefty

Answer 1

@Rainberg: Hier die frage die ich per PN gestellt habe, nochmal für alle sichtbar!!!

Hallo,

du hattest mir vor kurzem ein wunderbares Makro für eine automatische Übersicht aus mehreren Tabellen gegeben.
https://supportnet.de/t/2349047

Ich habe es angepasst, das es mir jeweils die Daten aus den Spalten A bis H übernimmt.
Jetzt würde mich noch interessieren ob die möglichkeit besteht das man nicht nur von A - H sondern z.B. von A - C und E - H zusammenfasst. Wie müsste das Makro dann aussehen?
Habe schon rumprobiert aber nix hinbekommen.

Gruß Lefty

Answer 2

Hallo Lefty,

probier's mal so.

Option Explicit

Private Sub CommandButton1_Click()
Dim intI As Integer
Dim rngc As Range, rngBer As Range
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False
Set ws2 = Worksheets(1)
ws2.Range("A2:G" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
For intI = 2 To Worksheets.Count
Set ws1 = Worksheets(intI)
Set rngBer = ws1.Range("G15:G" & ws1.Cells(Rows.Count, 1).End(xlUp).Row)
For Each rngc In rngBer
If rngc.Value = "" Then
ws1.Range("A" & rngc.Row & ":C" & rngc.Row).Copy _
ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1)
ws1.Range("E" & rngc.Row & ":H" & rngc.Row).Copy _
ws2.Range("D" & ws2.Cells(Rows.Count, 1).End(xlUp).Row)
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Feedback wäre nett
Gruss Rainer
_____________________
Windows 7 Ultimate (x64)
Office 2007 Ultimate
Office 2003 Professional

Answer 3

Danke,

genau das was ich brauche! ! !

Gruß Lefty