Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zusammenfassen ohne Duplicate über mehrere Blätter

Zusammenfassen ohne Duplicate über mehrere Blätter
05.04.2006 16:43:05
Uwe
Hallo Zusammen,
ich haben unten ein Makro eingefügt, welches in einem Tabellenblatt Spalten mit
gleichem Spaltenkopf (Überschriften) zusammenfasst.
Nun bräuchte ich jedoch ein Makro, das über mehrere Tabellenblätter
die Spalten mit gleichen Spaltenkopf (Überschriften) ohne Duplikate
in den Zeilen in eine neue Tabelle ausgiebt.
Ich hoffe, dass ich mich verständlich ausdrücken konnte.
Für jede Hilfe wäre ich sehr dankbar.
Vielen Dank
Gruß Uwe

Sub Zusammenfassen()
Dim iRow As Integer, iCol As Integer, iAct As Integer
Dim iCountC As Integer, iRowLT As Integer, iRowLS As Integer
iCol = 1
Do Until IsEmpty(Cells(1, iCol))
For iAct = iCol + 1 To WorksheetFunction.CountA(Rows(1))
If Cells(1, iCol).Value = Cells(1, iAct).Value And _
WorksheetFunction.CountA(Columns(iCol)) > 1 Then
iRowLS = Cells(Rows.Count, iAct).End(xlUp).Row
iRowLT = Cells(Rows.Count, iCol).End(xlUp).Row + 1
Range(Cells(2, iAct), Cells(iRowLS, iAct)).Cut _
Cells(iRowLT, iCol)
End If
Next iAct
iCol = iCol + 1
Loop
Application.CutCopyMode = False
For iCol = Range("IV1").End(xlToLeft).Column To 1 Step -1
If WorksheetFunction.CountA(Columns(iCol)) = 1 Then
Columns(iCol).Delete
End If
Next iCol
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zusammenfassen ohne Duplicate über mehrere Blätter
07.04.2006 00:02:12
Glen
Hi,
kopier erst alles in ein Blatt und wende dann den Spezialfilter ohne Duplikate an.
mfg Glen
Zusammenfassen ohne Duplicate über mehrere Blätter
07.04.2006 00:59:28
Uwe
Hallo Glen,
danke für Deine Antwort.
Jedoch suche ich eine VBA - Lösung, da das Problem öfter vorkommt.
Trotzdem vielen Dank für Deine Mühe
Gruß
Uwe
AW: Zusammenfassen ohne Duplicate über mehrere Blätter
07.04.2006 15:40:29
Glen
Hi,
das kannst du mit dem Makrorekorder aufzeichnen.
mfg Glen
Anzeige

232 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige