Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen und ersetzen in mehreren Spalten gleicher Tabelle
zurück: Hinweis erscheint, während Userform initialisiert wird weiter: Druckfertige Liste aus 4 Spalten erzeugen 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
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Mai 2008, 23:37
Rufname:

Suchen und ersetzen in mehreren Spalten gleicher Tabelle - Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Hallo Excel-Profis,
ich hoffe jemand kann mir an der Stelle weiter helfen, dafuer waere ich sehr dankbar.
Problemstellung:
Ich habe eine Tabelle mit drei Spalten (A,B,C)
Zelleninhalt der Spalte A sind Fahrzeugtypen zB A1=Audi A4, A2=Audi A6, A3= Audi A8.
Zelleninhat der Spalte B sind codes von den jeweiligen Fahrzeugtypen der Spalte A zB B1=2201 dh der code von Audi A4 ist gleich 2201.
Zelleninhalt der Spalte C sind mehrere Fahrzeugtypen getrennt durch kommas zB C1= Audi A4, renault megane, vw passat, Inhalt C2= peugeot 407, mercedes C-Klasse, audi A8.....
Ich moechte der Inhalt von der Spalte C durch die entsprechende Codes(Spalte B) ersetzen dh statt C2= peugeot 407, mercedes C-Klasse, audi A8 moechte ich C2=1312,54345,3242 haben.
Ich hoffe und bitte um euere Hilfe, da das Zeug sehr relevant fuer meine Existenzgruedung ist.
LG
Chafai
Gast



Verfasst am:
01. Jun 2008, 07:39
Rufname:


AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Guten Morgen Chafai,

da lädst Du am besten noch eine Beispieldatei hoch, damit es
verständlicher wird, welcher Namen in den Zellen in Spalte C
durch welche Codierungsnummer ersetzt werden soll.

Gruß Gerd
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
01. Jun 2008, 09:05
Rufname:
Wohnort: Im schönen Weserbergland

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Hallo

Sieht deine Tabelle so aus ???
Tabelle1

 ABC
1AutosCodesAlle
2XMG8H37067XMG8H, JBTLF, QINU4, 158QL
3JBTLF51293JBTLF, QINU4, 158QL, N8S6R
4QINU475956QINU4, 158QL, N8S6R, WX9L4
5158QL86819158QL, N8S6R, WX9L4, CUN52
6N8S6R19045N8S6R, WX9L4
7WX9L429794XMG8H, JBTLF, QINU4
8CUN5229645CUN52, 7Y00Z, 54GH1
97Y00Z40678XMG8H, JBTLF, QINU4, 158QL, N8S6R, WX9L4
1054GH11519854GH1


Excel Jeanie Html



Dann hilft dir evtl dieser Code weiter:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub test()
Dim objDic As Object
Dim Arr As Variant
Dim lngL As Long
Dim intI As Integer
Dim spl As Variant
'Relevaten Bereich aus A:C
Arr = Intersect(Range("A1").CurrentRegion, Range("A:C"))
Set objDic = CreateObject("Scripting.Dictionary")
'Wertepaare einlesen
For lngL = 1 To UBound(Arr)
    objDic.Add Arr(lngL, 1), Arr(lngL, 2)
Next
'Ersetzungen vornehmen
For lngL = 1 To UBound(Arr)
    spl = Split(Arr(lngL, 3), ", ")
    For intI = 0 To UBound(spl)
        spl(intI) = objDic(spl(intI))
    Next
    Arr(lngL, 3) = Join(spl, ", ")
Next
'Ausgeben
Intersect(Range("A1").CurrentRegion, Range("A:C")) = Arr
End Sub



Ausgabe ist dann so:
Tabelle1

 ABC
1AutosCodes 
2XMG8H3706737067, 51293, 75956, 86819
3JBTLF5129351293, 75956, 86819, 19045
4QINU47595675956, 86819, 19045, 29794
5158QL8681986819, 19045, 29794, 29645
6N8S6R1904519045, 29794
7WX9L42979437067, 51293, 75956
8CUN522964529645, 40678, 15198
97Y00Z4067837067, 51293, 75956, 86819, 19045, 29794
1054GH11519815198


Excel Jeanie Html



Kommt in Spalte B ein Ausdruck vor der nicht in SpalteA enthalten ist, wird er gelöscht.
Teste also mit einer Kopie deiner Originaldaten.

ransi
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2008, 12:31
Rufname:

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Hallo Ransi, hallo Gerd,
danke Euch erstmal fuer Eure Hilfe. Gerd, die Problemstellung hat Ransi sehr gut verstanden bzw. auf seine Art dargestellt.
Ransi, ich habe Dein Code als Makro ausgefuehrt bekomme folgende Fehlermeldung:
(Versuche jetzt zu uebersetzen mein Excel ist in franzosisch)
Ausfuehrungsfehler '457' diese Schluessel ist schon mit anderem Element dieser Kollektion azossiert
Wenn ich auf Debug klicke, ist die Zeile objDic.Add Arr(lngL, 1), Arr(lngL, 2) von deinem Code gelb markiert.
Habe versucht den 'variabel' lngL anders zu nennen bzw mit einer ';' die Zeile zu beenden, funktioniert trotzdem nicht.
Weisst du vielleicht woran es liegt? das waere echt super wenn ich das Katalog heute online hochladen koennte.
Danke an Euch alle fuer die Hilfe.
Chafai
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
01. Jun 2008, 12:45
Rufname:
Wohnort: Im schönen Weserbergland


AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

HAllo

Da ist mindestens ein Wert in Spalte A doppelt.
Was soll dann passieren ?
Die Alte Zuordnung behalten oder eine neue Zuordnung erstellen?

ransi
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2008, 13:15
Rufname:

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

kann ich erstmal ein script ausfuehren, sodass ich doppelte eintraege der Spalte A loeschen kann?
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2008, 13:32
Rufname:

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Ransi,
mir ist lieber die alte Zuordnung zu behalten, aber wenn es nicht geht kann ich mit einer neuen Zuordnung auch leben.
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
01. Jun 2008, 13:40
Rufname:
Wohnort: Im schönen Weserbergland

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

HAllo

Du brauchst da keine Doppelten Löschen.

Tabelle1

 AB
1AutoCode
2Audi A412345
3Daimler3456
4Audi A478910
5  


Excel Jeanie Html


Welcher Code soll da für Audi A4 genommen werden ?

ransi
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2008, 14:21
Rufname:

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Ich habe die Spalte A nochmal geprueft, die Eintraege kommen definitiv nur einmal vor, das problem lag daran, dass die Spalte B laenger(mehr Eintraege) als Splate A war, nachdem ich diese gekuerzt habe(also gleiche Zeilenanzahl fuer die beide Spalten A und B) hat's funktioniert. Das Problem was ich jetzt habe, liegt anscheinend an der folgenge Zeilen spl = Split(Arr(lngL, 3), ",")
dae ergebnis sieht so aus 122 345 432 234 895 (immer 3 Ziffer) ZB statt 1223,454,322,34,895 (die codes bestehen nicht aus festen anzahl von Ziffern)
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
01. Jun 2008, 17:37
Rufname:
Wohnort: Im schönen Weserbergland

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

HAllo

Ich habe die Originaldatei erhalten.
Hier ist ganz massives Problem in Sachen Datenerfassung.

Tabelle1

 ABC
1/8(W114)54880(89,89Q,8A,B3),80(8C,B4),80Avant(8C,B4),A6(4A,C4),A6Avant(4A,C4)
2/8(W115)552 
3/8Coupe(W114)543SPEEDSTER(R97)


Excel Jeanie Html



Die Kommata in () dürfen nicht angefasst werden.
Ich überleg mir was.
Soeine Erfassung wäre Optimal:
kba

 ABC
