Debug Problem
Stefanglander
ich bekomme in einer Userform bei folgendem Code einen Fehler in Reihe Selection.Font.ColorIndex = 40
Weiß Jemand Rat ?
Private Sub cmdOK_Click()
If txtName.Value "" Then
If txtName.Text = "bart#" Then
frmStart.Hide
Else
If (MsgBox("Name korrekt ?" & Chr(13) & Chr(13) & _
txtName.Value, vbYesNo + vbQuestion, _
"Überprüfung")) = vbYes Then
Worksheets(1).Activate
Range("a1").Value = txtName.Text
Range("a1").Select
Selection.Font.ColorIndex = 40
Selection.Cells(5, 3).Activate
frmStart.Hide
End If
End If
End If
End Sub
GrussStefan