PDA

Vollständige Version anzeigen : Case funktioniert nicht


s8884martin
13.12.2017, 17:47
Hallo Kollegen,

txt ist string mit 12 stelliger Zeichenkette - System geht nicht! in Case Len(txt) Zweig - jemand eine Idee? oder muss ich doch 2 if befehle machen?

Danke
Martin

Select Case txt

Case ""

MsgBox ("Kontakt unbekannt - bitte in Adressbuch aufnehmen")
Exit Sub

Case Len(txt) <> 9


MsgBox "Keine gülte Agenturnummer - 9-stellig! Bitte Adressbuch pflegen"

Exit Sub

Case Else

End Select

Hajo_Zi
13.12.2017, 17:52
Select Case len( txt)

Case 0

case 9
case Else

vielleicht auch Case <>9

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

s8884martin
14.12.2017, 08:16
danke-perfekt