Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Neuberechnung von benutzerdefinierten Formeln

Forumthread: Neuberechnung von benutzerdefinierten Formeln

Neuberechnung von benutzerdefinierten Formeln
14.02.2005 15:54:41
benutzerdefinierten
Hallo Profis
In einem Modul der aktuellen Arbeitsmappe steht folgende Funktion:

Function RangeWidth() As Single
RangeWidth = Range("A1").Width
End Function

Ich schreibe nun in beliebige Zelle "=RangeWidth()" und drücke ENTER , womit wie gewünscht die Breite der ersten Spalte angezeigt wird (z.B. 60).
Allerdings wird die Zelle nicht geupdatet, wenn ich die Breite der Spalte manuell verändere. Mit dem könnte ich ja gut leben.
Wenn ich nun aber F9 drücke, geschieht immer noch nichts. Selbst wenn ich die Arbeitsmappe speichere, schliesse und wieder öffne, wird die Zelle nicht geupdatet.
Der einzige Weg besteht darin, die Zelle zu editieren, d.h. den Cursor reinzusetzen, mit anschliessendem Drücken von ENTER.
Weiss irgend jemand einen einfacheren Weg?
Danke
Alf
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neuberechnung von benutzerdefinierten Formeln
benutzerdefinierten

Function RangeWidth() As Single
application.volatile
RangeWidth = Range("A1").Width
End Function

...und trotzdem noch die F9-Taste drücken.
mfg Ute
AW: Neuberechnung von benutzerdefinierten Formeln
14.02.2005 16:06:34
benutzerdefinierten
somit wird zumindest bei F9 (Neuberechnung) eine Aktualisierung erreicht..
Public

Function RangeWidth() As Single
Application.Volatile
RangeWidth = Range("A1").Width
End Function

Anzeige
Alternative über "Namen"
Galenzo
Hallo,
als Alternative mittels Zellfunktion/Namen hier mal dieser Vorschlag:
Namen definieren: "Breite" - bezieht sich auf:
=ZELLE.ZUORDNEN(44;INDIREKT("ZS";))- ZELLE.ZUORDNEN(42;INDIREKT("ZS";))
AW: Neuberechnung von benutzerdefinierten Formeln
14.02.2005 16:06:55
benutzerdefinierten
somit wird zumindest bei F9 (Neuberechnung) eine Aktualisierung erreicht..
Public

Function RangeWidth() As Single
Application.Volatile
RangeWidth = Range("A1").Width
End Function

Anzeige
Vielen Dank für die Hilfe!! (oT)
14.02.2005 16:34:15
Alf
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige