Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Werte aus 2 Spalten in neue übernehmen und dabei doppelte...
zurück: Daten eintragen lassen weiter: Makro verschiebt Bereich Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Busta2000
Gast


Verfasst am:
19. Jul 2010, 16:42
Rufname:

Werte aus 2 Spalten in neue übernehmen und dabei doppelte... - Werte aus 2 Spalten in neue übernehmen und dabei doppelte...

Nach oben
       Version: Office 2003

Hallo zusammen,

ich habe folgendes Problem.
Ich habe in Spalte A Werte stehen (Städtenamen) und in Spalte B Werte stehen (Städtenamen).

Die Werte können sowohl innerhalb der Spalten doppelt vorkommen als auch in beiden Spalten (Wert "xy" kann in Spallte A mehrfach auftauchen und in Spalte B auch mehrfach auftauchen).

Wenn ich jede Liste separat mit dem Spezialfilter in eine Hilfsspalte filtere, habe ich die doppelten Einträge je Spalte eliminiert.

Das Problem ist, dass Werte aus Spalte A (oder B) nicht unbedingt in Spalte B (oder A) vorkommen müssen.

Jetzt würde ich gerne die verkürzten Listen (oder wenn möglich auch die Originallisten) in eine zusammenfassen und dabei alphabetisch sortieren und doppelte Einträe entfernen.

Das Ganze sollte möglichst per VBA laufen.
Am Besten folgender Ablauf:

1. Spalte A dursuchen und alle Einträge (ohne doppelte) in Spalte K kopieren
2. Spalte B durchsuchen und alle Einträge, die noch nicht in der neuen Spalte K vorhanden sind, in die Spalte K kopieren (ohne doppelte).
3. alphabetische Sortierung (dies sollte relativ einfach sein)


Würde mich freuen, wenn mir jemand helfen könnte.
Vielen Dank im voraus.
Gruß
Phelan XLPH
Fortgeschritten


Verfasst am:
19. Jul 2010, 16:58
Rufname: Phelan


AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt - AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt

Nach oben
       Version: Office 2003

Hallo Buuusta2000,

Code:
Sub ph()
    Dim v As Variant
    Dim B As Variant
    Dim Dic As Object
   
    Set Dic = CreateObject("Scripting.Dictionary")
    With Tabelle1 'ANPASSEN
        B = Intersect(.Range("A:B"), .UsedRange)
        For Each v In B
            If v <> "" Then _
            Dic(v) = 0
        Next
        .Range("K2").Resize(Dic.Count) = _
        WorksheetFunction.Transpose(Dic.Keys)
        With .Columns(11)
            .Sort .Cells(1), xlAscending, Header:=xlYes
        End With
    End With
End Sub


...Spezialfilter kannste weglassen!

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Busta2000
Gast


Verfasst am:
20. Jul 2010, 09:00
Rufname:

AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt - AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt

Nach oben
       Version: Office 2003

Hi,

vielen Dank für deine schnelle Antwort.
Hat super geklappt. Das Umschreiben hat dann auch funktioniert, da die Spalten mittlerweile doch nicht nebeneinander liegen. Hab einfach den "Intersect" Vorgang kopiert und für die 2. Spalte dort reingeschrieben. Oder geht das noch schlanker?
Wenn nicht is auch nicht schlimm. Bin zufrieden so.

Nochmals Vielen DANK!!! Smile




Private Sub CommandButton2_Click()
Dim v As Variant
Dim B, C As Variant
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Distances") 'ANPASSEN
B = Intersect(.Range("B5:B65000"), .UsedRange)
For Each v In B
If v <> "" Then _
Dic(v) = 0
Next
.Range("n6").Resize(Dic.Count) = _
WorksheetFunction.Transpose(Dic.Keys)
C = Intersect(.Range("F5:F65000"), .UsedRange)
For Each v In C
If v <> "" Then _
Dic(v) = 0
Next
.Range("n6").Resize(Dic.Count) = _
WorksheetFunction.Transpose(Dic.Keys)

With Range("N5:N65000")
.Sort .Cells(5), xlAscending, Header:=xlYes
End With

