Thema: Korrektur Code? | Herbers Excel-Forum

Guten Abend,
ich habe mir folgenden Code zusammengebastelt, dieser funktioniert auch soweit. Ich möchte aber _ gerne, dass nach dem Löschbefehl der ausgewählten Zeile die Seite nicht mittels Application.Goto auf das Tabellenblatt 2 umspringt, sondern auf der Tabellenblatt 1 verharrt. Gibt es dafür eine Möglichkeit den Löschbefehl anders auszudrücken? Die Userform1 wird über einen CommandButton auf Tabellenblatt 1 geöffnet. Eine ComboBox auf der Userform1 löst folgenden Code aus:

Private Sub ComboBox1_Change()
Dim myRange     As Range
Dim strAddress  As String
With Worksheets("Tabelle2")
Set myRange = .Columns(2).Find(What:=Userform1.ComboBox1.Value, _
LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
If Not myRange Is Nothing Then
strAddress = myRange.Address
Application.Goto Reference:=Worksheets("Tabelle2").Range(myRange.Address),  _
Scroll:=False
ActiveCell.EntireRow.Delete
Application.ScreenUpdating = False
End If
End With
Userform1.Hide
End Sub

Schöne Grüße,
Dirk

Hoi Dirk,
Beni

Private Sub ComboBox1_Change()
Dim myRange     As Range
Dim strAddress  As String
With Worksheets("Tabelle2")
Set myRange = .Columns(2).Find(What:=Userform1.ComboBox1.Value, _
LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
If Not myRange Is Nothing Then
strAddress = myRange.Row
Worksheets("Tabelle2").Rows(strAddress).EntireRow.Delete
Application.ScreenUpdating = False
End If
End With
Userform1.Hide
End Sub

Hallo Beni,
vielen Dank!
Grüße, Dirk