VBA-Code zusammenführen
20.03.2019 11:44:25
Frank
ich habe zwei Codeschnipsel, welche alle auch getrennt funktionieren.
Leider bekomme ich es nicht hin, das beide Code gleichzeitig funktionieren.
Dim rZelle As Range
Set rZelle = Sheets("Tabelle2").Columns(1).Find(What:=TextBox1.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
TextBox1.Value = "Datensatz bereits vorhanden"
TextBox1.ForeColor = vbRed
ElseIf TextBox1.Value = "[Eingabe] Jahr" Then
TextBox1.ForeColor = vbRed
Else
TextBox1.ForeColor = vbBlack
End If
If TextBox1.Value UserForm51.ListBox1.List(UserForm51.ListBox1.ListIndex, 0) Then
TextBox1.ForeColor = vbRed
Else
TextBox1.ForeColor = vbBlack
End If
wo liegt mein Denkfehler?
Viele Grüsse, Frank.