Besten dank für eure mühe aber es ist nicht genau das was ich suche. ich bräuchte nen 2 ten commandButten mit dem ich die funktion weitersuchen auslöse oder durch nochmaligen betätigen des commandbutten1 weitersuche. und da ich neuling im vba bin weiß ich nur das es mit findNext funktionieren soll aber ich habe keine ahnung wo ich in meiner funktion ansetzen soll. (leider)
Private Sub CommandButton1_Click()
On Error GoTo errhdlr
Dim i As Integer
i = Sheets("Kostenauflistung").Cells.Find(TextBox1).Row
If TextBox1 "" Then
Label1 = Sheets("Kostenauflistung").Cells(i, 1)
Label2 = Sheets("Kostenauflistung").Cells(i, 1).Offset(0, 1)
Label3 = Sheets("Kostenauflistung").Cells(i, 1).Offset(0, 2)
Label8 = Sheets("Kostenauflistung").Cells(i, 1).Offset(0, 3)
Else
MsgBox "Keine Eingabe erfolgt..." & Chr(10) & "Bitte prüfen..."
End If
Exit Sub
errhdlr:
MsgBox "nichts gefunden..."
End Sub