title image


Smiley Re: Zeichenanzahl einer InputBox begrenzen
Hallo Reiner,



Der Code wird Beendet durch eine Eingabe von 4 Zeichen oder Strg+Unterbrechen.

Falls eine Eingabe auch kleiner als 4



Option Explicit



Sub stellig4()

Dim Jahr As String

Do

Jahr = InputBox("Bitte Jahr eingeben", "Dateneingabe")

Loop Until Len(Jahr) 0

End Sub





Gruß Hajo


 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: