Zusammenfassen

Forumthread: Zusammenfassen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zusammenfassen

Zusammenfassen

28.05.2003 11:02:02

Simone

Hallo,

ich suche ein VBA Skript für folgende Anwendung:
Ich habe 5 Tabellen, die alle gleich aufgebaut sind. In den Tabellen ist die Überschrift in Zeile 5.(Ab 6 fangen also die Daten an). In einer 6. Tabelle (heißs "Zusammenfassung") sollen die Daten aus den fünf Tabellen zusammengefasst werden sobald ich auf das 6. Blatt ("Zusammenfassung") klicke bzw. Wechsel. Es sollen aber nur die Zeilen zusammengefasst werden, die in den 5 Tabellen in Spalte B ein "A" oder ein "B" stehen haben.

Danke für Eure Mühe, schöne Feiertage

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Zusammenfassen

28.05.2003 12:31:39

Remo
Re: Zusammenfassen

28.05.2003 13:44:21

Simone

Re: Zusammenfassen

28.05.2003 12:31:39

Remo

Hallo Simone

Versuchs mal damit:

Sub zusammenfassen()
For i = 1 To 5
Sheets(i).Select
Set Bereich = Range("b6:b2000")
For Each Zelle In Bereich
If Zelle = "A" Or Zelle = "B" Then Rows(Zelle.Row).Copy _ Worksheets(6).Range("a65536").End(xlUp).Offset(1, 0)
Next
Next i
End Sub