Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Filter: Nur Zahlen anzeigen - Texteinträge weglass

Filter: Nur Zahlen anzeigen - Texteinträge weglass
20.10.2004 18:10:57
Corinne
Hallo
Wie kann man nur nach Zahleneinträgen filtern? Habe das Problem, dass in einer Zahlenspalte die ich darstellen muss gewisse Texteinträge vorhanden sind (Fehleinträge).
Kann jemand helfen?
Co

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter: Nur Zahlen anzeigen - Texteinträge weglass
th.heinrich
hallo Corinne,
markiere die komplette SPALTE, dann
BEARBEITEN-GEHE ZU-INHALTEN-KONSTANTEN-TEXT
gruss thomas
finde das nicht (wie heissen die Bef auf Englisch?
20.10.2004 18:32:43
Corinne
?
habe kein englisches excel.....
th.heinrich
hi Corinne,
aber hangel Dich durch das EDIT menue, GEHE ZU koennte evtl. GO TO heissen
INHALTE, CONTENT(S)
CONSTANTS and TEXT sollten klar sein.
gruss thomas
AW: Filter: Nur Zahlen anzeigen - Texteinträge weglass
Karl-Otto
Hallo Corinne
Diesen Schnippsel in ein Modul eigeben:

Function Zahlen(Text As String)
Dim t As Integer
For t = 1 To Len(Text)
If IsNumeric(Mid(Text, t, 1)) Then
Zahlen = Zahlen & Mid(Text, t, 1)
End If
Next t
End Function

Wenn Deine Spalte A gemischte Einträge hat, kommt in B1: =Zahlen(A1)
Grüße
KO
Anzeige
Geht noch nicht ganz
20.10.2004 18:34:39
Corinne
Ok, reiner Text wird zu 0
Was noch nicht geht ist die Filterung von Einträgen wie "304/34" was ja auch Text ist.
Kann man das ergänzen?
AW: Geht noch nicht ganz
Karl-Otto
Dann den Text filtern (ich weiß immer noch nicht, was Du am Ende erreichen willst)

Function TextStr(Text As String)
Dim t As Integer
For t = 1 To Len(Text)
If Not IsNumeric(Mid(Text, t, 1)) Then
TextStr = TextStr & Mid(Text, t, 1)
End If
Next t
End Function

221 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige