|
So ganz verstanden habe Ich Dein Problem nicht.
Liegt aber an mir.
Wenn Du die beiden Asterisks entfernen möchtest, hilft Dir dabei die Funktion
Replace-Funktion (Visual Basic for Applications) | Microsoft Docs
Beispiel:
Cells(...).Value = VBA.Replace(Cells(...).Value, Chr(42), vbNullString)
Zum Rest:
Der Vergleich, ob die ersten beiden Zeichen Asterisk sind, lautet korrekterweise wie folgt:
If Left(Cells(i, j).Value ,2) = "**" Then
Es gibt aber nicht nur Left/Right, sondern auch Mid. Dort kannst Du angeben, ab welchem Zeichen Du arbeiten möchtest.
Schau Dir das mal dazu an:
Excel VBA Left, Mid, Right | EXCEL VBA LERNEN (excel-vba-lernen.de)
(Quelle habe Ich nicht explizit ausgewählt, sonder eher zufällig vai Suchmaschine.)
|