Hallo Christian,
es amüsiert micj als alter Praktiker immer wieder. Man bekommt eine korrekte Antwort, und kann nichts damit anfangen!! Korrekt formuliert???
Alte Praktiker laecheln nur müde und sagen: was soll der Scheiss??? Klar geht das, man muss nur wissen W i e ! ! = altes Praktiker Wissen
Erstelle ein neues Modul - ganz oben kommt Option Explicit, darunter Public AcZellAdr as String und dann diese Variable in Target einfügen:
AcZellAdr = Target.Address diese Variable ist öffentlich, gültig für alle Module in der Arbeitsmappe. Dann den Call Aufruf ins Modul.
Call DeinMakro_in_Modul1 und hier dein Code, aber bitte so
Tabelle1.Range(AcZellAdr).font.Style= "Arial" wenn das nicht klappt bitte so: (alter Standard Code)
Worksheets("Tabelle1").Range(AcZellAdr).font.Style= "Arial"
Würde mich freuen wenn es klappt, am Code basteln must du schon selbst.
mfg Nobody
|