Userform weitersuchen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Nico,
probier mal.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Private rng As Range

Private Sub CommandButton1_Click()

  If TextBox1 <> "" Then
    With Sheets("Kostenauflistung")
      If rng Is Nothing Then
        Set rng = .Columns(1).Find(TextBox1, after:=.Cells(.Rows.Count, 1))
      Else
        Set rng = .Columns(1).FindNext(rng)
      End If
      If Not rng Is Nothing Then
        Label1 = rng
        Label2 = rng.Offset(0, 1)
        Label3 = rng.Offset(0, 2)
        Label8 = rng.Offset(0, 3)
      Else
        Label1 = ""
        Label2 = ""
        Label3 = ""
        Label8 = ""
        MsgBox "nichts gefunden..."
      End If
    End With
  Else
    MsgBox "Keine Eingabe erfolgt..." & Chr(10) & "Bitte prüfen..."
  End If

End Sub

Private Sub TextBox1_Change()
  Set rng = Nothing
End Sub

Private Sub UserForm_Click()

End Sub

Gruß Sepp

Hallo Nico,
hatte bei mir zum Testen den Bereich auf Spalte 1 eingegrenzt, jetzt sollte es laufen.

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Private rng As Range

Private Sub CommandButton1_Click()
  Dim lngRow As Long
  If TextBox1 <> "" Then
    With Sheets("Kostenauflistung")
      If rng Is Nothing Then
        Set rng = .UsedRange.Find(TextBox1, after:=.UsedRange.SpecialCells(xlCellTypeLastCell))
      Else
        Set rng = .UsedRange.FindNext(rng)
      End If
      If Not rng Is Nothing Then
        lngRow = rng.Row
        Label1 = .Cells(lngRow, 1)
        Label2 = .Cells(lngRow, 1).Offset(0, 1)
        Label3 = .Cells(lngRow, 1).Offset(0, 2)
        Label8 = .Cells(lngRow, 1).Offset(0, 3)
      Else
        Label1 = ""
        Label2 = ""
        Label3 = ""
        Label8 = ""
        MsgBox "nichts gefunden..."
      End If
    End With
  Else
    MsgBox "Keine Eingabe erfolgt..." & Chr(10) & "Bitte prüfen..."
  End If

End Sub

Private Sub TextBox1_Change()
  Set rng = Nothing
End Sub

Private Sub UserForm_Click()

End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform weitersuchen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread