Excel VBA Spaltensuche, Weitersuche, Werte

Private Sub CommandButton1_Click()

Private Sub UserForm_Initialize()
TextBox2.Value = Time
End Sub

Dim rng As Range

Workbooks.Open ("H:\Eigene Dateien\Daten\Besuchermanagement\Datenbank_Besucher.xlsx")       ' MappenName ist String!, gleiche Verz. wie Mappe!

With ActiveWorkbook.Worksheets("Besucher")                                                  ' Blattname ist String!

'Spalte B nach wert durchsuchen

Set rng = Sheets("Besucher").Range("B:B").Find(what:=TextBox1.Text, Lookat:=xlWhole, LookIn:=xlValues)

'Wenn wert entdeckt

If Not rng Is Nothing Then

lngZeile = rng.Row

ActiveSheet.Cells(lngZeile, 4).Value = TextBox2.Value

MsgBox "Sie wurden erfolgreich eingecheckt. Bitte lassen Sie sich eine Warnweste und eine Ausweisnummer geben.", , "Check-in"

Else

MsgBox "Wir konnten keinen Eintrag finden. Bitte registrieren Sie sich.", , "Check-in fehlgeschlagen"

End If

If ActiveSheet.Cells(lngZeile, 4).Value  "" Then

Do

Set rng = .FindNext(rng)

Loop While Not rng Is Nothing And ActiveSheet.Cells(lngZeile, 4).Value = ""

Unload Me

End If

End With

ActiveWorkbook.Close savechanges:=True                                                      ' Schliessen mit Sichern

Application.ScreenUpdating = True                                                           ' Aktualisierung ein

Set outObj = Nothing

Unload UserForm3

End Sub