Hallo Harry Müller,
du willst ein Programm schreiben, erwartest also keinen fertigen Code. Wo liegt dein Problem?
Falls du die Kartennummer als nummerischen Wert eingibst, kannst du ihn mit CStr in einen String verwandeln.
Wenn du eine InputBox für diese Eingabe verwendest, erhälst du sofort einen String. Gibst du dort nichts ein oder klickst Abbrechen an, wird ein leerer String zurückgegeben.
Das Anfangsstück eines Strings kannst du mit Left abtrennen und weiterverarbeiten, z.B. mit Val wieder in eine Zahl verwandeln.
Die Fallunterscheidung kannst du z.B. mit Select Case, Case, End Select oder mit mehreren If Then, ElseIf, Else, EndIf erledigen.
Das Ergebnis kannst du dir in einer MsgBox anzeigen lassen.
Für mehrfache Durchläufe kannst du z.B. eine Do Loop Schleife einsetzen. Als Abbruchbedindung kannst du den Inhalt des Strings der InputBox verwenden: Wenn leerer String, dann Ende.
Ich hoffe, dir weiter geholfen zu haben.
Gruß
Holger
Harry Müller schrieb am 07.12.2008 17:55:23:
Hallo,
habe folgendes problem.
ich will in vba eine funktion schreiben, die mir nach eingabe er kreditkartennummer den kreditkartentyp anzeigt. Das heißt sie soll mir anzeigen das die nummer zu visa oder z.b. mastercard gehört.hier eine kleine übersicht:
Name Anfangsziffern Länge der Nummer
MASTERCARD 51-55 16
VISA 4 13, 16
AMEX 34, 37 15
Diners Club/ 300-305,36,80 14
Carte Blanche
Discover 6011 16
enRoute 2014, 2149 15
JCB 3 16
JCB 2131, 1800 15
Sage jetz schon mal Danke. |