Wörter ersetzen
22.01.2003 14:47:12
Martin
Sub text_1()
Dim oldLen&
With ActiveCell
oldLen = Len(.Value) + 1
.Value = .Value & " " & "Deutschland"
.Characters(oldLen, Len(.Value)).Font.ColorIndex = 3
.Characters(oldLen, Len(.Value)).Font.Bold = True
End With
End Sub
ok,
Ich klicke A1 AN, drücke Strg+a, päng steht Deutschland in rot und fett, dort.
Jetzt steht aber in A1 bereits "Martin" drin, jetzt klicke ich IN die Zelle A1, gehe bis nach dem "n" von "Martin" drücke Alt+Enter.
Dann möchte ich eben STRG+A drücken, dass dort dann Deutschland steht, und das funktioniert leider nicht.
WIe mach ich das?