Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summe nicht kursiver Zahlen bilden

Summe nicht kursiver Zahlen bilden
17.07.2003 11:05:12
Günther Marx
hallo!
habe folgendes problem: ich habe eine lange liste von zahlen, wobei ich nur jene summieren will die nicht kursiv sind! meine vb-kenntnisse sind leider nicht sonderlich gut...
grüsse
GM

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe nicht kursiver Zahlen bilden
17.07.2003 11:11:30
galenzo
Wechsel mit ALT+F11 zu VB. Füge dort ein neues Modul ein und trage dort diese Funktion ein:

Function SummeKursiv(Bereich As Range)
Dim z As Range
SummeKursiv = 0
Application.Volatile
For Each z In Bereich
If Not z.Font.Italic Then
SummeKursiv = SummeKursiv + 1
End If
Next
End Function


AW: Summe nicht kursiver Zahlen bilden
17.07.2003 11:47:16
Günther Marx
hallo galenzo!
danke für die hilfe, aber ich meinte mit summieren ein addieren der zahlen, und nicht ein summieren der anzahl der zellen!! kannst du mir dabei auch helfen?
Günther

AW: Summe nicht kursiver Zahlen bilden
17.07.2003 11:56:08
Galenzo
Sorry. Ändere dann bitte die 7. Zeile in:
SummeKursiv = SummeKursiv + z.Value
Das sollte es tun. mfg

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige