Thema Datum  Von Nutzer Rating
Antwort
24.11.2020 09:18:24 Nelina
Solved
Blau Inhalt Ersetzen wenn (Replace mit If Operator)
24.11.2020 09:48:34 UweD
Solved
24.11.2020 11:52:29 Gast94738
Solved

Ansicht des Beitrags:
Von:
UweD
Datum:
24.11.2020 09:48:34
Views:
612
Rating: Antwort:
 Nein
Thema:
Inhalt Ersetzen wenn (Replace mit If Operator)

Hallo

 

versuch es so...

 

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
Dim sht As Worksheet
Dim fnd As String, fnd1 As String, fnd2 As String
Dim rplc1 As String, rplc2 As String
Dim c, firstAddress
  
fnd = "XY"
fnd1 = "X": rplc1 = "A"
fnd2 = "Y": rplc2 = "B"
Set sht = Sheets("Datenbasis")
 
 
With sht.Columns("B:B")
    Set c = .Find(fnd, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            With c.Offset(0, 3)
                .Value = Replace(.Value, fnd1, rplc1)
                .Value = Replace(.Value, fnd2, rplc2)
            End With
             
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

 

LG UweD


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
24.11.2020 09:18:24 Nelina
Solved
Blau Inhalt Ersetzen wenn (Replace mit If Operator)
24.11.2020 09:48:34 UweD
Solved
24.11.2020 11:52:29 Gast94738
Solved