Gruppe
Dialog
Problem
Die in dem xlVeryHidden ausgeblendeten Blatt hinterlegte Namensliste soll gem. UserForm-TextBox-Eingaben überprüft werden.
StandardModule: Modul1
Sub AusEinblenden()
With Worksheets("Namen")
If .Visible = xlVeryHidden Then
.Visible = xlSheetVisible
Else
.Visible = xlVeryHidden
End If
End With
End Sub
Sub CallForm()
frmName.Show
End Sub
ClassModule: frmName
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdCheck_Click()
Dim iRow As Integer
Dim bln As Boolean
iRow = 1
With ThisWorkbook.Worksheets("Namen")
Do Until IsEmpty(.Cells(iRow, 1))
If .Cells(iRow, 1).Value = txtName.Value Then
If .Cells(iRow, 2).Value = txtVorname.Value Then
bln = True
Exit Do
End If
End If
iRow = iRow + 1
Loop
End With
If bln Then
lblMsg.Caption = "Name wurde gefunden"
Else
lblMsg.Caption = "Name nicht gefunden!"
End If
End Sub