Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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
Inhaltsverzeichnis

Vergleich von Zelleninhalten, Anzeige fehlender We

Vergleich von Zelleninhalten, Anzeige fehlender We
13.07.2014 16:10:42
Zelleninhalten,
Hallo Zusammen,
ich möchte folgende Auswertung vornehmen:
Spalte G................................. Spalte H
1A, 1B, 1J, 1Z, 2D.....................1A, 1X, 1E, 1H, 1C, 1G, 1R
(leer)........................................1A, 1X, 1E, 1H, 1C, 1G, 1R
1A...........................................1A, 1X, 1E, 1H, 1C, 1G, 1R
1G...........................................1A, 1X, 1E, 1H, 1C, 1G, 1R
1E, 1Z, 2G...............................1A, 1X, 1E, 1H, 1C, 1G, 1R
Beide Spalten sollen nun verglichen werden. Inhalte die in Spalte H fehlen, sollen in einer neuen Spalte aufgelistet werden. Ich habe den Vergleich zwischen beiden Zellen schon vorgenommen (Identisch/Vergleich..) allerdings nutzt Excel dafür die Reihenfolge, sodass einzelne Werte, die in Spalte H in der Mitte auftauchen, nicht erkannt werden.
Hat jemand eine Idee?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich von Zelleninhalten, Anzeige fehlender We
13.07.2014 17:59:21
Zelleninhalten,
Hallo
die Grundidee ist recht simpel
den gesamten Wert von H in neue Spalte kopieren
mit Replace alle Werte die bekannt sind löschen.
am einfachsten per Makro. Gib mir 1 Stunde Zeit.

AW: Vergleich von Zelleninhalten, Anzeige fehlender We
13.07.2014 18:02:47
Zelleninhalten,
Der Ansatz klingt vernünftig - danke im Voraus!

AW: Vergleich von Zelleninhalten, Anzeige fehlender We
13.07.2014 19:32:21
Zelleninhalten,
Hallo
hier das Makro, mit Kommentar. ich hoffe es läuft zufriedenstellend.
meine ZielAdresse ist Spalte J, sie kann manuell geändert werden.
Einfach in ein normales Modulblatt kopieren und starten.
Sub TeilStrings_löschen()
'kopiere Spalte H nach Spalte J
Range("H1:H5").Copy destination:=Range("J1")
'Schleife in der neuen Spalte zum Teil-String löschen
For Each i In Range("J1:J5")  'Adresse manuell änderbar
LftStrg = Empty:  LftStrg0 = Empty
Wert = Range("G" & i.Row).Value  'Wert aus Spalte G laden
Do Until Wert = Empty
'Wert in Left Teil-Strings zerlegen  (mit und ohne ",")
If InStr(Wert, ",") Then
LftStrg = Left(Wert, InStr(Wert, ",") + 1)   'mit Komma
LftStrg0 = Left(Wert, InStr(Wert, ","))      'ohne Komma
c = Len(LftStrg0)  'Len Left-String ohne ",")
Wert = Trim(Right(Wert, Len(Wert) - InStr(Wert, ",")))
Else: LftStrg = Wert: Wert = Empty  'End String; Wert = ""
End If
'Prüfen ob Teil-String das letzte Zeichen ist  (ohne ", ")
'bei End String (letzter Wert) ggf. ", " wieder anfügen
If Right(i, c) = LftStrg0 Then LftStrg = LftStrg0 Else _
If Right(LftStrg, 2)  ", " Then LftStrg = LftStrg & ", "
'jeden Teilstring in activer Zelle löschen
i.Replace What:=LftStrg, Replacement:=""
Loop
Next i
End Sub

Anzeige
AW: Vergleich von Zelleninhalten, Anzeige fehlender We
14.07.2014 09:32:12
Zelleninhalten,
Hallo Adis,
danke für das Makro - Leider funktioniert es nicht. Das Makro übernimmt Spalte H ohne den Abgleich mit Spalte G. D.h. die Doppelten sind immer noch da. Hast du einen Änderungsvorschlag?

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige