Replace

Hallo Excel Forum
Ich konnte schon viele Forumseinträge für meine VBA's brauchen, aber nun habe ich leider nichts mehr gefunden. Das Ziel wäre ein Replace-VBA welches auf ein File zugreift.
Heisst:
Cells.Replace What:="AAA", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Jetzt möchte ich aber nicht nur AAA durch 1 ersetzten sondern auch AAB duch 2 und AAC durch 3. Das ganze ergäbe eine Liste von ca. 500 Replacements, was zu zeitintensiv wäre zum schreiben. Nun habe ich eine andere Execldatei erstellt in welcher in Splate A1 "AAA" steht und in B1 "1".
Ist es nun möglich einen VBA Befehl zu schreiben, damit die ganze Liste A1:A500 gesucht und durch B1:B500 ersetzt wird (Im File orginal.xlsx)? Das Dokument mit der Liste würde replacelist.xlsx heissen.
Vielen Dank für Eure Antworten.
Gruss aus der Schweiz
Sascha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Replace

04.01.2014 14:44:43

Hajo_Zi

AW: Replace

04.01.2014 14:53:01

Sascha

AW: Replace

04.01.2014 17:26:14

Matze

AW: Replace

04.01.2014 18:36:13

Sascha

AW: Replace

05.01.2014 08:17:53

Luschi

AW: Replace

05.01.2014 17:13:44

Sascha

AW: Replace

05.01.2014 18:49:54

Sascha

Schleife über What: und Replacement:

04.01.2014 18:59:25

ransi

HAllo Sascha
Nehmen wir mal an das sind deine Daten:
Tabelle1

	A	B
1	AAA	1
2	AAB	2
3	AAC	3
4	AAD	4
5	AAE	5
6	AAF	6
7	AAG	7
8	AAH	8
9	AAI	9
10	AAJ	10
11	AAK	11
12	AAL	12
13	AAM	13
14	AAN	14
15	AAO	15
16	AAP	16
17	AAQ	17
18	AAR	18
19	AAS	19
20	AAT	20
21	AAU	21
22	AAV	22
23	usw.	usw.

Tabelle1

	A	B	C	D	E	F	G	H
1	JFKFP	WVWUZ	QMEHN	PTENZ	SEZKH	AWSQP	MYZOB	CCTBQ
2	CFKPI	IBZME	VCFDN	ITYFI	VPUDZ	XYRVD	ZPBUL	HBVLC
3	IBRWY	UISBP	PBBSB	UUCQY	TITHB	MJOHC	WLSRS	JTJOD
4	PURWH	EJMVV	WYRQM	HMCVL	XJKOA	TOQOE	JBUGE	VIIYR
5	MXHSP	HJBUJ	MYWZG	ZQBXR	HMXBA	URYDL	XZEEM	GJOPD
6	ICZDA	EPGAL	JNVPI	QTEWF	QUKWI	IEQYU	GCOCA	BIFOX
7	OPRED	TUJIF	KTSQP	WIFZX	EGOMW	DFSRL	ILPJK	T194T
8	ERXNG	HROOO	OAZEP	TQYGD	XCZKQ	NHFML	LHTIC	PFAUL
9	MFQBH	WPMHJ	TI333	IAVXP	JMYPJ	YPZLD	12WT	BZQRE

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Die erste Tabelle stammt aus replaceList.xlsm Tabelle1
Die zweite enthält deine zu manipulierenden Daten aus original.xlsx Tabelle1
Beide Datein müssen geöffnet sein.
Jetzt starte diesen Code:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub machs()
    Dim Zelle As Range
    For Each Zelle In Workbooks("ReplaceList.xlsm").Sheets("Tabelle1").Range("A1:A500")
        Workbooks("Original.xlsx").Sheets("Tabelle1").Cells.Replace What:=Zelle.Value, Replacement:=Zelle.Offset(0, 1).Value, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Next
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread