Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
kursive Zahlen mit Makro berechnen?
zurück: Matrix ändert sich ständig weiter: wenn zahl kleiner als null dann "TEXT Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
abidmon
Gast


Verfasst am:
09. Sep 2004, 19:44
Rufname:

kursive Zahlen mit Makro berechnen? - kursive Zahlen mit Makro berechnen?

Nach oben
       

Hallo,
mit dem folg. Makro sollten(?) die kursiv gekennzeichneten Zahlen im Bereich berechnet werden. Es funktioniert aber nur beim jeweiligen ersten Aufruf der Funktion. Selbst mit F9 tut sich nichts.
Wo liegt der Fehler?
Danke für die Hilfe.
Andreas


Function kursivaddieren(rng As Range) As Double
Dim rngact As Range
Dim kuradd As Double
For Each rngact In rng.Cells
If IsNumeric(rngact) Then
If rngact.Font.Italic = True Then
kuradd = kuradd + rngact.Value
End If
End If
Next rngact
kursivaddieren = kuradd
End Function
lala
Gast


Verfasst am:
10. Sep 2004, 09:51
Rufname:

nah dran ... - nah dran ...

Nach oben
       

hallo, *,

das problem ist, dass die zelle, in der die formel steht, nach einer änderung aktualisiert werden muss (z. b. mittels f2+enter).

das freilich lässt sich auch automatisieren. zunächst einmal fehlt eine kleine zeile in deinem code:

Function kursivaddieren(rng As Range) As Double
Dim rngact As Range
Dim kuradd As Double
Application.Volatile
For Each rngact In rng.Cells
If IsNumeric(rngact) Then
If rngact.Font.Italic = True Then
kuradd = kuradd + rngact.Value
End If
End If
Next rngact
kursivaddieren = kuradd
End Function

und dann brauchst du noch einen "auslöser" für die neuberechnung. dazu fügst du im vb-editor ins tabellenblatt ein:

Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)
Range("A10").Calculate
End Sub

a10 ist hierbei natürlich die zelle, in der die benutzerdefinierte formel steht.

damit sollte es dann so klappen, wie du es dir vorstellst ... Very Happy

gruß! & all times the best
robert
abidmon
Gast


Verfasst am:
10. Sep 2004, 15:52
Rufname:


AW: kursive Zahlen mit Makro berechnen? - AW: kursive Zahlen mit Makro berechnen?

Nach oben
       

Hi Robert,
besten Dank - klappt prima.
Andreas
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Alter berechnen - Excel Version 97 11 Sita 6079 15. Feb 2005, 14:42
Sita Alter berechnen - Excel Version 97
Keine neuen Beiträge Excel Formeln: Wahrscheinlichkeit berechnen 2 AnBo 1338 09. Feb 2005, 18:55
AnBo Wahrscheinlichkeit berechnen
Keine neuen Beiträge Excel Formeln: Zahlen Werte übertragen in eine neue Mappe ? 4 Haschi 2161 03. Feb 2005, 13:45
Haschi Zahlen Werte übertragen in eine neue Mappe ?
Keine neuen Beiträge Excel Formeln: unterscheidung zwischen text und zahlen in einer Zelle 5 hmmmmm??? 1167 02. Feb 2005, 12:13
hmmmmm??? unterscheidung zwischen text und zahlen in einer Zelle
Keine neuen Beiträge Excel Formeln: Alter berechnen!! 1 Gast 7025 23. Jan 2005, 22:57
Tom11 Alter berechnen!!
Keine neuen Beiträge Excel Formeln: Anzahl bestimmter Wochentage pro Monat berechnen 2 Job 3091 12. Jan 2005, 15:57
Job Anzahl bestimmter Wochentage pro Monat berechnen
Keine neuen Beiträge Excel Formeln: WENN DANN mit Text und Zahlen.... 2 Gast 1979 11. Jan 2005, 16:06
pega_de WENN DANN mit Text und Zahlen....
Keine neuen Beiträge Excel Formeln: Meine Lotto Zahlen suchen lassen 1 Wilfried 5881 09. Nov 2004, 23:47
ae Meine Lotto Zahlen suchen lassen
Keine neuen Beiträge Excel Formeln: Ich habe dar ein Problem mit Excel *Reihe berechnen mit Ende 42 sascha-patrick 5114 08. Nov 2004, 00:11
xyzdef Ich habe dar ein Problem mit Excel *Reihe berechnen mit Ende
Keine neuen Beiträge Excel Formeln: auch negative Zahlen links zählen 17 Red Hair 1629 04. Sep 2004, 14:32
ae auch negative Zahlen links zählen
Keine neuen Beiträge Excel Formeln: Addieren von negativen Zahlen 1 cnettekoven 612 12. Aug 2004, 11:04
lala Addieren von negativen Zahlen
Keine neuen Beiträge Excel Formeln: Auslesen mehrer Zahlen aus einer Zelle 7 coatin27 3379 11. Aug 2004, 15:18
Arnim Auslesen mehrer Zahlen aus einer Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps