Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unikate aus 2 Spalten

Unikate aus 2 Spalten
22.03.2020 09:28:54
Fred

Hallo Excel-Profis,
ich möchte eine "Unikatliste" aus Werten von 2 Spalten erstellen.
Die 2 Spalten befinden sich in "Tabelle0", Spalte "BF" & "BG"
Die "Unikatliste" soll in "Tabelle1", ab i2 erstellt werden.
mein code ist in dieser Hinsicht falsch: 
Sheets("Tabelle0").Range("BF1:BG100").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Tabelle1").Range("I1"), Unique:=True
Sheets("Tabelle1").Range("I1").Value = "Team"

Kann mir bitte jemand den Code korrigieren?
Gruß
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: Unikate aus 2 Spalten
22.03.2020 12:06:57
Nepumuk
Hallo Fred,
ich denke das funktioniert mit zwei Spalten nicht.
Versuch es mal so:
Option Explicit

Public Sub Unikate()
    Dim avntValues As Variant, vntItem As Variant
    Dim objDictionary As Object
    With Worksheets("Tabelle0")
        avntValues = .Range("BF1:BG100").Value
    End With
    Set objDictionary = CreateObject(Class:="Scripting.Dictionary")
    With objDictionary
        For Each vntItem In avntValues
            .Item(Key:=vntItem) = vbNullString
        Next
        Worksheets("Tabelle1").Cells(2, 9).Resize(.Count, 1).Value = Application.Transpose(.Keys)
        Worksheets("Tabelle1").Cells(1, 9).Value = "Team"
    End With
    Set objDictionary = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Unikate aus 2 Spalten
22.03.2020 12:36:31
Fred
Hallo Nepumuk,
es funzt.
Großer Sport !!
Danke!
Gruß
Fred
AW: Unikate aus 2 Spalten
22.03.2020 12:33:50
fcs
Hallo Fred,
mit dem SPezialfilter kann man nicht die Daten aus 2 Spalten in eine Spalte filtern und in einem anderen Zellbereich ausgeben.
Hier eine Variante:
Die Daten aus den Spalten werden untereinander in die Zielspalte kopiert und dann die Duplikate und Leerzellen gelöscht.
LG
Franz 
Sub Unikate_Teams()
' Unikate_Teams Makro
Dim rngZiel As Range
Set rngZiel = Worksheets("Tabelle1").Range("I1")
rngZiel.Value = "Team"
With Worksheets("Tabelle0")
.Range("BF1:BF100").Copy 'ggf. BF1 durch BF2 ersetzen
rngZiel.Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("BG1:BG100").Copy 'ggf. BG1 durch BG2 ersetzen
rngZiel.Offset(101, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
With Worksheets("Tabelle1")
With .Range(rngZiel, rngZiel.Offset(200, 0))
.RemoveDuplicates Columns:=1, Header:=xlYes
.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
End With
Range("I1").Select
End With
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Spalten aus über 400 excel files auslesen
marky

Hallo Excel Freaks !
Habe folgendes Problem.
Ich möchter über ein makro auf einen Ordner Zugreifen indem sich über 400 excel files befinden. Die excel files beinhalten nur ein Sheet wobei dieses den Namen des files hat (Also nicht Tabelle 1 oder Sheet 1 oder so).
Ich möchte dass das...
03.09.2008 21:44:41
Thread-ID: 1007240
5 Beiträge
Anzeige
Werte aus 2 Spalten vergleichen??
stefan

Hallo,
ich habe in 2 Spalten Werte. Wie kann ich prüfen, ob die werte in der einen spalte enthalten sind. WEnn sie enthalten sind, soll in einer 3.spalte ein text ausgegeben werden.
wie mach ich das am besten?
danke euch?
13.03.2009 16:57:19
Thread-ID: 1059944
4 Beiträge
Array Splitten Transponse Ausgabe in 2 Spalten
chris

Hallo VBA experten,
ich habe eine frage und bitte um eure Hilfe.
Ich komme alleine nicht weiter:(
Ich habe eine Tabelle1. In Spalte 1 Stehen z.b Werte untereinander.
27>27
17>17
6>6
17>1
usw...
diese möchte ich gerne in ein Array übernehmen und da...
23.04.2009 10:44:32
Thread-ID: 1070604
10 Beiträge
Anzeige
Spalten zählen und ausblenden
Sophie

Hallo liebe Forum-Leser!
Ich versuche in Excel sowas ähnliches wie MS Project darzustellen (weil das so gewünscht wird, fragt aber nicht warum).
Durch Datumseingabe (für Anfang und Ende des Projekts) will ich nur den Zeitstrahl (in Kalendeswochen) darstellen, so dass man die einzelne Sc...
15.06.2009 19:17:19
Thread-ID: 1081675
9 Beiträge
kombinationen aus spalten bilden
gh

hallo zusammen,
gibt es bei excel eine möglichkeit aus spalte 1 und 2 oder 1, 2 und 3 kombinationen zu bilden?
vielen dank im voraus!
lg
25.09.2009 12:52:27
Thread-ID: 1105553
11 Beiträge
Datum aus 2 spalten filtern
Gregor

Hallo
Ich habe in Spalte M ein Datum "Ausführung Beginn" und in Spalte N ein Datum "Ausführung Ende". Wie kann ich für einen bestimmten Zeitraum alle Daten zwischen Ausrührung Beginn und Ausführung Ende filtern. Zb. alle Arbeiten die in der Zeit vom 1.11.10 und 31.11.10 ausgeführt werden bz...
18.11.2010 20:16:31
Thread-ID: 1187609
3 Beiträge
alle Kombinationen aus zwei Spalten ermitteln
Jockel

Hallo,
ich habe eine Tabelle mit zwei Spalten:
A_____________B______________
Beleg_________Code__________
125___________60____________
125___________40____________
122___________30____________
122___________30____________
usw.
Ich möchte nun per Makro ermitte...
25.01.2011 09:28:18
Thread-ID: 1197160
4 Beiträge
+/- Ausgabe aufgrund Folge von 2 Spalteneinträge
2

Hallo Excelianer,
habt Ihr eine Idee, wie ich die +/- Einträge automatisiert auf Basis der 2 Regelen darstellen kann.
Die Spalten F,G,H, sind lediglich Hilfsspalten.
Ich scheitere immer daran, wenn ich auf einen vorherigen Block schauen muss. In Regel 1 muss ich ja im selben Bereic...
13.05.2011 16:01:26
Thread-ID: 1213743
2 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
5
3
9
6
8
10
2
3
1
3
14
7
6
3
10
6
7
4
6
4
3
4
1
19