Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel: Tabelle nach Pärchen durchsuchen und gruppieren

Frage Microsoft Microsoft Office

Mitglied: lebmug

lebmug (Level 1) - Jetzt verbinden

22.12.2014 um 10:42 Uhr, 752 Aufrufe, 1 Kommentar

Hallo zusammen,

ich habe eine Excel-Sheet mit 6 Spalten, davon jeweils 3 aus einer Perspektive:

ID1, Volumen1, Anzahl1, ID2, Volumen2, Anzahl2

Darin sind in gerne mal mehr als 50.000 Zeilen eintragungen, die ich vergleiche muss.

In einer idealen Welt würden hierbei alle bei ID1 vorkommenden IDs ebenfalls in ID2 zu finden sind und umgedreht, was selten der Fall ist.

Bisher geh ich immer manuell los und verschieb mir alle Einträge so dass zum Schluss jede Zeile eine ID behandelt (wenn eine ID nur in einer der beiden Spalten vorkommt bleiben die drei dazugehörigen Felder des Schwesterbereichs leer).

Gibt es ein Script oder eine andere Möglichkeit das zu automatisieren?


Ein vereinfachtes Beispiel:

Aus

Apfel,2,1,Apfel,2,1
Birne,3,1,Birne,3,1
Banane,1,1,Plfaume,5,2

soll werden

Apfel,2,1,Apfel,2,1
Birne,3,1,Birne,3,1
Banane,1,1,(Leer),(Leer),(Leer)
(Leer),(Leer),(Leer),Plfaume,5,2

Kann mir da jemand weiterhelfen?

Vielen Dank!

MFG
lebmug
Mitglied: colinardo
22.12.2014, aktualisiert um 17:39 Uhr
Hallo lebmug, Willkommen auf Administrator.de!
Guckst du in dieses Demo-Sheet: match_pairs_258305.xlsm
01.
Sub MatchPairs() 
02.
    Dim ws As Worksheet, rngA As Range, rngB As Range, f As Range, cell As Range 
03.
    'Arbeitsblatt wählen 
04.
    Set ws = Sheets(1) 
05.
    Application.ScreenUpdating = False 
06.
    With ws 
07.
        'Bereich A 
08.
        Set rngA = .Range("A2:A" & ws.UsedRange.Rows.Count) 
09.
        'Bereich B 
10.
        Set rngB = .Range("D2:D" & ws.UsedRange.Rows.Count) 
11.
        ' Bei Bedarf vorher beide Bereiche sortieren 
12.
        'rngA.Sort rngA.Columns(1), xlAscending 
13.
        'rngB.Sort rngB.Columns(1), xlAscending 
14.
         
15.
        'Für alle IDs in Bereich A 
16.
        For Each cell In rngA 
17.
            'Wenn ID nicht leer 
18.
            If cell.Value <> "" Then 
19.
                'Suche aktuelle ID in Bereich B 
20.
                Set f = rngB.Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole) 
21.
                'Wenn passende ID gefunden wurde 
22.
                If Not f Is Nothing Then 
23.
                    'wenn aktuelle Zeile nicht gleich der gefundenenen (andernfalls is ja kein Umsetzen nötig) 
24.
                    If f.Row <> cell.Row Then 
25.
                        'Verschiebe die 3 Zellen der gefundenen ID in die aktuelle Zeile 
26.
                        f.Resize(1, 3).Cut 
27.
                        cell.Offset(0, 3).Resize(1, 3).Insert xlDown 
28.
                    End If 
29.
                Else 
30.
                    'es wurde keine passende ID gefunden füge leere Zellen ein 
31.
                    cell.Offset(0, 3).Resize(1, 3).Insert xlDown, xlFormatFromLeftOrAbove 
32.
                End If 
33.
            End If 
34.
        Next 
35.
    End With 
36.
    Application.ScreenUpdating = True 
37.
End Sub
Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Microsoft Office
Word Dokument (vorausgefüllte Formulare) aus Excel Tabelle generieren (1)

Frage von Server4Alle zum Thema Microsoft Office ...

Microsoft Office
gelöst Daten (Tabelle) aus E-Mail nach Excel übertragen (6)

Frage von kaiuwe28 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Festplatten, SSD, Raid
gelöst Fehlerhafte Blöcke im RAID 10 (12)

Frage von Kojak-LE zum Thema Festplatten, SSD, Raid ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (12)

Frage von planetIT2016 zum Thema Windows Server ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (11)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...