Tipps & Tricks 20.07.2004, 09:15 Uhr

Textteil mittels Shortcut an bestehenden Text anhängen - Excel

Mit einem Makro soll in Excel ein formatierter Text an bereits bestehenden Zelleninhalt angehängt werden. In meinem Fall soll unser Software-Name «XY» mit einem um einen Punkt größer geschriebenen Registered-Zeichen an einen bestehenden Satz angehängt werden, dieses «XY(R)» sollte mit einem Shortcut eingefügt werden können. Für Hilfe wäre ich dankbar, ich habe schon einige Zeit damit verbracht und bin nicht weitergekommen!
Erstellen Sie folgendes Makro
und weisen Sie diesem Makro einen Shortcut zu.
Das Makro funktioniert folgendermassen. Sie Schreiben einen Text in eine Zelle und schliessen die Eingabe ab. Aktivieren Sie dann wieder die Zelle, die den Text enthält und drücken Sie die Tastenkombination "CTRL+m".
Mit diesem Shortcut wird das Makro gestartet, das zuerst den Text aus der aktiven Zelle liest, dann den Anhang hinten anfügt und die zusammengesetzte Zeichenfolge wieder in die Zelle schreibt. Zu guter Letzt wird dann noch die Schriftgrösse des Registered-Zeichens um einen Punkt erhöht.
Um das Makro für den Gebrauch anzupassen, brauchen Sie eigentlich nur den Teil "Softwarename" in einen eigenen Namen zu ändern.
---------------------------------
MAKRO ZUM KOPIEREN:
---------------------------------
Sub TextAnhaengen()
Dim L1, L2, L3, TXT, N, S
TXT = ActiveCell.Value
L1 = Len(TXT)
N = "Softwarename ® "
L2 = Len(N)
L3 = L1 + L2
ActiveCell.Value = TXT & " " & N
S = ActiveCell.Font.Size
S = S + 1
ActiveCell.Characters _
(Start:=L3, Length:=1) _
.Font.Size = S
End Sub
---------------------------------



Kommentare
Es sind keine Kommentare vorhanden.