characters.text = "" funktioniert nicht.

Hallo alle zusammen,
ich möchte gerne mit

Tabelle2.Cells(row, col).Characters(InStr(1, Tabelle2.Cells(row, col).Value, marker), Len(marker)).Text = ""

einen Substring, der in der Variable marker enthalten ist aus dem Zellinhalt entfernen, sodass die Formatierung nicht verloren geht. Dafür möchte ich mit "" diesen Substring überschreiben. (Es ist aber egal, ob der Ersatz leer ist oder eine beliebige Zeichenkette enthält. Es funktioniert trotzdem nicht)
Die Ausgabe

MsgBox(Tabelle2.Cells(row, col).Characters(InStr(1, Tabelle2.Cells(row, col).Value, marker), Len(marker)).Text)

liefert jedenfalls den richtigen, zu ersetzenden Substring.
Leider komme ich selbst nicht drauf. Hat jemand eine Idee, wieso das ersetzen des Substrings durch "" nicht funktioniert?
Danke schon mal im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter
ich denke ich habe einen Lösungsansatz für dich. Das Makro läuft noch nicht einwandfrei!
Aber der Lösungsweg kan dir helfen es selbst fertig zu entwickeln. Würde mich freuen!
In diesem Array liste ich mir alle Namen und Farben der Originalzelle mit Start und Länge auf.
Es funktioniert noch nicht richtig beim zurück generieren. Aber der Weg dahin dürfte dich interessieren.
Heute habe ich keie Zeit es fertig zu entwickeln, muss mich um die Familie kümmern.
Schau bitte mal ob dir das weiterhilft? Herzliche Grüsse aus Ankara.
mfg Piet

Sub Characters_test()
Dim arFont(), a, i, j, n, az, x, v, Fb, Ln1
For j = 1 To Len(ActiveCell)
If ActiveCell.Characters(j, 1).Font.ColorIndex > 1 Then
   For i = j To Len(ActiveCell)
      If ActiveCell.Characters(i, 1).Font.ColorIndex  2 Then Exit For
      n = n + 1
   Next i
   ReDim Preserve arFont(0 To 5, az)
   arFont(0, az) = ActiveCell.Characters(Start:=j, Length:=n).Text
   arFont(1, az) = ActiveCell.Characters(Start:=i + 10, Length:=10).Text
   arFont(4, az) = ActiveCell.Characters(Start:=j, Length:=1).Font.ColorIndex
   arFont(2, az) = j
   arFont(3, az) = n
   az = az + 1: n = 0
End If
Next j
Ln1 = Len(ActiveCell)
ActiveCell.replace "[FB]", ""
ActiveCell.replace "[FG]", ""
'v=Len Versatz nach Replace
v = Ln1 - Len(ActiveCell)
For j = 0 To UBound(arFont)
   x = arFont(2, j) - v
   n = arFont(3, j)
   Fb = arFont(4, j)
   Txt = arFont(0, j) & arFont(1, j)
   a = InStr(x, ActiveCell, Txt)
   ActiveCell.Characters(Start:=a, Length:=n).Font.ColorIndex = Fb
Next j
End Sub

Beliebteste Forumthreads (12 Monate)

characters.text = "" funktioniert nicht.

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

characters.text = "" funktioniert nicht.

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread