Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zusammenfassen

Forumthread: Zusammenfassen

Zusammenfassen
28.05.2003 09: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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zusammenfassen
28.05.2003 10: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

Anzeige
Re: Zusammenfassen
28.05.2003 11:44:21
Simone

Hilfe, geht leider nicht. Die Blätter werden zwar ausgewählt, aber es wird nicht in das Blatt "Zusammenfassung" kopiert.

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige