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:
817		 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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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