Teilstring in anderer Textfarbe ersetzen

Hallo lieber Helfer,
Bei Alarmmeldungen für einen Spezialkunden müssen englische Teilstrings in Spalte F, die an ihrer blauer Schriftfarbe erkennbar sind, durch die spanische Übersetzung aus Spalte C ersetzt werden - die Farbe blau muss so bleiben.
Die Daten habe ich aus Word zur Bearbeitung nach Excel exportiert, sie müssen am Schluß wieder nach Word zurückkopiert werden.
Erschwernis: Die Meldungen aus Word beginnen alle mit einem "-" und werden natürlich in Excel als Formel interpretiert.
In Word spielt das ja keine Rolle, die Struktur darf auch nicht geändert werden.
Wäre für eine Lösung dankbar. Makro? bedingte Formatierung?
Vielen Dank im Voraus :-)

Hier die Beispieldatei:
https://www.herber.de/bbs/user/158264.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim Zelle As Range Dim P1 As Long, P2 As Long Dim Talt As String Dim Tneu As String Dim Tspain As String For Each Zelle In Range(Cells(2, "F"), Cells(1, "F").End(xlDown)) Talt = Zelle.Value Tspain = Zelle.Offset(0, -3).Value P1 = InStr(1, Talt, Chr(34)) P2 = InStr(P1 + 1, Talt, Chr(147)) Tneu = "'" & Left(Talt, P1) & Tspain & Mid(Talt, P2) Zelle.Value = Tneu Zelle.Characters(Start:=P1 + 1, Length:=Len(Tspain)).Font.Color = vbBlue Next End Sub

Hi
wenn einzelne Zeilen funktionieren und andere nicht, dann musst du dir die Zeile, die den Fehler verursacht, genau anschauen.
welche Zeile das ist, findest raus, in dem du nach einem Fehlerabbruch im Direktfenster den Befehl ?Zelle.Row eingibst, dann bekommst du die Zeilennummer angezeigt.
Hier musst du mal schauen, was der Unterschied zu den anderen Zeilen ist
ebenso ist es hilfreich, die anderen Variablen, die in dieser Programmzeile verwendet werden, genauer anzuschauen. das geht ebenfalls im Direktfenster mit ?Varialbenname, oder indem du im Codefenster mit der Maus über die Variable fährst.
ich vermute mal, dass hier die Anführungzeichen anders sind.
Aber wie gesagt, bevor man da was programmiert, musst du erstmal schauen, welche Problemfälle vorliegen, was hier das Problem ist und wie in diesem Fall vorgegangen werden soll (das musst du festlegen)
um den nächsten Problemfall zu fnden, kannst du dann die gelbe Markierung auf NEXT ziehn und mit F5 (normal weiter machen) oder F8 (nur nächster Programmschritt) das Marko weiterlaufen lassen.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Teilstring in anderer Textfarbe ersetzen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread