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

Ziffern in Zelle finden

Ziffern in Zelle finden
24.03.2003 12:29:08
Ronald
Hallo,
Ich habe einige Zellen mit verschiedenen Einträgen z.B. abc82de4f (bis 20 Zeichen). Nach dem markieren einer Zelle möchte ich ein Makro starten, das mir eine MsgBox zeigt: In der Zelle sind an den Stellen 4, 5 und 8 Ziffern.

Vielen Dank für die Hilfe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ziffern in Zelle finden
24.03.2003 12:45:12
Holger Levetzow

als Grundgerüst:

Sub test()
t = ActiveCell.Value
For i = 1 To Len(t)
If IsNumeric(Mid(t, i, 1)) Then Text = Text & Mid(t, i, 1) & ", "
Next
MsgBox (Text)
End Sub

Holger

Re: Ziffern in Zelle finden
24.03.2003 12:55:06
Ronald

Hallo Holger,
vielen Dank erstmal für deine Mühe.

Ich möchte nicht die Ziffern selbst, sondern die Stellen, an denen die Ziffern in der Zelle stehen.


Re: Ziffern in Zelle finden
24.03.2003 12:58:30
Holger Levetzow

dann ändere eine Zeile:

Sub test()
t = ActiveCell.Value
For i = 1 To Len(t)
If IsNumeric(Mid(t, i, 1)) Then Text = Text & i & ", "
Next
MsgBox (Text)
End Sub

Holger

Re: Ziffern in Zelle finden
24.03.2003 13:17:01
Ronald

Das hilft mir weiter,
Vielen Dank

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige