title image


Smiley StrPtr heisst das Zauberwort




Do

HptGrBez = InputBox("Bitte geben Sie die neue Hauptgruppenbezeichnung", "Neue Hauptgruppe", , 500, 500)

If StrPtr(HptGrBez) = 0 Then

' Verarbeitung, wenn Abbrechen geklickt wurde (z.B. Exit Sub):

Exit Sub

Else

If HptGrBez = "" Then

MsgBox "Es muß eine Bezeichnung eingegeben werden", _

vbCritical + vbOKOnly, _

"Bezeichnung fehlt"

End If

End If

Loop Until HptGrBez ""





Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: