Thema Datum  Von Nutzer Rating
Antwort
30.09.2019 10:31:26 Zitrone99
NotSolved
Blau Replace: Quell- und Zielspalte definieren
 30.09.2019 11:20:09 Mase
NotSolved
30.09.2019 11:21:03 Mase
NotSolved
30.09.2019 14:12:35 Gast99938
NotSolved
30.09.2019 14:26:32 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
30.09.2019 11:20:09		 Views:
625		 Rating:
     
Antwort:
  Ja
Thema:
Replace: Quell- und Zielspalte definieren

Hi,

sprechen wir von Mappen oder Arbeitsblätter?

 

Wenn ich richtig verstanden habe:

Sub Allergene_Ersetzen()
    Dim suchArray()
    Dim ersetzArray()
    Dim MatchCase As Boolean
    Dim k As Long
    Dim wksZiel As Worksheet
    Dim rng As Range
    '
    With ThisWorkbook
        Set wksZiel = .Worksheets.Add(after:=.Worksheets(.Worksheets.Count))
        Set rng = .Worksheets(1).UsedRange.Cells
    End With
    '
    With wksZiel
        .Range("A1").Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
    End With
    '
    Stop
        MatchCase = True
        suchArray = Array("Vollmilch", "Soja")
        ersetzArray = Array("Voll<strong>milch</strong>", "<strong>Soja</strong>")
        For k = LBound(suchArray) To UBound(suchArray)
        Call wksZiel.UsedRange.Replace(suchArray(k), _
        ersetzArray(k), _
        , _
        , _
        False)
    Next k
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
30.09.2019 10:31:26 Zitrone99
NotSolved
Blau Replace: Quell- und Zielspalte definieren
 30.09.2019 11:20:09 Mase
NotSolved
30.09.2019 11:21:03 Mase
NotSolved
30.09.2019 14:12:35 Gast99938
NotSolved
30.09.2019 14:26:32 Mase
NotSolved