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

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige