Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In Namensliste TextBox-Inhalte suchen

Gruppe

TextBox

Problem

Die in dem xlVeryHidden ausgeblendeten Blatt hinterlegte Namensliste soll gem. UserForm-TextBox-Eingaben überprüft werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

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