1/8(W114)54880(89,89Q,8A,B3), 80(8C,B4), 80Avant(8C,B4), A6(4A,C4), A6Avant(4A,C4)
2/8(W115)552 
3/8Coupe(W114)543SPEEDSTER(R97)


Excel Jeanie Html

wert, wert, wert

ransi
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2008, 22:12
Rufname:

AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Hallo ransi,
das Problem mit den Kommatas habe ich vollkommen uebersehen. Das scheint viel komplizierter als ich mir gedacht habe Sad
Chafai-carparts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Jun 2008, 22:22
Rufname:


AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle - AW: Suchen und ersetzen in mehreren Spalten gleicher Tabelle

Nach oben
       Version: Office XP (2002)

Halt mir ist gerade was aufgefallen, die originale Erfassung sieht anders aus, ich habe absichtilich alle leerzeichen raus genommen.
Die originale Version sieht so aus
80(89, 89Q, 8A, B3), 80(8C, B4), 80 Avant(8C, B4), A6(4A, C4), A6 Avant( 4A, C4)
ich habe die Leerzeichen rausgenommen, da ich an manche Zellen in Spalte C
80 Avant (8C, B4) habe, dies wird nie ersetzt da der Schluessel 80 Avant (8C, B4) heisst(zwischen Avant und(8C hast du 2 leerzeichen statt nur eine).
Koennen wir alle leerzeichen rausnehmen und nur die leerzeichen nach dem')' lassen waere das hilfreich?
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: Daten/Tabelle tabellenübergreifend 0 markus.wilke 6170 15. Okt 2004, 16:45
markus.wilke Daten/Tabelle tabellenübergreifend
Keine neuen Beiträge Excel Formeln: inhalt einer zelle suchen und wiedergeben 2 winni 5568 23. Sep 2004, 16:47
winni inhalt einer zelle suchen und wiedergeben
Keine neuen Beiträge Excel Formeln: werte innerhalb eines bestimmten bereichs suchen 3 infantil88 3545 17. Sep 2004, 10:54
Arnim werte innerhalb eines bestimmten bereichs suchen
Keine neuen Beiträge Excel Formeln: Formel für Spalten und Zeilen 17 Gast 2737 15. Sep 2004, 14:11
steve1da Formel für Spalten und Zeilen
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: Gleiche Einträge in Tabelle nummerich aufzählen 1 sauer 483 02. Sep 2004, 09:11
ae Gleiche Einträge in Tabelle nummerich aufzählen
Keine neuen Beiträge Excel Formeln: Frage... (suchen und löschen) 2 fs-racing 695 01. Sep 2004, 12:13
fs-racing Frage...  (suchen und löschen)
Keine neuen Beiträge Excel Formeln: Hilfe! Wenn..Dann mit mehreren Dann-Werten 4 Nina81 803 25. Aug 2004, 11:51
Nina81 Hilfe! Wenn..Dann mit mehreren Dann-Werten
Keine neuen Beiträge Excel Formeln: aus Tabelle auslesen und vergleichen 1 wiedenmann 2805 12. Aug 2004, 13:42
Arnim aus Tabelle auslesen und vergleichen
Keine neuen Beiträge Excel Formeln: Datenübernahme aus Tabelle 7 lut155 21997 05. Aug 2004, 15:12
Gast Datenübernahme aus Tabelle
Keine neuen Beiträge Excel Formeln: Spalten Prüfung -> dann zusammen fassen 6 seraph 1089 26. Jul 2004, 14:23
Gast Spalten Prüfung -> dann zusammen fassen
Keine neuen Beiträge Excel Formeln: Doppelte Werte zusammen zeihen mit mehreren kriterien max5-6 1 Fruchtzwerk 1101 21. Jun 2004, 16:39
Gast Doppelte Werte zusammen zeihen mit mehreren kriterien max5-6
 

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