folgender Code im Makro funktioniert wunderbar
Dim Zelle As Range
Dim FirstPos&
Dim MyTxt$
MyTxt = Tabelle1.Range("G42").Value
Set Zelle = Tabelle4.Range("E7")
FirstPos = InStr(1, Zelle, MyTxt)
Zelle.Characters(FirstPos, Len(MyTxt)).Font.ColorIndex = 41
Set Zelle = Nothing
Jetzt hätte ich gerne den selben Code, noch einmal nur diesmal nicht für die Zelle "G13" sondern für Zelle "G42"
Zweck Formatierung Schriftgröße 6.5
so das beide Code-Abschnitte hintereinander im selben Makro rundlaufen.
Mal eben so umschreiben für jemanden der von VBA sogut wie keine Ahnung ist das nicht machbar.
Könnte mir dabei jemand behilflich sein. Ich würde mich sehr freuen
beste Grüße
Jürgen