title image


Smiley Statt Sub 'ne Function ...
Moin Gabi,



'ne Function kann im gegensatz zu 'ner Sub einen Rückgabewert liefern. Versuch's mal so ...



'Daten in die Tabelle GH_Kunden_D schreiben und eine weitere Eingabe zulassen

Public Sub CommandButton1_Click()

  Application.ScreenUpdating = False

  Dim tb As Object

  Dim cb As Object

 

  If Kontrolle_der_Kundendaten = False Then Exit Sub

 

  Sheets("GH_Kunden_D").Activate

  Range("b1").Select

 

  ' usw. im Code

End Sub

 

Function Kontrolle_der_Kundendaten() As Boolean

'Eingaben überprüfen

 

  ' 1.) Firmenname

  If UserForm1.Firma = "" Then

    MsgBox "Es fehlt die Angabe der Firma !", vbInformation, "Achtung - Aufpassen"

    UserForm1.Firma.SetFocus

    Kontrolle_der_Kundendaten = False 'Ausstiegsbedingung setzten

    Exit Function

  End If

 

  ' 2.) Wenn NName ausgefüllt, dann muss auch eine Anrede gewählt sein

  If UserForm1.NName <> "" And UserForm1.ComboBox1 = "" Then

    MsgBox "Sie haben einen Ansprechpartner eingetragen. Bitte wählen Sie eine Anrede aus !", vbInformation, "Achtung"

    UserForm1.ComboBox1.SetFocus

    Kontrolle_der_Kundendaten = False

    Exit Function

  End If

 

  'bis hierhin alles ok, also Rückgabewert für alles i.O.

  Kontrolle_der_Kundendaten = True

End Function



Code eingefügt mit Syntaxhighlighter 1.12



Schönen Sonntag noch ...
StrgAltEntf

Meine Fragen und Antworten beziehen sich, wenn nicht anders erwähnt, auf Ac97 bzw. XL/Word2k in Verbindung mit Win2k.
Es gibt zwei Regeln für Erfolg im Leben:
1. Erzähle den Leuten nie alles, was Du weißt ...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: