gesuchte zeile markieren
04.07.2014 08:54:29
Knoof
In meiner UserForm1 gibt es eine textbox in der man eine ID eingeben muss.
der "Suchen" Button sucht im Sheet1 nach der Zeile in der diese ID gefunden wird.
Das funktioniert soweit gut, allerdings markiert er diese zeile nicht.
Mein Ziel ist es dass die gefundene zeile durch den Suchen Button ebenfalls markiert ist, da ich ebenfalls einen Spinbutton in meiner UserForm habe soll die markierung durch "hoch" und "runter" klicken von der gefundenen zeile an nach oben oder unten springen und die variable "zeile" soll sich mit verändern.
Das habe ich bisher nicht hinbekommen. Ich bin für jede Hilfe dankbar.
Private Sub cmdsuchen_Click()
Dim x As Integer
If txtsuche = "" Then
MsgBox ("Bitte füllen Sie das Suchfeld!")
Else
Z = ActiveSheet.UsedRange.Rows.Count
temp = 0
x = txtsuche
For I = 3 To Z
If Cells(I, 1) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
zeile = I
ActiveCell.EntireRow.Select
MsgBox ("Die Nummer wurde gefunden!" & zeile)
Else
MsgBox ("Die Nummer konnte nicht gefunden werden!")
End If
End If
End Sub
Hier der Spin Button:
Private Sub SpinButton1_SpinDown()
Rows(Selection.Row + 1).Select
zeile = zeile + 1
End Sub
Anzeige