Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - mehrfach vorkommende Einträge listen

VBA - mehrfach vorkommende Einträge listen
11.12.2016 14:25:27
Fred
Hallo Excel-Experten,
… das wird wohl nur über VBA umsetzbar sein.
Ich habe eine Liste in Tabellenblatt „Basis“
Ich möchte aus dieser Liste den jeweils ersten Eintrag aller mehrfach vorkommenden Einträge in Tabellenblatt „Auswahl“ kopiert bekommen.
Das Kriterium für die "mehrfache Auswahl" ist in Spalte "B"
Um es etwas verständlicher zu machen, habe ich eine einfach gehaltene Beispiel-Mappe angefügt.
https://www.herber.de/bbs/user/109986.xlsm
Kann mir jemand dabei helfen, dieses in VBA umzusetzen?
Gruß
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - mehrfach vorkommende Einträge listen
11.12.2016 14:42:43
Gerd
Hallo Fred! 
Sub Unikate_aus_B()
Dim Q As Worksheet, Z As Worksheet
Set Q = Worksheets("Basis"): Set Z = Worksheets("Auswahl")
Q.Cells(1, 1).CurrentRegion.Offset(1).Copy Z.Cells(2, 1)
Z.Cells(1, 1).CurrentRegion.Offset(1).RemoveDuplicates 2, xlNo
Set Q = Nothing: Set Z = Nothing
End Sub
Gruß Gerd
AW: VBA - mehrfach vorkommende Einträge listen
11.12.2016 14:54:46
Fred
Hallo Gerd,
das VBA funzt,- allerdings werden alle Einträge einmalig in "Auswahl" kopiert.
Ich wollte eigentlich, das nur die mehrfach vorkommenden Einträge (aus "Basis") einmalig in Blatt "Auswahl" kopiert werden.
Gibt es dafür auch eine Lösung?
Gruß
Fred
Anzeige
AW: VBA - mehrfach vorkommende Einträge listen
11.12.2016 17:05:48
Gerd
Hallo Fred,
dann statt Hilfsspalte mit Formel ein paar Codezeilen mehr. 

Sub Primus_aus_Duplikaten_B()
Dim Q As Worksheet, Z As Worksheet, U As Range, lngRow As Long, lngLZ As Long
Set Q = Worksheets("Basis"): Set Z = Worksheets("Auswahl")
lngLZ = Q.Cells(Q.Rows.Count, 2).End(xlUp).Row
With WorksheetFunction
For lngRow = 2 To lngLZ
If .CountIf(Q.Range(Q.Cells(2, 2), Q.Cells(lngRow, 2)), Q.Cells(lngRow, 2).Value) = 1  _
And _
.CountIf(Q.Range(Q.Cells(2, 2), Q.Cells(lngLZ, 2)), Q.Cells(lngRow, 2).Value) > 1  _
Then
If U Is Nothing Then Set U = Q.Cells(lngRow, 1).Resize(1, 8) Else _
Set U = Union(U, Q.Cells(lngRow, 1).Resize(1, 8))
End If
Next
End With
If Not U Is Nothing Then
U.Copy Z.Cells(2, 1)
Set U = Nothing
End If
Set Q = Nothing: Set Z = Nothing
End Sub
Gruß Gerd
Anzeige
Danke Gerd
11.12.2016 17:12:48
Fred
Hallo Gerd,
genau so wollte ich das Ergebnis der mehrfachen Einträge erzielen.
Tolle Arbeit!
Schönen Sonntag noch
mfG
Fred
AW: VBA - mehrfach vorkommende Einträge listen
11.12.2016 18:14:46
Werner
Hallo Fred,
du hast zwar schon eine geänderte, funktionierende Version von Gerd, aber da ich mich auch schon hingesetzt habe, stelle ich meine Version auch noch ein.
@Gerd: Hoffe du bist jetzt nicht sauer, weil ich an deninem Code rumgepfuscht habe.
Sub Unikate_aus_B()
Dim i As Long
Dim ii As Long
Dim Q As Worksheet, Z As Worksheet
Set Q = Worksheets("Basis"): Set Z = Worksheets("Auswahl")
With Z
ii = .Cells(.Rows.Count, 2).End(xlUp).Row
If ii > 1 Then
.Range(.Cells(2, 1), .Cells(ii, 8)).ClearContents
End If
End With
With Q
For i = 2 To Q.Cells(Rows.Count, 2).End(xlUp).Row
ii = Z.Cells(Rows.Count, 2).End(xlUp).Offset(1).Row
If WorksheetFunction.CountIf(.Columns(2), .Cells(i, 2)) > 1 Then
.Range(.Cells(i, 1), .Cells(i, 8)).Copy Z.Cells(ii, 1)
End If
Next i
End With
Z.Cells(1, 1).CurrentRegion.Offset(1).RemoveDuplicates 2, xlNo
Application.CutCopyMode = False
Set Q = Nothing: Set Z = Nothing
End Sub
Gruß Werner
Anzeige
AW: Nee, Alternativen gibts fast immer o.r.T.
11.12.2016 19:12:29
Gerd
Hallo Werner,
Gruß Gerd