End With
End Sub
Code:
Phelan XLPH
Fortgeschritten


Verfasst am:
20. Jul 2010, 09:31
Rufname: Phelan

AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt - AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt

Nach oben
       Version: Office 2003

Hallo Busta:

Deine Erweiterung überschreibt die Ausgabedaten von SpalteB!!!

Nimm das hier:

Code:
Private Sub CommandButton2_Click()
Dim v As Variant
Dim B As Variant
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Distances") 'ANPASSEN
    B = .Range("B5:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    For Each v In B
        If v <> "" Then _
        Dic(v) = 0
    Next
   
    B = .Range("F5:F" & Cells(Rows.Count, 6).End(xlUp).Row)
    For Each v In B
        If v <> "" Then _
        Dic(v) = 0
    Next
   
    .Range("N6").Resize(Dic.Count) = _
    WorksheetFunction.Transpose(Dic.Keys)
   
    With .Range("N5:N" & Cells(Rows.Count, 14).End(xlUp).Row)
        .Sort .Cells(1), xlAscending, Header:=xlYes
    End With
   
End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Busta2000
Gast


Verfasst am:
20. Jul 2010, 10:24
Rufname:


AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt - AW: Werte aus 2 Spalten in neue übernehmen und dabei doppelt

Nach oben
       Version: Office 2003

Hmm ok. Ist mir gar nicht so aufgefallen. Weil eigentlich alle Werte enthalten waren. Also ich hat mal neue hinzugefügt, um es zu testen und die sind dann auch in der Liste aufgetaucht. Aber habe jetzt deinen Code übernommen. Vielen Dank für deinen Hinweis.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Vergleichen 2 Tabellen mit ausgabe der fehlenden werte 1 Julie 2923 25. Jan 2005, 16:53
fridgenep Vergleichen 2 Tabellen mit ausgabe der fehlenden werte
Keine neuen Beiträge Excel Formeln: Spalten Sortieren 23 Fireball8 3108 07. Jan 2005, 18:40
fridgenep Spalten Sortieren
Keine neuen Beiträge Excel Formeln: Daten aus Liste übernehmen und selektieren 1 Maggi 1695 06. Jan 2005, 02:21
Gast1 Daten aus Liste übernehmen und selektieren
Keine neuen Beiträge Excel Formeln: Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen 2 Gast 2920 26. Nov 2004, 11:48
Gast Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen
Keine neuen Beiträge Excel Formeln: Verschiedene Werte in einer Spalte 4 Toledo 2408 23. Nov 2004, 19:54
Toledo Verschiedene Werte in einer Spalte
Keine neuen Beiträge Excel Formeln: ZÄHLENWENN bei 2 Suchkriterien in wechselnden Spalten 10 Rebecca Nau 1909 12. Nov 2004, 11:26
Arnim ZÄHLENWENN bei 2 Suchkriterien in wechselnden Spalten
Keine neuen Beiträge Excel Formeln: Wenn-Bedingung mit mehreren Spalten und Zeile 6 Lusie 2819 02. Nov 2004, 15:57
Lusie Wenn-Bedingung mit mehreren Spalten und Zeile
Keine neuen Beiträge Excel Formeln: Druckbereich:nur einzelne Spalten als Druckbereich markieren 3 mufty001 1912 21. Okt 2004, 09:24
mufty001 Druckbereich:nur einzelne Spalten als Druckbereich markieren
Keine neuen Beiträge Excel Formeln: gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a 4 Stefan B. 1310 21. Okt 2004, 08:06
Stefan B. gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a
Keine neuen Beiträge Excel Formeln: Werte aus Liste mit Validation in Zelle 1 Gast 2516 18. Okt 2004, 15:20
icke Werte aus Liste mit Validation in Zelle
Keine neuen Beiträge Excel Formeln: Werte in Zellen?!? 3 Kiamolo 2818 18. Okt 2004, 10:01
Kiamolo Werte in Zellen?!?
Keine neuen Beiträge Excel Formeln: Spalten kombinieren??? 3 fridgenep 1789 23. Sep 2004, 21:22
fridgenep Spalten kombinieren???
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript