Fehler im Code - Löschen per UserForm
27.09.2007 18:25:28
InaB.
dieser Code wurde mir netterweise von einem Forumsmitglied zur Verfügung gestellt.
Er klappt auch bestens, wenn ich den Lösch-Vorgang per CommandButton in UserForm1 im activen Tabellenblatt ausführe. Aus einem anderen Tabellenblatt heraus leider nicht...
Ich möchte gerne Werte (ganze Zeile) löschen, wenn ich mich in einer anderen Tabelle als Tabelle1 befinde.
Was muss an dem Code geändert werden?
Wer hat einen Tip, oder kann den Code dahingehend umschreiben?
Private Sub CommandButton3_Click()
Dim intZ As Integer
Dim Sh As Worksheet
Dim durchsuchen, finden As Range
Set durchsuchen = Sheets("Tabelle1").Range("B4:B" & _
Sheets("Tabelle1").Range("B65536").End(xlUp).Row)
For Each finden In durchsuchen
If finden.Text = TextBox1.Text Then
intZ = finden.Row
Exit For
End If
Next finden
Set Sh = Worksheets("Tabelle1")
Rows(intZ).Delete
End Sub
Danke für eure Hilfe!
Grüsse, InaB.
Anzeige