Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Stringprüfung Anzahl Zeichen

Forumthread: Stringprüfung Anzahl Zeichen

Stringprüfung Anzahl Zeichen
28.06.2005 11: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
doppelt
28.06.2005 11:35:31
doppelt
doppelt
Sorry, war wohl ein Versehen...
28.06.2005 11:45:41
Russi
Frage noch offen...
AW: Stringprüfung Anzahl Zeichen
28.06.2005 11: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
Anzeige
AW: Stringprüfung Anzahl Zeichen
28.06.2005 11:48:45
Russi
Hallo Andreas, werde ich gleich probieren.
Einstweilen vielen Dank
AW: Stringprüfung Anzahl Zeichen
28.06.2005 11:48:57
Russi
Hallo Andreas, werde ich gleich probieren.
Einstweilen vielen Dank
AW: Stringprüfung Anzahl Zeichen
28.06.2005 12: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 12: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
Anzeige
AW: Stringprüfung Anzahl Zeichen
28.06.2005 12:21:16
Russi
Hallo Kurt,
vielen Dank, das ist auch ein Ansatz.
Schönen Tag noch...
Andreas
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum