Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellinhalt keine Zahl

Zellinhalt keine Zahl
24.09.2003 11:22:46
Uli
Hallo,

ein Makro prüft ein Tabellenfeld, ob ein Wert darin ist. Wenn nicht, ok (... = novalue). Wenn doch, soll eine Multiplikation erfolgen. Hat bisher immer funktioniert, doch nun sind Felder mit Text belegt, das Makro steigt natürlich bei der Aufforderung zur Berechnung aus.

Gibt es eine Abfrage, ob der Zellinhalt eine Zahl ist (ähnlich wie "novalue")?

Danke,
Uli

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt keine Zahl
24.09.2003 11:31:47
Holger Levetzow
das kannst du mit WorksheetFunction.IsNumber(ActiveCell) prüfen

Holger
AW: Zellinhalt keine Zahl
24.09.2003 11:38:37
Karl-Otto Reimann
Hallo Uli
In A1 steht eine Zeichenkette, in B1 steht "=NumberFilter(A1)"


Function NumberFilter(strText)
Dim intCounter As Integer
For intCounter = 1 To Len(strText)
If IsNumeric(Mid(strText, intCounter, 1)) Then
'In disem Falle gibt die Funktion die Zahl zurück
NumberFilter = Val(Right(strText, Len(strText) - (intCounter - 1)))
Exit Function
End If
Next intCounter
End Function


mfG
K.O.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige