Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Stringprüfung Anzahl Zeichen

Stringprüfung Anzahl Zeichen
28.06.2005 09:34:30
Russi
Hallo Forum,
wie muss ich folgende Syntax umbasteln, damit ich per VBA prüfen kann, dass eine Zelle genau sechs Zeichen in Form einer Ganzzahl ohne Komme, etc. enthält?
---
If Len(Cells(introw, 10)) 6 Then
Cells(introw, 10).Interior.ColorIndex = 40
Else
End If
---
für kurzes Feedback besten Dank
Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt
28.06.2005 09:35:31
doppelt
doppelt
Sorry, war wohl ein Versehen...
28.06.2005 09:45:41
Russi
Frage noch offen...
AW: Stringprüfung Anzahl Zeichen
28.06.2005 09:46:16
Andreas
hallo Russi
If Len(Cells(introw, 10)) 6 Then
For i = 1 To 6
if Isnumeric(mid(Cells(introw, 10),i,1)) = False then
msgbox "Fehler"
Exit sub
End if
next
Cells(introw, 10).Interior.ColorIndex = 40
Else
End If
Gruss Andreas
AW: Stringprüfung Anzahl Zeichen
28.06.2005 09:48:45
Russi
Hallo Andreas, werde ich gleich probieren.
Einstweilen vielen Dank
AW: Stringprüfung Anzahl Zeichen
28.06.2005 09:48:57
Russi
Hallo Andreas, werde ich gleich probieren.
Einstweilen vielen Dank
AW: Stringprüfung Anzahl Zeichen
28.06.2005 10:08:10
Kurt
hi,
probier mal:
If IsNumeric(Cells(introw, 10)) Then
MsgBox "ist numerisch"
If Len(Abs(Cells(introw, 10))) 6 Then
MsgBox "oki"
Else
MsgBox "zwar numerisch aber entweder komma oder nicht sechsstellig"
End If
Else
MsgBox "nix numerisch"
End If
End Sub
...und Tschüss Kurt
Anzeige
AW: Stringprüfung Anzahl Zeichen
28.06.2005 10:13:06
Kurt
so natürlich
man sollte erst nachdenken und dann posten
sorry
If IsNumeric(Cells(introw, 10)) Then
MsgBox "ist numerisch"
If Len(Int(Cells(introw, 10))) = 6 Then
MsgBox "oki"
Else
MsgBox "zwar numerisch aber entweder komma oder nicht sechsstellig"
End If
Else
MsgBox "nix numerisch"
End If
End Sub
...und Tschüss Kurt
AW: Stringprüfung Anzahl Zeichen
28.06.2005 10:21:16
Russi
Hallo Kurt,
vielen Dank, das ist auch ein Ansatz.
Schönen Tag noch...
Andreas

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige