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:
494		 Rating:
     
Antwort:
 Nein
Thema:
Inhalt Ersetzen wenn (Replace mit If Operator)

Hallo

 

versuch es so...

 

    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