in einer Arbeitsmappe sollten eigentlich zwei Makros laufen.
Das erste Makro dient dazu bei Eingabe bestimmte Zeichen (F; S; EU usw.) in verschiedenen Farben einzufärben. Hierzu habe ich das berühmte Makro von Hajo hinter Tabelle 1 eingefügt und auf meine Bedürfnisse angepaßt. Das funktioniert für sich genommen erst einmal perfekt.
Darüber hinaus sollen aber mittels weiterer Makros, bei Bedarf hinter die eingefügten Kürzel ein Pfeil und weitere Zeichen eingefügt werden können. Diese sollen ebenfalls eine besondere Formatierung erhalten. Das entsprechende Makro sieht z.B. so aus
Sub statt_dessen_BD()
ActiveCell = ActiveCell & Chr(174) & "BD"
ActiveCell.Characters(Start:=Len(ActiveCell) - 2, Length:=1).Font.Name = "Symbol"
ActiveCell.Characters(Start:=Len(ActiveCell) - 2, Length:=1).Font.ColorIndex = 1
ActiveCell.Characters(Start:=Len(ActiveCell) - 1, Length:=2).Font.ColorIndex = 3
ActiveCell.Characters(Start:=Len(ActiveCell) - 0, Length:=3).Font.FontStyle = "Bold"
End Sub
und funktioniert in einer eigenständigen Arbeitsmappe ebenfalls 1A.
Wenn aber beide Makros in ein und der selben Arbeitsmappe stehen, so hebt das "statt_dessen_xyz" Makro bei Anwendung, die mittels des ersten Makros gesetzte Formatierung komplett auf. Das (F; S; EU usw.) vor dem Pfeil wird also wieder in der Standard Formatierung dargestellt.
Gibt es irgend eine Möglichkeit das eine oder andere Makro so abzuwandeln, daß die bedingte Formatierung nicht einfach wieder aufgehoben wird, wenn Makro Nr. 2 zur Anwendung kommt?
VBA-Dummi hofft auf Hilfe.
Vielen Dank im voraus
Gruß Sabine