wer kann aushelfen?
in meiner textbox1 schreibe ich eine zahl z.B. 2000 nun soll das, dass makro in dem sheet("Grunddaten") unter A:A schaut und wenn der wert aus textBox1 gefunden die zeile gelöscht wird.
danke
achim h.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
With Sheets("Grunddaten")
For i = .Cells(65536, 1).End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Text = Me.TextBox1.Text Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End Sub
Private Sub CommandButton3_Click()
End Sub
Sub test()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 1 Step -1
If Cells(i, 1) = CStr(TextBox1) Then Rows(i).Delete
Next i
End Sub
Private Sub TextBox1_LostFocus()
Dim wks As Worksheet, Wert, Zelle As Range, Nach As Range
Set wks = Worksheets("Grunddaten")
Wert = Me.TextBox1.Value
With wks.Range("A:A")
Set Zelle = .Find(what:=Wert, LookIn:=xlValues, lookat:=xlWhole)
Do Until Zelle Is Nothing
Set Nach = Zelle.Offset(1, 0)
Zelle.EntireRow.Delete
Set Zelle = .FindNext(After:=Nach)
Loop
End With
End Sub