301 Forumthreads zu ähnlichen Themen

Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Anzeige
auflisten bedingter formatierungen in 2007 mit VBA
manfred

Wie kann ich die bedingten Formatierungen in Excel 2007 (mit Hilfe von VBA) auflisten?
10.11.2010 15:19:12
Thread-ID: 1186102
2 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
Anzeige
SAP- Liste anpassen VBA
Karl-Ludwig

Hallo zusammen,
nachdem mir hier schon einige Male geholfen werden konnte habe ich heute mal wieder 2 Anliegen.
Aus SAP habe ich eine Liste im Excel- Format exportiert.
Diese ist natürlich so nicht brauchbar. Diese Liste müsste umstrukturiert werden, damit Autofilter usw eingesetzt...
09.12.2011 10:10:28
Thread-ID: 1241261
2 Beiträge
VBA Suchen/Ersetzen laut Liste
WalterK

Guten Abend,
mit dem folgenden Code aus dem Internet kann ich per Knopfdruck gleich mehrere Zellinhalte einer Spalte ersetzen.
Option Explicit Sub SuchenErsetzen() Dim arName1 As Variant Dim arName2 As Variant Dim i As Long arName1 = Array("Apfel", "Banane", "Gurke") arName2 = Array("Ro...
15.11.2012 20:31:53
Thread-ID: 1286879
10 Beiträge
VBA-Berechnung DLZ für alle Ebenen der Stückliste
Mastw92

Guten Tag,
im Rahmen einer Projektarbeit benötige ich die Durchlaufzeiten für alle Ebenen der Stückliste.
Ebene 0 besteht aus den Fertigprodukten, Ebene 1 aus den Einzelteile, Ebene 2 sind wiederum Teile für Ebene 1 usw.
Die DLZ, die angegeben ist, gibt nur die Durchlaufzeit auf die...
18.07.2013 16:02:34
Thread-ID: 1323129
11 Beiträge
Werte in Externe Liste übertragen VBA
Tiuri

Hallo allerseits,
ich habe eine Frage und zwar ist es zum einen möglich, bzw. hat einer einen ansatz für einen VBA Code, mit dem ich durch ausführen eines Buttons werte aus einzelnen zellen in eine Externe Liste übertrage? Dabei sollen diese Werte immer ans Ende der externen Tabelle geschri...
07.10.2013 16:42:55
Thread-ID: 1333465
2 Beiträge
Artikelliste nach Wert erstellen - VBA
Thorben

Moinsen Forumfreunde,
ich habe eine Idee aber weiß nicht wie ich das in Formeln oder VBA umsetzen könnte.
- Eine Tabelle
- 4 Spalten (A,B,C,D) ca. 5000 Zeilen
- Spalte A: Artikelnamen
- Spalte B: Stückpreise
- Spalte C: Mengen
- Spalte D: Gesamtsumme (Menge * Stückpr...
20.02.2014 10:45:38
Thread-ID: 1350464
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
1
2
6
1
9
10
1
5
8
5
16
7
13
1
1
13
6
1
3
5
7
4
2