Bei Fundtext in Zelle, Text rechtsbündig
27.02.2020 16:47:49
Dieter/Drummer)
Der Text im Bereich der Fundzelle soll rechtsbündig gesetzt werden, wenn der Anfangstext "XY: " gefunden wird. Alle anderen Zellen im Bereich bleiben unvernändert.
Ohne Hinweis Fehler wird der Bereich markiert, aber in den entsprechenden Fundzellen, wird der Text NICHT rechtsbündig gesetzt, Ich finde den Fehler in meinem Code nicht und bitte um Hilfe,
Gruß, Dieter(Drummer)
Code im Modul:
Sub Test_rechts()
ActiveSheet.Range("B5:B100").Select
With ActiveCell.FormulaR1C1 = "XY: "
Cells.HorizontalAlignment = xlLeft
End With
End Sub