Thema Datum  Von Nutzer Rating
Antwort
13.04.2023 11:12:07 Fabrizio
NotSolved
13.04.2023 13:22:33 Gast36017
NotSolved
Rot Suchen finden setzen
 13.04.2023 13:35:40 Gast97115
NotSolved

Ansicht des Beitrags:
Von:
Gast97115		 Datum:
13.04.2023 13:35:40		 Views:
176		 Rating:
     
Antwort:
  Ja
Thema:
Suchen finden setzen

Private Sub CommandButton1_Click()
'STARTDATUM DEFINIERUNG
    If ComboBox4.Value = "" Or ComboBox5.Value = "" Or ComboBox6.Value = "" Then
        MsgBox "Bitte wählen Sie Tag, Monat und Jahr aus."
        Exit Sub
    End If
    Dim SD As Date
    SD = DateSerial(ComboBox6.Value, ComboBox5.Value, ComboBox4.Value)
 'ENDDATUM DEFINIERUNG
    If ComboBox7.Value = "" Or ComboBox8.Value = "" Or ComboBox9.Value = "" Then
        MsgBox "Bitte wählen Sie Tag, Monat und Jahr aus."
        Exit Sub
    End If
    Dim ED As Date
    ED = DateSerial(ComboBox9.Value, ComboBox8.Value, ComboBox7.Value)
'LEHRGANGSTEILNEHMER DEFINIERUNG
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Then
        MsgBox "Bitte wählen Sie Lehrgang und Name aus."
        Exit Sub
    End If
    Dim LGT As String
    LGT = ComboBox1.Value & " " & ComboBox2.Value
'ABWESENHEITSGRUND DEFINIERUNG
    If ComboBox3.Value = "" Then
        MsgBox "Bitte wählen Sie Lehrgang und Name aus."
        Exit Sub
    End If
    Dim AWG As String
    AWG = ComboBox3.Value

    MsgBox LGT & " ist aufgrund von " & AWG & " vom " & SD & " bis zum " & ED & " nicht anwesend"

'SUCHE FINDEN SETZEN


                  HIER GEHTS WEITER MIT MEINEM WUNSCH :D  
        


End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.04.2023 11:12:07 Fabrizio
NotSolved
13.04.2023 13:22:33 Gast36017
NotSolved
Rot Suchen finden setzen
 13.04.2023 13:35:40 Gast97115
NotSolved