|
Excel : mehrere Begriffe in einer Tabelle ersetzen
kabrijo am 26.03.2007 um 17:05 Uhr (0)
Hallo, da bin ich wieder.Ich muß immer wieder Begriffe in automatisch erstellten Tabellen ersetzen. Z. Bsp. 1710517002 in 1710517-002 oder 51604A in 51604AE.Ich möchte gerne eine Tabelle für den Originalbegriff und den Ersatzbegriff erstellen (A1 = Original/Suchbegriff, B1 = Ersatzbegriff), so dass Excel dann automatisch die Suchbegriffe (A1, A2, etc.) in einer beliebigen Tabelle sucht und durch die Ersatzbegriffe (B1, B2, etc.)ersetzt.Geht sowas?Ich bau auf Euch! mfgKay
| | In das Form Excel wechseln |
|
Excel : mehrere Begriffe in einer Tabelle ersetzen
kabrijo am 27.03.2007 um 14:56 Uhr (0)
Jetzt hab ich auch endlich das mit dem Smilie verstanden! Darauf muß man erstmal kommen.......Kay[Diese Nachricht wurde von kabrijo am 27. Mrz. 2007 editiert.]
| | In das Form Excel wechseln |
|
Excel : mehrere Begriffe in einer Tabelle ersetzen
kabrijo am 27.03.2007 um 14:54 Uhr (0)
Hallo runkelruebe.Habe es genau so gemacht, wie Du es mir nahe gelegt hast. Dann kam Fehlermeldung III Set cpy = Range("B15 " & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row) B15 bis zur letzten Zeile! Workbooks(WBa).Activatebis hier ging es und dann kam die Fehlermeldung cpy.Copy Destination:=Worksheets("Liste").Cells(LetzteZeile + 1, 2) Kopieren Workbooks(WBd).Close SaveChanges:=FalseNext nrEnd SubDein Edit klappt übrigens, Danke dafür Nun muß ich nur noch beide zusdammenbringen.Bzgl. der Makropro ...
| | In das Form Excel wechseln |
|
Excel : mehrere Begriffe in einer Tabelle ersetzen
kabrijo am 27.03.2007 um 09:50 Uhr (0)
Danke Euch beiden.Habe das Osterei von Thomas gefunden (war jezt ja nicht mehr wirklich schwer ;-) ) und mit runkeruebes edit zusammengefügt:Sub und-color: #FFFF99'>SuchenUndErsetzenTabelleWaehlen()Dim LetzteZeile As IntegerDim nr As IntegerWBa = ActiveWorkbook.NameGetMappe = Application.GetOpenFilename("xls-Dateien (*.xls),*.xls", , "bitte die xls-Dateien für das Zusammenführen auswählen!", MultiSelect:=True) If TypeName(NameZiel) = "Boolean" Then Beep MsgBox "Sie müssen eine Datei auswählen!" Exit Sub End If For ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
