Makro, das bei Druck auf Schaltfläche Text in aktuell ausgewählte Zelle schreibt

[Bommel]

Hallo,
kann mir bitte jemand ein Makro schreiben, das eine vorgegebene Zeichenkette, z. B. "Freitags keine Auskunft", in die aktuell ausgewählte(n) Zelle(n) einfügt, wenn eine im Dokument enthaltene Schaltfläche gedrückt wird?

Danke

[Karolus]

Freitags keine Auskunft!

Ich will mal nicht so sein:

Code: Alles auswählen

sub ich_sag_nix
thisComponent.CurrentSelection.String = "Freitags keine Auskunft!"
end sub

[Bommel]

Vielen Dank!

Probier ich gleich aus...
Funktioniert einwandfrei!

Schönes Wochenende!