Home  >  Praxis & Hilfe  >  Kummerkasten  >  Office  > Artikel 27810

spacer

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!

blue_quad von Monica Hubacher (19.07.2004, Update: 20.07.2004)

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

---------------------------------



  


Anzeige
Social Bookmarks
PCtipp als APP
PCtipp App

Laden Sie die PCtipp-App kostenlos auf Ihr Smartphone und bleiben Sie auf dem Laufenden.

 

Wählen Sie:
Ähnliche Themen

Problem: Ich habe im Excel-VBA eine Abfrage mit Input-Boxen, bei denen der Benutzer erst die Zeilennummern und dann einige Spalten angeben muss. Nun habe... In Excel-Makro Spaltenbuchstabe in Spaltennummer umwandeln

Ich hoffe Sie können mir helfen. Ich habe leider in meinem Office 2007 aus Versehen die Verknüpfung «Office-Dokument öffnen»... Verknüpfung «Office-Dokument öffnen» wiederherstellen

In der Zelle E12 steht eine Zahl, z.B. 2.5. Ich möchte nun folgendes in der Zelle H12 berechnen: Wenn die Zelle B12 leer ist, soll E12 mit 10 multipliziert... Wie lautet meine WENN-Formel

Ich sammle meine Mails in MS Outlook in thematisch geordneten Ordnern. Um die Informationen langlebig und platzsparend abzulegen, möchte ich sie... Outlook-Mails im TXT-Format abspeichern

Unter Word 2007 finde ich keine Möglichkeit mehr, Text frei oder in einem Textfeld zu drehen, so wie dies unter Excel und PowerPoint geht. Ist das... Textfeld drehen im Word 2007

Fachchinesisch

Mühe mit Computerbegriffen?

Im Fachchinesen finden Sie 743 Erklärungen.

AKTUELLE KUMMERKASTEN

Auf meiner Festplatte sind zwei versteckte Dateien, c:\hiberfil.sys und c:\pagefile.sys, die zusammen ca. 2.5GB an Platz brauchen. Brauche ich diese Dateien,... hiberfil.sys und pagefile.sys

Problem: Wenn ich meinen Computer in den Ruhezustand versetzen will, geht es nicht richtig. Es wird nur für etwa zwei Sekunden der Bildschirm schwarz,... Windows 7/Vista: Ruhezustand nicht möglich

Leser empfehlen

Problem: Ich möchte in den einzelnen Feldern der Tabelle eine Dropdown-Liste zur Auswahl der Kriterien einfügen. Wie geht das? Dropdown-Liste in Excel erstellen

Ich arbeite häufig mit der Sonderzeichentabelle in Word. Mir ist es aber zu umständlich, ständig die Tabelle zu öffnen, um das Zeichen in den Text einzufügen.... ASCII-Tabelle für Sonderzeichen

Problem: Wenn ich aus den PCtipp-Downloads ein File herunterladen will, erscheint die Aufforderung, ein PCtipp-Abo zu lösen. Ich kaufe den PCtipp aber... Frustfreier Download bei www.pctipp.ch

Problem: Wenn ich im Firefox via Ctrl+T oder «Datei/Neuer Tab» einen neuen Tab öffne, wird in diesem immer eine leere Seite (about:blank) angezeigt. Ich... Firefox: Neuer Tab mit Startseite?

Kann ich Windows XP auch im abgesicherten Modus starten? Windows XP im abgesicherten Modus starten

ANZEIGE
PROMOTION
PCTIPP ABONNIEREN
Holen Sie sich monatlich die besten Tipps und Tricks für den PC-Alltag nach Hause.
NEWSLETTER
Wir halten Sie auf dem Laufenden: Der Newsletter liefert Ihnen jeden Werktag das Aktuellste aus der Welt von Computer und Internet.

RSS-FEEDS
Die PCtipp-Website bietet RSS-Feeds an. Holen Sie sich die Schlagzeilen von PCtipp.ch schnell und bequem auf den Desktop oder bauen Sie diese in Ihre eigene Webseite ein.
Anzeige