Korrektur Code?
Dirk
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
Anzeige