Thema Datum  Von Nutzer Rating
Antwort
07.04.2020 14:50:40 Christian
Solved
Blau Bedingung für Textfelder die nicht angezeigt werden sollen
 07.04.2020 21:02:48 amicro2000
Solved
08.04.2020 21:00:37 Gast74379
Solved

Ansicht des Beitrags:
Von:
amicro2000		 Datum:
07.04.2020 21:02:48		 Views:
672		 Rating:
     
Antwort:
 Nein
Thema:
Bedingung für Textfelder die nicht angezeigt werden sollen

Hallo Christian,

 

Probiers mal hiermit:

Private Sub ComboBox1_Change()
  With Me
    If .ComboBox1.Value = "Urlaub" Or .ComboBox1.Value = "Feiertag" Or .ComboBox1.Value = "Krank" Then
      .TextFeld2.Visible = False
      .TextFeld3.Visible = False
    Else
      .TextFeld2.Visible = True
      .TextFeld3.Visible = True
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim objtxt As Object
    Dim erste_freie_Zeile As Integer
    
    With UserForm1
        For Each objtxt In .Controls
            If TypeName(objtxt) = "TextBox" Then
              If .ComboBox1.Value = "Urlaub" Or .ComboBox1.Value = "Feiertag" Or .ComboBox1.Value = "Krank" Then
                  If objtxt.Name = "TextFeld2" Or objtxt.Name = "TextFeld3" Then GoTo Weiter
              End If
            End If
            
            If objtxt.Value = "" Then
              MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48
              objtxt.SetFocus
              Exit Sub
            End If
Weiter:
        Next objtxt

        ActiveSheet.Unprotect Password:=""
        erste_freie_Zeile = Sheets("Stundennachweis").Range("A65536").End(xlUp).Offset(1, 0).Row
        Sheets("Stundennachweis").Cells(erste_freie_Zeile, 1) = CDate(.TextBox1.Text)
        Sheets("Stundennachweis").Cells(erste_freie_Zeile, 2) = Format(.TextBox2.Text, "hh:mm")
        Sheets("Stundennachweis").Cells(erste_freie_Zeile, 3) = Format(.TextBox3.Text, "hh:mm")
        Sheets("Stundennachweis").Cells(erste_freie_Zeile, 4) = .ComboBox1.Text
        Unload Me
        ActiveSheet.Protect Password:=""
    End With
End Sub

Ist natürlich ungetestet.

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
07.04.2020 14:50:40 Christian
Solved
Blau Bedingung für Textfelder die nicht angezeigt werden sollen
 07.04.2020 21:02:48 amicro2000
Solved
08.04.2020 21:00:37 Gast74379
Solved