Thema Datum  Von Nutzer Rating
Antwort
28.03.2019 15:38:36 Simon
NotSolved
28.03.2019 16:20:56 Gast13276
NotSolved
28.03.2019 16:45:46 Simon
NotSolved
28.03.2019 16:51:06 Gast45309
NotSolved
28.03.2019 17:32:57 Simon
NotSolved
01.04.2019 18:54:00 Simon
NotSolved
Rot Mehrere Ausdrücke in einer Zelle ersetzen
28.03.2019 17:56:25 Gast12345
NotSolved
01.04.2019 18:39:05 Simon
NotSolved
01.04.2019 19:09:11 Gast12345
NotSolved
02.04.2019 14:06:09 Simon
NotSolved

Ansicht des Beitrags:
Von:
Gast12345
Datum:
28.03.2019 17:56:25
Views:
589
Rating: Antwort:
  Ja
Thema:
Mehrere Ausdrücke in einer Zelle ersetzen
Sub FarbIDs()
Dim oDic As New Scripting.Dictionary
Dim c As Range
Dim arr() As Variant, x As Long
Dim ari() As String, y As Long

   'dict
   For Each c In Sheets("ID-Zuordnungen").UsedRange.Columns(1).Cells
      oDic.Add c.Value, c.Offset(, 1).Value
   Next c
   
   'array (Klartext)
   arr = Sheets("Klartext").UsedRange.Columns(1).Value
   For x = LBound(arr, 1) To UBound(arr, 1)
      ari = Split(arr(x, 1), ",")
      For y = LBound(ari) To UBound(ari)
         ari(y) = Replace(ari(y), ari(y), oDic.Item(Trim(ari(y))))
      Next y
      arr(x, 1) = Join(ari, ", ")
   Next x

   'to IDs
   Sheets("IDs").Cells(1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

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
28.03.2019 15:38:36 Simon
NotSolved
28.03.2019 16:20:56 Gast13276
NotSolved
28.03.2019 16:45:46 Simon
NotSolved
28.03.2019 16:51:06 Gast45309
NotSolved
28.03.2019 17:32:57 Simon
NotSolved
01.04.2019 18:54:00 Simon
NotSolved
Rot Mehrere Ausdrücke in einer Zelle ersetzen
28.03.2019 17:56:25 Gast12345
NotSolved
01.04.2019 18:39:05 Simon
NotSolved
01.04.2019 19:09:11 Gast12345
NotSolved
02.04.2019 14:06:09 Simon
NotSolved