Thema Datum  Von Nutzer Rating
Antwort
22.11.2017 09:31:32 Mauricio
NotSolved
Blau Suchen und ersetzen
 22.11.2017 17:27:00 fransi
NotSolved
23.11.2017 13:44:16 Mauricio
NotSolved
23.11.2017 16:56:52 fransi
Solved
06.12.2017 13:57:44 Gast85754
NotSolved
23.11.2017 13:58:36 Gast95920
NotSolved

Ansicht des Beitrags:
Von:
fransi		 Datum:
22.11.2017 17:27:00		 Views:
665		 Rating:
     
Antwort:
  Ja
Thema:
Suchen und ersetzen

Hallo Mauricio,

nach deiner Beschreibung (400 verschiedene) wäre mir ein Array zu brotlos.

Ich mache mir eine Hilfe (eigenes Arbeitsblatt - "Begriffe"), schreibe die 400 ab Spalte A1 untereinander.

Das zu ersetzende Arbeitsblatt heißt bei mir "Liste", du kennst deinen eigenen Tabellennamen.

LG

Option Explicit

Sub mehrfachSuchenUndErsetzen1()

Dim rngB As Range                         'Zellbereich Begriffe
Dim rngE As Range                         'Listenbereich
Dim c As Range                            'Zellvariable

      With Sheets("Begriffe")             'hier Liste ich in Spalte A was zu ersetzen
      
      Set rngB = Range([A1], [A1].End(xlDown))
      
      With rngB.Offset(, 1)               'Spalte daneben
         .FormulaR1C1 = "=UPPER(RC[-1])"
         .Value = .Value
      End With
      
      .Columns.AutoFit                    'der Schönheit wegen
      
   End With
   
   With Sheets("Liste")                   'da stehen die zu ersetzenden Zellen
      
      Set rngE = .UsedRange
      For Each c In rngB
         rngE.Replace What:=c.Value, Replacement:=c.Offset(, 1).Value, LookAt:=xlWhole
      Next c
   
      .Columns.AutoFit                    'der Schönheit wegen
   
   End With

End Sub

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.11.2017 09:31:32 Mauricio
NotSolved
Blau Suchen und ersetzen
 22.11.2017 17:27:00 fransi
NotSolved
23.11.2017 13:44:16 Mauricio
NotSolved
23.11.2017 16:56:52 fransi
Solved
06.12.2017 13:57:44 Gast85754
NotSolved
23.11.2017 13:58:36 Gast95920
NotSolved