wo ist der fehler?
01.07.2014 20:38:29
Spenski
mit diesem code lösche ich aus einer UserForm aus einen namen den ich in Textbox5 eingebe aus einer dynamischen tabelle in GAE.
Private Sub CommandButton4_Click() 'löschen
Dim lngZeile As Long
Dim Suchergebnis As Range
With Worksheets("GAE")
With .Range("N2:N" & .Cells(.Rows.Count, 14).End(xlUp).Row)
Set Suchergebnis = .Find(TextBox5.Value, lookat:=xlWhole, LookIn:=xlValues)
If Not Suchergebnis Is Nothing Then
Cells(Suchergebnis.Row, 14).Delete shift:=xlUp
End If
End With
End With
TextBox5.Text = ""
End Sub
kann man da was umschreiben das egal ist welches tabellenblatt gerade aktiv ist?
gruss