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

Matrix filtern und dann kopieren

Matrix filtern und dann kopieren
28.10.2003 10:05:35
Christian
Hallo Forum,

ich habe eine Matrix mit circa 20000 Zeilen und 30 Spalten.
Ich möchte jetzt nach gleichen Einträgen in Spalte B suchen und alle Zeilen mit dem identischen Eintrag in Spalte B in ein neues Blatt kopieren.
Am besten wäre das ganze ohne VBA.
Danke für die Mühe!

MfG

Christian

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Idee
28.10.2003 10:30:25
@lex
Hallo Christian...
nur eine Idee:
Lege eine Hilfsspalte an und benutze die Formel
=ZÄHLENWENN($B$1:$B$2000;b1) und kopiere sie nach unten
Danach gehst Du auf Daten |Filter | Autofilter und lässt Dir alle Werte anzeigen die größer gleich 2 sind (Das sind die doppelten in Spalte B)
Danach markierst Du Deine gefilterte Matrix und kopierst die Werte in die neue Mappe...

Alex
AW: Idee
28.10.2003 10:34:55
Christian
Hört sich erstmal ganz gut an.
Aber händisch wollte ich das ja gerade nicht machen.
Ich dachte eher an eine Form des Sverweis oder etwas ähnliches...
Sorry
28.10.2003 11:02:12
@lex
Ohne VBA muss ich dann passen....
Leider :(
Anzeige
AW: Sorry
28.10.2003 11:04:18
Christian
O.K., wenn Du eine Idee mit VBA hast nehm ich die auch gerne...
AW: Sorry
28.10.2003 11:34:36
@lex
OK....ich habe mal in meinen Mappen rumgewühlt und etwas gefunden....


Sub Doppelte_übertragen()
Dim strWert As String
Dim dblCount As Double
Dim dblRow, dblRowneu As Double
dblRow = Cells(Rows.Count, 1).End(xlUp).Row
For dblCount = dblRow To 1 Step -1
strWert = Cells(dblCount, 1).Value
If WorksheetFunction.CountIf(Range(Cells(1,1),Cells(dblrow,1)), strWert) >= 2 Then
dblRowneu = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets(2).Rows(dblRowneu).Value = Rows(dblCount).Value
End If
Next dblCount
End Sub


Allerdings würde ich Dir nicht empfehlen bei einer solch großen Matrix damit ranzugehen.
Das dauert einige Minuten bis das durchgelaufen ist.
Was anderes fällt mir leider nicht ein...
Anzeige
AW: Sorry
28.10.2003 11:40:05
Christian
Zeit ist nicht das Problem....
Danke für die Lösung, werde das mal ausprobieren!

110 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige